# 創建隨機數
proc rand_data {base range} {
set ret [expr {$base + $range*rand()}]
return $ret
}
# 數據50到100的隨機數
set_analog_value "sta0" "analog0" [rand_data 50 50];
備注：此功能適用于各個版本