將此方程轉換爲隨機

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]