#
#FUNC:获取[min, max)区间是随机浮点数
#
proc RandomRange { min max } {
# 获得[0.0,1.0)之间的随机数
set rd [expr rand()]
# 将$rd放大到[$min, $max)
set result [expr $rd * ($max - $min) + $min]
return $result
}
#
#FUNC:获取[min, max)区间是随机整数
#
proc RandomRangeInt { min max } {
return [expr int([RandomRange $min $max])]
}
# 调用3000次RandomRangeInt测试
for {set i 0} {$i < 3000} {incr i} {
puts [RandomRangeInt 10 300]
}
puts "\r\nPress ENTER to continue.\r\n"
gets stdin
TCL脚本语言-生成指定区间的随机数-rand-RandomRange
最新推荐文章于 2022-04-22 11:46:28 发布