tcl - 如何使用Tcl语言控制仿真

Question

我想用 tcl 来控制模拟迭代。在每次迭代中，我得到一些随机值，并保存结果

set set_of_double_values{0}
foreach y_val $set_of_double_values {
set_parameter Snr $y_val ;

set numsim 2;
set_value/$env(sim_name)/numsim $numsim;
for {set i 0} {$i < $numsim} {incr i 1} {
some random value
}
run_iteration;
}
run_iteration

使用这段代码，我总是多次运行内部，我无法保存正确的结果......