Tcl设置浮点数的精度
方法1：

set tcl_precision 4
puts [expr 2.0/3]  #输出0.6667

set tcl_precision 8
puts [expr 2.0/3]  #输出0.66666667

设置精度后会自动进行四舍五入。

方法2：

puts  [format  "%.2f"  1.234567] #输出1.23 
puts  [format  "%.3f"  1.234567] #输出1.235

这种方法与C语言类似。