set i -1 while \$i<10 {puts [format "A%-2d%5.fmm x%5.fmm" [incr i] [set a [expr 841*pow(.7068,$i)]] [expr $a*1.414]]}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page