Lab 17062009

Page 1

Fondamenti di Reti di Telecomunicazioni Prova di Laboratorio – 17 Giugno 2009 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 prova9giugno09.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] $ns duplex-link $Node1 $Node5 1Mb 20ms DropTail $ns duplex-link $Node2 $Node5 1Mb 20ms DropTail $ns duplex-link $Node3 $Node5 1Mb 20ms DropTail $ns duplex-link $Node4 $Node5 1Mb 20ms DropTail $ns duplex-link $Node5 $Node6 2Mb 100ms 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 $ns attach-agent $Node1 $UDP1 $ns attach-agent $Node2 $UDP2 $ns attach-agent $Node3 $UDP3 $ns attach-agent $Node4 $UDP4 set Null1 [new Agent/Null] set Null2 [new Agent/Null] set Null3 [new Agent/Null] set Null4 [new Agent/Null] $ns attach-agent $Node6 $Null1 $ns attach-agent $Node6 $Null2 $ns attach-agent $Node6 $Null3 $ns attach-agent $Node6 $Null4 $ns connect $UDP1 $Null1 $ns connect $UDP2 $Null2 $ns connect $UDP3 $Null3 $ns connect $UDP4 $Null4 set CBR1 [new Application/Traffic/CBR] $CBR1 set packetSize_ 1000 $CBR1 set interval_ 40ms set CBR2 [new Application/Traffic/CBR] $CBR2 set packetSize_ 1000 $CBR2 set interval_ 20ms set CBR3 [new Application/Traffic/CBR] $CBR3 set packetSize_ 1000 $CBR3 set interval_ 20ms set CBR4 [new Application/Traffic/CBR] $CBR4 set packetSize_ 1000 $CBR4 set interval_…