在tcl中创建随机复数

嗨，我想在tcl脚本中生成一个复数，其形式为z=a+bi，其中a复数的实部是“随机数”，虚部是b

是否可以调用复杂函数或类似的东西，比如我使用了rand（）并从生成为Real和Imag的两个随机分量中获取输入，然后创建一个复数z。下面是我正在尝试的试用代码

---

设置mymin 2
将mymax设置为10
proc myRealImag{mymin mymax}{
设置mymin 2
将mymax设置为10
对于{set i 0}{$i<$mymax}{incr i}{
设置realres[expr int（rand（）*（$mymax-$mymin））+$mymin]
设置imagres[expr int（rand（）*（$mymax-$mymin））+$mymin]
“实际价值为$realres”
放置“虚拟值为$imagres”
设置组件编号[expr？？？？？]
放入“复数为$compNo”
放入“\n”
}
返回实境，图像
}
#运行该过程
myRealImag$mymin$mymax

我建议您看看TCL数学库，尤其是Math:：complexnumbers包。请参见

我建议您看看TCL数学库，尤其是Math:：complexnumbers包。看

set mymin 2
set mymax 10

proc myRealImag { mymin mymax} {    
    set mymin 2
    set mymax 10

    for { set i 0 } { $i < $mymax } { incr i } {
        set realres [expr int(rand() * ($mymax - $mymin)) + $mymin]
        set imagres [expr int(rand() * ($mymax - $mymin)) + $mymin]
        puts " Real value is $realres"
        puts " Imaginary value is $imagres"
        set compNo [expr ?????????]
        puts "Complex Number is $compNo"
        puts "\n"
    }

    return realres,imagres
}

#Run the procedure

myRealImag $mymin $mymax