hi all, i want ot creat a timer on tcl
set ns [new Simulator] set bw bw2.dat set f [open $bw w] proc timer {} { global ns f set time 10 set now [$ns now] set cost [expr floor( rand() * 40) + 20] ;# exemple puts $f "$now : $cost" $ns at [expr $now+$time] "timer" } proc finish {} { puts "Stop simulation" global ns f $ns flush-trace close $f exit 0 } $ns at 0.0 "timer" $ns at 50 "finish" $ns run i have 5 values every 10s but the simulation doesn't take 50 s why ?