R. Lo Cigno, P. Larcheri 802.11e closed-loop scheduling Description: ns-2 package for 802.11e clo

				#				# Usage: ns rng-test2.tcl [replication number]				#								if {$argc > 1} {				    puts "Usage: ns rng-test2.tcl \[replication number\]"				    exit				}				set run 1				if {$argc == 1} {				    set run [lindex $argv 0]				}				if {$run < 1} {				    set run 1				}								# the default RNG is seeded with 12345								# create the RNGs and set them to the correct substream				set arrivalRNG [new RNG]				set sizeRNG [new RNG]				for {set j 1} {$j < $run} {incr j} {				    $arrivalRNG next-substream				    $sizeRNG next-substream				}								 # print the first 5 arrival times and sizes				for {set j 0} {$j < 5} {incr j} {				    puts [format "%-8.3f  %-4d" [$arrivalRNG lognormal 5 0.1] \				            [expr round([$sizeRNG normal 5000 100])]]				}