Scribd
Upload
3 views

Program 9

This document outlines a simulation setup using a network simulator, defining nodes, links, and agents for data flow. It specifies parameters for traffic generation and connection between sources and a destination. The simulation includes a finish procedure to clean up and visualize the results after execution.

Uploaded by

medeepthisurya
Copyright
© © All Rights Reserved
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
3 views

Program 9

This document outlines a simulation setup using a network simulator, defining nodes, links, and agents for data flow. It specifies parameters for traffic generation and connection between sources and a destination. The simulation includes a finish procedure to clean up and visualize the results after execution.

Uploaded by

medeepthisurya
Copyright
© © All Rights Reserved
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 2

set ns [ new Simulator ]

set tf [ open lab1.tr w ]


$ns trace-all $tf

set nf [ open lab1.nam w ]


$ns namtrace-all $nf
#Define a 'finish' procedure
proc finish { } { global ns nftf
$ns flush-trace
exec nam lab1.nam & close $tf
close $nf exit 0
}

set n0 [$ns node] set n1 [$ns node] set n2 [$ns node] set n3 [$ns node]
Define different colors and labels for data flows
$ns color 1 "red"
$ns color 2 "blue"
$n0 label "Source/udp0"
$n1 label "Source/udp1"
$n2 label "Router"
$n3 label "Destination/Null"

$ns duplex-link $n0 $n2 100Mb 300ms DropTail


$ns duplex-link $n1 $n2 100Mb 300ms DropTail
$ns duplex-link $n2 $n3 1Mb 300ms DropTail

$ns set queue-limit $n0 $n2 50


$ns set queue-limit $n1 $n2 50
$ns set queue-limit $n2 $n3 5

set udp0 [new Agent/UDP]


$ns attach-agent $n0 $udp0

set cbr0 [new Application/Traffic/CBR]


$cbr0 set packetSize_ 500
$cbr0 set interval_ 0.005
$cbr0 attach-agent $udp0

set udp1 [new Agent/UDP]


$udp1 set class_ 2
$ns attach-agent $n1 $udp1

set cbr1 [new Application/Traffic/CBR]


$cbr1 set packetSize_ 500
$cbr1 set interval_ 0.005
$cbr1 attach-agent $udp1

set null0 [new Agent/Null]


$ns attach-agent $n3 $null0

$ns connect $udp0 $null0


$ns connect $udp1 $null0
$ns at 0.5 "$cbr0 start"
$ns at 1.0 "$cbr1 start"
$ns at 4.0 "$cbr1 stop"
$ns at 4.5 "$cbr0 stop"

$ns at 5.0 "finish"

$ns run

You might also like