将此方程转换为随机

Question

我想将此方程“(rand() % (max-min)) + min;”从C++转换为TCL/TK，并将它转换为ns2 ...我希望有人能帮助我。

我此致

Answer 1

表达不能被直接翻译，作为Tcl的rand()返回浮点数（范围在0.0至1.0）不象C++的rand()，其被返回一个整数。但几乎道德相当于是这样的：

expr { int(rand() * ($max - $min)) + $min } 

我们可以包装成一个小程序这使它更容易使用（这就像用C写一个辅助函数++）：

proc randInRange {min max} { 
    return [expr { int(rand() * ($max - $min)) + $min }] 
} 

# Example of calling it and using the result: 
puts [randInRange 1 10]