- #
- #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
最新推荐文章于 2024-05-26 12:52:07 发布