exercicio3.tcl

set ns [new Simulator]

$ns rtproto DV

set nf [open out.nam w]
$ns namtrace-all $nf

proc fim {} {

    global ns nf
    $ns flush-trace
    close $nf
    exec nam out.nam
    exit 0
}


set n0 [$ns node]
set n1 [$ns node]
set n2 [$ns node]
set n3 [$ns node]

$ns duplex-link $n0 $n1 1Mb 0.03ms DropTail
$ns duplex-link $n1 $n2 1Mb 20ms DropTail
$ns duplex-link $n1 $n3 2Mb 116ms DropTail

#Altera o tamanho da fila
$ns queue-limit $n0 $n1 30

#Agente TCP
set tcp0 [new Agent/TCP]
$tcp0 set window_ 10
$ns attach-agent $n0 $tcp0

#TCP end
set tcp_end [new Agent/TCPSink]
$ns attach-agent $n2 $tcp_end

$ns connect $tcp0 $tcp_end

#Primeiro CBR
set cbr0 [new Application/Traffic/CBR]
$cbr0 attach-agent $tcp0
$cbr0 set maxpkts_ 10
$cbr0 set packetsize_ 1000
$cbr0 set interval_ 0.5

#Agente UDP
set udp0 [new Agent/UDP]
$ns attach-agent $n2 $udp0

#Segundo CBR
set cbr1 [new Application/Traffic/CBR]
$cbr0 attach-agent $udp0
$cbr0 set rate_ 240

#Agente Null
set null0 [new Agent/Null]
$ns attach-agent $n3 $null0

$ns connect $udp0 $null0

#Gere os periodos de envio
$ns at 0.5 "$cbr0 start"
$ns at 0.5 "$cbr1 start"
$ns at 2.5 "$cbr1 stop"

#Simula a quebra de ligaçao entre no e n1
$ns rtmodel-at 1.0 down $n0 $n1
$ns rtmodel-at 1.5 up $n0 $n1

$ns at 3.5 "fim"

$ns run