Hi, The TCL below is doing empty traces files, and I realy dont kown why.... I was trying to use PI controller but with empty files I tried DropTail just to test. Can you help me!?
############################################### set ns [new Simulator] set numeroNodos 5 set numeroRouters 3 set tipo_fila DropTail set mbps_link_atolado 155 set tam_fila 600 #delay do link atolado 0.03 = 30ms set bdelay 0.03 set delay 0.03 set start 0.1 set stop 10.0 # abre arqs de trace para gravacao set f [open /opt/tcl/feito/out.tr.renata5pi.$numeroNodos w] $ns trace-all $f ################## ## NODOS DA REDE # ################## set n0 [$ns node] set n1 [$ns node] set n2 [$ns node] $n0 shape "box" $n1 shape "box" $n2 shape "box" # CRIA OS NODOS, S DE SENDERS E R DE RECEIVER for {set i 0} {$i < $numeroNodos} {incr i} { set s($i) [$ns node] # JA VAI SETANDO OS LINKS ENTRE OS ROUTERS DAS PONTOS E OS COMPUTADORES $ns duplex-link $n0 $s($i) 10Mb 100ms DropTail set r($i) [$ns node] # JA VAI SETANDO OS LINKS ENTRE OS ROUTERS DAS PONTOS E OS COMPUTADORES $ns duplex-link $n1 $r($i) 10Mb 100ms DropTail } ################## ## LINKS # ################## # (0)--(2)--(1) # (0) DT (2) GREEN (1) # INFORMA QUAL LINK TEM QUAL TIPO DE GERENCIA DE FILA (ENTRE OS 3 ROUTERS PRINCIPAIS) $ns duplex-link $n0 $n2 155Mb 30ms DropTail $ns duplex-link-op $n0 $n2 label "DropTail" $ns duplex-link $n2 $n1 155Mb 30ms DropTail $ns duplex-link-op $n2 $n1 label "DropTail" ################## ## FLUXOS # ################## for {set i 0} {$i < $numeroNodos} {incr i} { set tcp($i) [new Agent/TCP] $tcp($i) set window_ 3000 $tcp($i) set fid_ ($i) set SinkTCP($i) [new Agent/TCPSink] $SinkTCP($i) set flowid_ ($i) $ns attach-agent $r($i) $SinkTCP($i) $ns attach-agent $s($i) $tcp($i) $ns connect $tcp($i) $SinkTCP($i) set ftp($i) [new Application/FTP] $ftp($i) attach-agent $tcp($i) } ################## ## Outros # ################## #if {$tipo_fila == "PI"} { # set piq [[$ns link $n0 $n2] queue] # $piq set bytes_ true # $piq set queue_in_bytes_ true # $piq set a_ 0,00001822 # puts "SETTING PI" # $piq set b_ 0,00001816 # $piq set w_ 0.353741496598639 # $piq set qref_ 200 #} # # set rtt [expr 2*(0.005+$delay + $bdelay)] # #for {set i 0} {$i < $numeroNodos } {incr i} { # if {$numeroNodos > 1} { # set delay [expr 0.001 + (($MAX_DELAY - 0.001)*$i)/($numeroNodos-1)] # } else { # set delay 0.001 # } #} # for {set i 0} {$i < $numeroNodos } {incr i} { puts "startando ftp($i)" $ns at $start "$ftp($i) start" } for {set i 0} {$i < $numeroNodos } {incr i} { puts "stopando ftp($i)" $ns at $stop "$ftp($i) stop" } $ns at $[expr 0.2 + $stop] "finish" proc finish {} { global ns f $ns flush-trace puts "DENTRO DO FINISH" # fecha os FD dos arqs close $f exit 0 } $ns run -- Renata Vidal "Triste é o destino de quem tenta vencer as batalhas e ter sucesso nos ataques sem cultivar o espírito da iniciativa (A Arte da Guerra – SUN TSU – pg 102)"