Convertir cette équation pour aléatoire

Question

Je veux convertir cette équation "(rand() % (max-min)) + min;" de C++ au TCL/TK à nous en ns2 ... J'espère que quelqu'un peut m'aider.

mes meilleurs

Answer 1

L'expression ne peut pas être traduit directement, comme rand() rendements nombres à virgule flottante de Tcl (dans la gamme de 0,0 à 1,0) à la différence de rand() C++, qui retourne un entier. Mais à peu près morale équivalente est la suivante:

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

Nous pouvons conclure cela dans une procédure peu pour le rendre encore plus facile à utiliser (il est juste comme écrire une fonction d'assistance en C++):

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

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