Could someone explain to me why this simple Tcl
script is not working, loss rate is always equal to 0:
#Create a simulator object
set ns [new Simulator] #Create two nodes
set n0 [$ns node] set n1 [$ns node] #Create a duplex link between the nodes
$ns duplex-link $n0 $n1 1Mb 100ms DropTail # create a loss_module
set loss_module [new ErrorModel] # optional: set the unit and random
variable
$loss_module unit pkt $loss_module ranvar [new RandomVariable/Uniform] # set target for dropped packets
$loss_module drop-target [new Agent/Null] #insert the loss module in the link
#$ns lossmodel $loss_module $n0 $n1 for {set j 1} {$j <= 25} {incr j}
{
$ns at [expr $j] "$loss_module set rate_ [expr 0.01*$j]" $ns at [expr 0.1+$j] "puts \"loss rate set to [$loss_module set rate_]%\"" } $ns run
Thank you very much for your help
BP
|