#Creating simulator object
set ns [new Simulator]
 
#creating two color classes for ns object to distinguish the traffic coming from various sources
$ns color 0 blue
$ns color 1 red
 
#Creating the nam file
set nf [open out.nam w]
$ns namtrace-all $nf
 
#Finish Procedure
proc finish {} {
        global ns nf
        $ns flush-trace
        close $nf
        exec nam out.nam &
        exit 0
        }
 
#Creating Four nodes
set n0 [$ns node]
set n1 [$ns node]
set n2 [$ns node]
set n3 [$ns node]
 
#Creating a duplex links
$ns duplex-link $n0 $n2 2Mb 10ms DropTail
$ns duplex-link-op $n0 $n2 orient right-down
 
$ns duplex-link $n1 $n2 2Mb 10ms DropTail
$ns duplex-link-op $n1 $n2 orient right-up
 
$ns duplex-link $n2 $n3 1.7Mb 20ms DropTail
$ns duplex-link-op $n2 $n3 orient right
 
#Limiting the queue to only 10 packets 
$ns queue-limit $n0 $n2 10
$ns queue-limit $n1 $n2 10
$ns queue-limit $n2 $n3 10
 
#Creating a TCP agent and connecting it to n1
set tcp1 [new Agent/TCP]
 
#Specifying tcp traffic to have blue color as defined in the second line of the program
$tcp1 set fid_ 0
 
$ns attach-agent $n1 $tcp1
 
#Creating a Sink Agent and attaching it to n3
set sinkTCP3 [new Agent/TCPSink]
$ns attach-agent $n3 $sinkTCP3
 
#Connecting TCP agent with Sink agent
$ns connect $tcp1 $sinkTCP3
 
 
 
#Specifying the UDP agent
set udp0 [new Agent/UDP]
 
#Specifying udp traffic to have red color as defined in the second line of program
$udp0 set fid_ 1
 
#Attaching the UDP agent with n0
$ns attach-agent $n0 $udp0
 
#Specifying the Null agent
set null0 [new Agent/Null]
 
#Attaching the NULL agent with n3
$ns attach-agent $n3 $null0
 
#Connecting both udp0 and null0 agents for transferring data between n0 and n1
$ns connect $udp0 $null0
 
#Creating FTP agent for traffic and attaching it to tcp1
set ftp0 [new Application/FTP]
$ftp0 attach-agent $tcp1
 
#Specifying the CBR agent to generate the traffic over udp0 agent
set cbr0 [new Application/Traffic/CBR]
 
#Each packet having 1K bytes
$cbr0 set packetSize_ 1000
 
#Each packet will be generated after 10ms i.e., 100 packets per second
$cbr0 set interval 0.010 
 
#Attaching cbr0 with udp0
$cbr0 attach-agent $udp0
 
#Starting the FTP Traffic
$ns at 0.5 "$ftp0 start"
$ns at 4.0 "$ftp0 stop"
 
#Starting the cbr0 at 0.5 simulation time
$ns at 0.1 "$cbr0 start"
 
#Stoping the cbr0 at 4.5 simulation time
$ns at 4.5 "$cbr0 stop"
 
#Calling the finish procedure
$ns at 5.0 "finish"
 
#Run the simulation
$ns run
 

I0NyZWF0aW5nIHNpbXVsYXRvciBvYmplY3QKc2V0IG5zIFtuZXcgU2ltdWxhdG9yXQoKI2NyZWF0aW5nIHR3byBjb2xvciBjbGFzc2VzIGZvciBucyBvYmplY3QgdG8gZGlzdGluZ3Vpc2ggdGhlIHRyYWZmaWMgY29taW5nIGZyb20gdmFyaW91cyBzb3VyY2VzCiRucyBjb2xvciAwIGJsdWUKJG5zIGNvbG9yIDEgcmVkCgojQ3JlYXRpbmcgdGhlIG5hbSBmaWxlCnNldCBuZiBbb3BlbiBvdXQubmFtIHddCiRucyBuYW10cmFjZS1hbGwgJG5mCgojRmluaXNoIFByb2NlZHVyZQpwcm9jIGZpbmlzaCB7fSB7CiAgICAgICAgZ2xvYmFsIG5zIG5mCiAgICAgICAgJG5zIGZsdXNoLXRyYWNlCiAgICAgICAgY2xvc2UgJG5mCiAgICAgICAgZXhlYyBuYW0gb3V0Lm5hbSAmCiAgICAgICAgZXhpdCAwCiAgICAgICAgfQogICAgICAgIAojQ3JlYXRpbmcgRm91ciBub2RlcwpzZXQgbjAgWyRucyBub2RlXQpzZXQgbjEgWyRucyBub2RlXQpzZXQgbjIgWyRucyBub2RlXQpzZXQgbjMgWyRucyBub2RlXQoKI0NyZWF0aW5nIGEgZHVwbGV4IGxpbmtzCiRucyBkdXBsZXgtbGluayAkbjAgJG4yIDJNYiAxMG1zIERyb3BUYWlsCiRucyBkdXBsZXgtbGluay1vcCAkbjAgJG4yIG9yaWVudCByaWdodC1kb3duCgokbnMgZHVwbGV4LWxpbmsgJG4xICRuMiAyTWIgMTBtcyBEcm9wVGFpbAokbnMgZHVwbGV4LWxpbmstb3AgJG4xICRuMiBvcmllbnQgcmlnaHQtdXAKCiRucyBkdXBsZXgtbGluayAkbjIgJG4zIDEuN01iIDIwbXMgRHJvcFRhaWwKJG5zIGR1cGxleC1saW5rLW9wICRuMiAkbjMgb3JpZW50IHJpZ2h0CgojTGltaXRpbmcgdGhlIHF1ZXVlIHRvIG9ubHkgMTAgcGFja2V0cyAKJG5zIHF1ZXVlLWxpbWl0ICRuMCAkbjIgMTAKJG5zIHF1ZXVlLWxpbWl0ICRuMSAkbjIgMTAKJG5zIHF1ZXVlLWxpbWl0ICRuMiAkbjMgMTAKCiNDcmVhdGluZyBhIFRDUCBhZ2VudCBhbmQgY29ubmVjdGluZyBpdCB0byBuMQpzZXQgdGNwMSBbbmV3IEFnZW50L1RDUF0KCiNTcGVjaWZ5aW5nIHRjcCB0cmFmZmljIHRvIGhhdmUgYmx1ZSBjb2xvciBhcyBkZWZpbmVkIGluIHRoZSBzZWNvbmQgbGluZSBvZiB0aGUgcHJvZ3JhbQokdGNwMSBzZXQgZmlkXyAwCgokbnMgYXR0YWNoLWFnZW50ICRuMSAkdGNwMQoKI0NyZWF0aW5nIGEgU2luayBBZ2VudCBhbmQgYXR0YWNoaW5nIGl0IHRvIG4zCnNldCBzaW5rVENQMyBbbmV3IEFnZW50L1RDUFNpbmtdCiRucyBhdHRhY2gtYWdlbnQgJG4zICRzaW5rVENQMwoKI0Nvbm5lY3RpbmcgVENQIGFnZW50IHdpdGggU2luayBhZ2VudAokbnMgY29ubmVjdCAkdGNwMSAkc2lua1RDUDMKCgoKI1NwZWNpZnlpbmcgdGhlIFVEUCBhZ2VudApzZXQgdWRwMCBbbmV3IEFnZW50L1VEUF0KCiNTcGVjaWZ5aW5nIHVkcCB0cmFmZmljIHRvIGhhdmUgcmVkIGNvbG9yIGFzIGRlZmluZWQgaW4gdGhlIHNlY29uZCBsaW5lIG9mIHByb2dyYW0KJHVkcDAgc2V0IGZpZF8gMQoKI0F0dGFjaGluZyB0aGUgVURQIGFnZW50IHdpdGggbjAKJG5zIGF0dGFjaC1hZ2VudCAkbjAgJHVkcDAKCiNTcGVjaWZ5aW5nIHRoZSBOdWxsIGFnZW50CnNldCBudWxsMCBbbmV3IEFnZW50L051bGxdCgojQXR0YWNoaW5nIHRoZSBOVUxMIGFnZW50IHdpdGggbjMKJG5zIGF0dGFjaC1hZ2VudCAkbjMgJG51bGwwCgojQ29ubmVjdGluZyBib3RoIHVkcDAgYW5kIG51bGwwIGFnZW50cyBmb3IgdHJhbnNmZXJyaW5nIGRhdGEgYmV0d2VlbiBuMCBhbmQgbjEKJG5zIGNvbm5lY3QgJHVkcDAgJG51bGwwCgojQ3JlYXRpbmcgRlRQIGFnZW50IGZvciB0cmFmZmljIGFuZCBhdHRhY2hpbmcgaXQgdG8gdGNwMQpzZXQgZnRwMCBbbmV3IEFwcGxpY2F0aW9uL0ZUUF0KJGZ0cDAgYXR0YWNoLWFnZW50ICR0Y3AxCgojU3BlY2lmeWluZyB0aGUgQ0JSIGFnZW50IHRvIGdlbmVyYXRlIHRoZSB0cmFmZmljIG92ZXIgdWRwMCBhZ2VudApzZXQgY2JyMCBbbmV3IEFwcGxpY2F0aW9uL1RyYWZmaWMvQ0JSXQoKI0VhY2ggcGFja2V0IGhhdmluZyAxSyBieXRlcwokY2JyMCBzZXQgcGFja2V0U2l6ZV8gMTAwMAoKI0VhY2ggcGFja2V0IHdpbGwgYmUgZ2VuZXJhdGVkIGFmdGVyIDEwbXMgaS5lLiwgMTAwIHBhY2tldHMgcGVyIHNlY29uZAokY2JyMCBzZXQgaW50ZXJ2YWwgMC4wMTAgCgojQXR0YWNoaW5nIGNicjAgd2l0aCB1ZHAwCiRjYnIwIGF0dGFjaC1hZ2VudCAkdWRwMAoKI1N0YXJ0aW5nIHRoZSBGVFAgVHJhZmZpYwokbnMgYXQgMC41ICIkZnRwMCBzdGFydCIKJG5zIGF0IDQuMCAiJGZ0cDAgc3RvcCIKCiNTdGFydGluZyB0aGUgY2JyMCBhdCAwLjUgc2ltdWxhdGlvbiB0aW1lCiRucyBhdCAwLjEgIiRjYnIwIHN0YXJ0IgoKI1N0b3BpbmcgdGhlIGNicjAgYXQgNC41IHNpbXVsYXRpb24gdGltZQokbnMgYXQgNC41ICIkY2JyMCBzdG9wIgoKI0NhbGxpbmcgdGhlIGZpbmlzaCBwcm9jZWR1cmUKJG5zIGF0IDUuMCAiZmluaXNoIgoKI1J1biB0aGUgc2ltdWxhdGlvbgokbnMgcnVuCg==