Tcl技巧与bug汇总（二）

Tcl/Tk整型浮点型转换问题

  与C/C++类似，Tcl使用int()/float()函数实现整型和浮点型数值转换。

set a 1.0
set b [expr int($a)]
puts "a:$a  b:$b"

  输出a:1.0 b:1。

Question:

set grid_length 1.2
set min_width 0.05
#不取整
set bin_num [expr $grid_length/$min_width]
puts $bin_num
#间接取整
set bin_num [expr int($bin_num)]
puts $bin_num
#直接取整
set bin_num [expr int($grid_length/$min_width)]
puts $bin_num

  输出分别为24.0，24和23！。目前没有找到缘由，因此只能在coding中注意了。