Scribd
Upload
10 views2 pages

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
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
10 views2 pages

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
We take content rights seriously. If you suspect this is your content, claim it here.
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