Re: [ns] Random Number Generator

["Wayne W. Szeto" <wwszeto@hopper.math.uwaterloo.ca>]

Try this random number generator script below, it is copied from a tcl
book.  Use 'RandomRange range' to generate an integer from 0 to range.  


=========================
set randomSeed 1
proc RandomInit {seed} {
    global randomSeed
    set randomSeed $seed
}
proc Random {} {
    global randomSeed
    set randomSeed [expr ($randomSeed*9301 + 49297)%233280]
    return [expr $randomSeed/double(233280)]
}
proc RandomRange { range } {
    return [ expr int([Random]*$range) ]
}
========================



On Wed, 25 Jul 2001, Sungwon Yi wrote:

> Hi,
> I am trying to generate random number to use it
> as traffic starting time between 30 to 40 sec.
> I used following ...
> 
> set rng [new RNG]
> $rng seed 0
> $rng uniform 30.0 40.0
> 
> $ns at $rng "$cbr0 start"
> 
> However, It not seems to work. The traffic seems to
> be generated earlier than 30.0., and Please let me
> know if there is a way that I can check this value.
> 
> I would appreciate for any advice.
> 
> Thanks.
> 
> ======================================
> Yi, Sungwon
> Have a wonderful day!
> ======================================
> 
>