外部変形は データのやり取りをテキストファイルで行うので プログラム言語は 自由に選ぶことができます。図形は機能的かつシンプルなため、数多くのユーザーに受け入れられています。
tclshで円環ソリッドを確認する(so:同一扁平率)
:tclshで円環ソリッドを確認する(so:同一扁平率)
@echo off
for /f "delims=:" %%n in ('findstr /n "^#!" %0') do (
copy jwc_temp.txt myfiles > nul
more +%%n %0 | tclsh - > jwc_temp.txt
)
goto:eof
REM #jww
REM #h1
REM #hc 円環ソリッドを選択してください
REM #e
#!この次の行からプログラムを書いてください
set tcl_precision 16; #文字列を数値演算するとき有効桁数 16 (デフォルト 12)
set sln 0
set f [open myfiles]
foreach 0 [split [read $f] \n] {
switch -regexp -matchvar n -- $0 {
^so {
incr sln
set sl($sln) $0
continue
}
}
}
close $f
puts "hd"
for {set i 1} {$i <= $sln} {incr i} {
puts "lc[expr 6 + $i]"
puts $sl($i)
}
