如何创建随机数？

# 创建随机数
proc rand_data {base range} {
set ret [expr {$base + $range*rand()}]
return $ret
}
# 数据50到100的随机数
set_analog_value "sta0" "analog0" [rand_data 50 50];
备注：此功能适用于各个版本