Question

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

是否可以调用复杂函数或像我使用rand（）之类的东西，并从生成为Real和Imag的两个随机组件中获取输入并创建复数z。以下是我正在尝试处理的试用代码。

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

Answer 1

我建议你看一下TCL Math库，特别是math :: complexnumbers包。见http://docs.activestate.com/activetcl/8.4/tcllib/math/qcomplex.html

在tcl中创建随机复数

1 个答案: