[ns] empty file

[Renata Vidal]

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)"