Lab 15112011

Pagina 1

Reti di Comunicazione e Internet-MOD1 Prof. Guido Maier, Prof. Massimo Tornatore. Prova di Laboratorio – 15 Novembre 2011 Cognome e nome: (stampatello) Matricola: (firma leggibile) Dato il seguente programma (script) NS in linguaggio TCL (svolgere su questo foglio): set ns [new Simulator] set namFile [open 15_11_11.nam w] $ns namtrace-all $namFile $ns at 5.0 "finish" proc finish {} { global ns global namFile $ns flush-trace close $namFile exit 0 } set Node1 [$ns node] set Node2 [$ns node] set Node3 [$ns node] set Node4 [$ns node] set Node5 [$ns node] set Node6 [$ns node] set Node7 [$ns node] $ns duplex-link $Node1 $Node4 1Mb 10ms DropTail $ns duplex-link $Node2 $Node4 1Mb 20ms DropTail $ns duplex-link $Node3 $Node4 1Mb 15ms DropTail $ns duplex-link $Node4 $Node5 3Mb 21ms DropTail $ns duplex-link $Node6 $Node5 3Mb 143ms DropTail $ns duplex-link $Node7 $Node5 7Mb 111ms DropTail set UDP1 [new Agent/UDP] $UDP1 set packetSize_ 1000 set UDP2 [new Agent/UDP] $UDP2 set packetSize_ 1000 set UDP3 [new Agent/UDP] $UDP3 set packetSize_ 1000 set UDP4 [new Agent/UDP] $UDP4 set packetSize_ 1000 set UDP5 [new Agent/UDP] $UDP5 set packetSize_ 1000 $ns ___________ $Node1 $____ $ns ___________ $Node2 $____ $ns ___________ $Node3 $____ $ns ___________ $Node6 $____ $ns ___________ $Node7 $____ set Null1 [new Agent/Null] set Null2 [new Agent/Null] set Null3 [new Agent/Null] set Null4 [new Agent/Null] set Null5 [new Agent/Null] $ns attach-agent $Node5 $Null1 $ns attach-agent $Node5 $Null2 $ns attach-agent $Node5 $Null3 $ns attach-agent $Node5 $Null4 $ns attach-agent $Node5 $Null5 $ns connect $UDP1 $Null1 $ns connect $UDP2 $Null2 $ns connect $UDP3 $Null3 $ns connect $UDP4 $Null4 $ns connect $UDP5 $Null5 set CBR1 [new Application/Traffic/CBR] $CBR1 set packetSize_ 1000 $CBR1 set interval_ 20ms…