Lab 04092009

Page 1

Pag. 1/4 Fondamenti di Reti di Telecomunicazioni Prova di Laboratorio – 4 Settembre 2009 Cognome e nome: (stampatello) Matricola: (firma leggibile) Dato il seguente programma (script) NS in linguaggio TCL (svolgere su questo foglio): NOME FILE: eserc_sett09.tcl set ns [new Simulator] set namFile [open eserc_sett09.nam w] $ns namtrace-all $namFile $ns at 10.0 "finish" proc finish {} { global ns global namFile $ns flush-trace close $namFile #exec nam eserc_sett09.nam & exit 0 } set Node0 [$ns node] set Node1 [$ns node] set Node2 [$ns node] set Node3 [$ns node] set Node4 [$ns node] set Node5 [$ns node] $ns duplex-link $Node2 $Node0 10Mb 200ms DropTail $ns duplex-link $Node0 $Node1 5Mb 20ms DropTail $ns queue-limit $Node0 $Node1 100 $ns duplex-link $Node3 $Node0 10Mb 200ms DropTail $ns duplex-link $Node1 $Node4 10Mb 20ms DropTail $ns duplex-link $Node1 $Node5 10Mb 20ms DropTail set UDP0 [new Agent/UDP] $UDP0 set packetSize_ 1000 set UDP1 [new Agent/UDP] $UDP1 set packetSize_ 1000 set Null0 [new Agent/Null] set Null1 [new Agent/Null] $ns attach-agent $Node4 $Null0 $ns attach-agent $Node5 $Null1 $ns attach-agent $Node2 $UDP0 $ns attach-agent $Node3 $UDP1 $ns connect $UDP0 $Null0 $ns connect $UDP1 $Null1 set CBR0 [new Application/Traffic/CBR] $CBR0 set packetSize_ 1000 $CBR0 set rate_ 1600kb set CBR1 [new Application/Traffic/CBR] $CBR1 set packetSize_ 1000 $CBR1 set rate_ 800Kb $CBR0 attach-agent $UDP0 $CBR1 attach-agent $UDP1 $ns at 1s "$CBR0 start" $ns at 9.5s "$CBR0 stop" $ns at 1s "$CBR1 start" $ns at 9.5s "$CBR1 stop" $ns run Nota: i pacchetti da UDP0 a Null0 seguono il percorso Node2 – Node0 – Node1 – Node4 mentre i pacchetti da UDP1 a Null1 seguono il percorso Node3 – Node0 – Node1 – Node5 Pag. 2/4 1) Disegnare la topologia della rete descritta nello script TCL c on la…