set y 1682;set i -1;while {[incr i]<11} {set y [expr $y*.7069];puts [format "A%-2d%5.fmm x%5.fmm" $i [expr $y*.707] $y]}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page