Scribd
Upload
21 views5 pages

Exp 1 1

Experience and get back lab exam and also

Uploaded by

bobyhprasad
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
21 views5 pages

Exp 1 1

Experience and get back lab exam and also

Uploaded by

bobyhprasad
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
You are on page 1/ 5

1.

Implement three node point-to-point networks with duplex links


between them. Set the queue size, vary the bandwidth and find the
number of packets dropped.

TCL:
#Create a simulator object
set ns [ new Simulator ]

#Open the nam trace file


set tf [ open lab1.tr w ]
$ns trace-all $tf

#Open the nam trace file


set nf [ open lab1.nam w ]
$ns namtrace-all $nf

#Define a 'finish' procedure


proc finish { } {
global ns nf tf
$ns flush-trace
exec nam lab1.nam &
close $tf
close $nf
exit 0
}

#Creating nodes
set n0 [$ns node]
set n1 [$ns node]
set n2 [$ns node]
set n3 [$ns node]

KRISHNA GUDI, CSE DEPT, KSIT 1


#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"

#Create link between nodes


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

#Set queue size of links


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

#Setup a UDP connection


set udp0 [new Agent/UDP]
$ns attach-agent $n0 $udp0

# Create a CBR traffic source and attach it to udp0

set cbr0 [new Application/Traffic/CBR]


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

KRISHNA GUDI, CSE DEPT, KSIT 2


#Create a UDP agent and attach it to node n1

set udp1 [new Agent/UDP]


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

# Create a CBR traffic source and attach it to udp1

set cbr1 [new Application/Traffic/CBR]


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

#Create a Null agent (a traffic sink) and attach it to node n3

set null0 [new Agent/Null]


$ns attach-agent $n3 $null0

#Connect the traffic sources with the traffic sink

$ns connect $udp0 $null0


$ns connect $udp1 $null0

#Schedule events for the CBR agents

$ns at 0.5 "$cbr0 start"


$ns at 1.0 "$cbr1 start"
$ns at 4.0 "$cbr1 stop"
$ns at 4.5 "$cbr0 stop"

#Call the finish procedure after 5 seconds of simulation time

$ns at 5.0 "finish"

#Run the simulation

$ns run

KRISHNA GUDI, CSE DEPT, KSIT 3


AWK:
BEGIN{
count=0;
}
{
if($1=="d")
count++
}
END{
printf("The Total no of Packets Drop is :%d\n\n", count)
}

KRISHNA GUDI, CSE DEPT, KSIT 4


Simulated Network:

Packet Dropped:

OR
Using grep command: cat lab1.tr | grep ^d | wc -l

KRISHNA GUDI, CSE DEPT, KSIT 5

You might also like

pFad - Phonifier reborn

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.

Note: This service is not intended for secure transactions such as banking, social media, email, or purchasing. Use at your own risk. We assume no liability whatsoever for broken pages.


Alternative Proxies:

Alternative Proxy

pFad Proxy

pFad v3 Proxy

pFad v4 Proxy