如何使用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

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