임의 수식으로 변환

Question

이 수식을 "(rand() % (max-min)) + min;"을 C++에서 TCL/TK로 변환하여 ns2로 변환하고 싶습니다 ... 누군가 도와 줄 수 있으면 좋겠어요.

내 안부

Answer 1

표현은 정수를 반환하는 C++의 rand() 달리 (범위 0.0 ~ 1.0 년) 부동 소수점 숫자는 Tcl의 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]