Lab 08022010

Page 1

Pag. 1/3 Fondamenti di Reti di Telecomunicazioni Prova di Laboratorio – 8 Febbraio 2010 Cognome e nome: (stampatello) Matricola: (firma leggibile) Dato il seguente script NS in linguaggio TCL “esercizio_1_10.tcl” (svolgere su questo foglio): #if {$argc == 1} { # set interarrival [lindex $argv 1] #} else { # puts "Usage: $argv0 <interarrival>" # exit 1 #} set ns [new Simulator] set namFile [open esercizio_1_10.nam w] $ns namtrace-all $namFile set Node0 [$ns node] set Node1 [$ns node] set Node2 [$ns node] set Node3 [$ns node] $ns duplex-link $Node0 $Node1 10Mb 20ms DropTail set DuplexLink0 [$ns link $Node0 $Node1] $ns queue-limit $Node0 $Node1 1000 $ns duplex-link $Node1 $Node2 80kb 10ms DropTail set DuplexLink1 [$ns link $Node1 $Node2] $ns queue-limit $Node1 $Node2 2 $ns duplex-link $Node2 $Node3 2Mb 5ms DropTail set DuplexLink1 [$ns link $Node2 $Node3] $ns queue-limit $Node2 $Node3 1000 set UDP0 [new Agent/UDP] $UDP0 set packetSize_ 1000 $ns attach-agent $Node0 $UDP0 set LossMonitor0 [new Agent/LossMonitor] $ns attach-agent $Node3 $LossMonitor0 $ns connect $UDP0 $LossMonitor0 set appl0 [new Application/Traffic/Exponential] $appl0 set packetSize_ 1000 $appl0 set burst_time_ 0s $appl0 set rate_ 100000Mb $appl0 set idle_time_ $interarrival $appl0 attach-agent $UDP0 set QueueMonitor0 [$ns monitor-queue $Node1 $Node2 [$ns get-ns-traceall] 0.1] set delay0 [new Samples] $QueueMonitor0 set-delay-samples $delay0 $ns at 0.0 "$appl0 start" $ns at 9.0 "$appl0 stop" $ns at 9.1 "finish" proc finish {} { global ns namFile $ns flush-trace close $namFile exit 0 } $ns run NB: il cancelletto # è un segno di commento NB: il cancelletto è il simbolo di “commento” del codice TCL DOMANDE: 1) Disegnare la topologia della rete descritta nello script TCL, indicando inoltre: • la capacità, il…