Scribd
Upload
23 views7 pages

Xgraph

The document outlines a simulation script for a network scenario using NS2, defining nodes, links, agents, and applications. It sets up TCP and UDP connections, records congestion window sizes at specific nodes, and generates output files for analysis. The simulation runs for a specified duration and terminates by closing trace files and executing visualization tools for the results.

Uploaded by

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

Xgraph

The document outlines a simulation script for a network scenario using NS2, defining nodes, links, agents, and applications. It sets up TCP and UDP connections, records congestion window sizes at specific nodes, and generates output files for analysis. The simulation runs for a specified duration and terminates by closing trace files and executing visualization tools for the results.

Uploaded by

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

The code is written according to the diagram shown below.

To access x graph for cw2 and cw6:


exec <path where your xgraph exec file present>/xgraph cw6.out &
exec <path where your xgraph exec file present>/xgraph cw2.out

# This script is created by NSG2 beta1


# <http://wushoupong.googlepages.com/nsg>

#===================================
# Simulation parameters setup
#===================================
set val(stop) 20;# time of simulation end

#===================================
# Initialization
#===================================
#Create a ns simulator
set ns [new Simulator]

#Open the NS trace file


set tracefile [open out.tr w]
$ns trace-all $tracefile

#Open the NAM trace file


set namfile [open out.nam w]
$ns namtrace-all $namfile
set file6 [open cw6.out w]
puts $file6 "Title = Congestion Window @ Node 6"
puts $file6 "title_x = Time in Sec"
puts $file6 "title_y = Window Size"

set file2 [open cw2.out w]


puts $file2 "Title = Congestion Window @ Node 2"
puts $file2 "title_x = Time in Sec"
puts $file2 "title_y = Window Size"

#===================================
# Nodes Definition
#===================================
#Create 7 nodes
set n0 [$ns node]
set n1 [$ns node]
set n2 [$ns node]
set n3 [$ns node]
set n4 [$ns node]
set n5 [$ns node]
set n6 [$ns node]

#===================================
# Links Definition
#===================================
#Createlinks between nodes
$ns duplex-link $n0 $n1 100.0Mb 10ms DropTail
$ns queue-limit $n0 $n1 100
$ns duplex-link $n0 $n2 100.0Mb 10ms DropTail
$ns queue-limit $n0 $n2 50
$ns duplex-link $n0 $n3 100.0Mb 10ms DropTail
$ns queue-limit $n0 $n3 50
$ns duplex-link $n0 $n4 100.0Mb 10ms DropTail
$ns queue-limit $n0 $n4 50
$ns duplex-link $n1 $n5 100.0Mb 10ms DropTail
$ns queue-limit $n1 $n5 50
$ns duplex-link $n1 $n6 100.0Mb 10ms DropTail
$ns queue-limit $n1 $n6 50

#===================================
# Agents Definition
#===================================
#Setup a TCP connection (n6 to n4)
set tcp0 [new Agent/TCP]
$ns attach-agent $n6 $tcp0
set sink0 [new Agent/TCPSink]
$ns attach-agent $n4 $sink0
$ns connect $tcp0 $sink0
$tcp0 set packetSize_ 3000
#Setup a TCP connection (n2 to n5)
set tcp1 [new Agent/TCP]
$ns attach-agent $n2 $tcp1
set sink1 [new Agent/TCPSink]
$ns attach-agent $n5 $sink1
$ns connect $tcp1 $sink1
$tcp1 set packetSize_ 1500

#Setup a UDP connection (n6 to n4)


set udp0 [new Agent/UDP]
$ns attach-agent $n6 $udp0
set sink1 [new Agent/LossMonitor]
$ns attach-agent $n4 $sink1
$ns connect $udp0 $sink1
$udp0 set packetSize_ 1500

#===================================
# Applications Definition
#===================================
#Setup a FTP Application over TCP connection
set ftp0 [new Application/FTP]
$ftp0 attach-agent $tcp0

#Setup a FTP Application over 2nd TCP connection


set ftp1 [new Application/FTP]
$ftp1 attach-agent $tcp1

#Setup a CBR Application over UDP connection


set cbr0 [new Application/Traffic/CBR]
$cbr0 attach-agent $udp0
$cbr0 set rate_ 99.9Mb
$cbr0 set random_ null

proc record {} {
global tcp0 tcp1 file6 file2

#Get an instance of the simulator


set ns [Simulator instance]

#Set the time after which the procedure should be called again
set time 0.5

#How many bytes have been received by the traffic sinks?


set cw6 [$tcp0 set cwnd_]
set cw2 [$tcp1 set cwnd_]

#Get the current time


set now [$ns now]
puts $file6 "$now $cw6"
puts $file2 "$now $cw2"# This script is created by NSG2 beta1
# <http://wushoupong.googlepages.com/nsg>

#===================================
# Simulation parameters setup
#===================================
set val(stop) 20.0 ;# time of simulation end

#===================================
# Initialization
#===================================
#Create a ns simulator
set ns [new Simulator]

#Open the NS trace file


set tracefile [open out.tr w]
$ns trace-all $tracefile

#Open the NAM trace file


set namfile [open out.nam w]
$ns namtrace-all $namfile

set file6 [open cw6.out w]


puts $file6 "Title = Congestion Window @ Node 6"
puts $file6 "title_x = Time in Sec"
puts $file6 "title_y = Window Size"

set file2 [open cw2.out w]


puts $file2 "Title = Congestion Window @ Node 2"
puts $file2 "title_x = Time in Sec"
puts $file2 "title_y = Window Size"

#===================================
# Nodes Definition
#===================================
#Create 7 nodes
set n0 [$ns node]
set n1 [$ns node]
set n2 [$ns node]
set n3 [$ns node]
set n4 [$ns node]
set n5 [$ns node]
set n6 [$ns node]

#===================================
# Links Definition
#===================================
#Createlinks between nodes
$ns duplex-link $n1 $n0 100.0Mb 10ms DropTail
$ns queue-limit $n1 $n0 50
$ns duplex-link $n0 $n4 100.0Mb 10ms DropTail
$ns queue-limit $n0 $n4 50
$ns duplex-link $n3 $n0 100.0Mb 10ms DropTail
$ns queue-limit $n3 $n0 50
$ns duplex-link $n0 $n2 100.0Mb 10ms DropTail
$ns queue-limit $n0 $n2 50
$ns duplex-link $n1 $n5 100.0Mb 10ms DropTail
$ns queue-limit $n1 $n5 50
$ns duplex-link $n1 $n6 100.0Mb 10ms DropTail
$ns queue-limit $n1 $n6 50

#Give node position (for NAM)


$ns duplex-link-op $n1 $n0 orient left

$ns duplex-link-op $n0 $n4 orient left-up


$ns duplex-link-op $n3 $n0 orient right
$ns duplex-link-op $n0 $n2 orient left-down
$ns duplex-link-op $n1 $n5 orient right-down
$ns duplex-link-op $n1 $n6 orient right-up

#===================================
# Agents Definition
#===================================
#Setup a TCP connection
set tcp0 [new Agent/TCP]
$ns attach-agent $n6 $tcp0
set sink2 [new Agent/TCPSink]
$ns attach-agent $n3 $sink2
$ns connect $tcp0 $sink2
$tcp0 set packetSize_ 3000

#Setup a TCP connection


set tcp1 [new Agent/TCP]
$ns attach-agent $n2 $tcp1
set sink4 [new Agent/TCPSink]
$ns attach-agent $n5 $sink4
$ns connect $tcp1 $sink4
$tcp1 set packetSize_ 1500

#Setup a UDP connection


set udp5 [new Agent/UDP]
$ns attach-agent $n6 $udp5
set null6 [new Agent/Null]
$ns attach-agent $n3 $null6
$ns connect $udp5 $null6
$udp5 set packetSize_ 1500
#===================================
# Applications Definition
#===================================
#Setup a FTP Application over TCP connection
set ftp0 [new Application/FTP]
$ftp0 attach-agent $tcp0

#Setup a FTP Application over TCP connection


set ftp1 [new Application/FTP]
$ftp1 attach-agent $tcp1

#Setup a CBR Application over UDP connection


set cbr2 [new Application/Traffic/CBR]
$cbr2 attach-agent $udp5
$cbr2 set rate_ 99.9Mb
$cbr2 set random_ null

proc record {} {
global tcp0 tcp1 file6 file2
set ns [Simulator instance]
set time 0.5
set cw6 [$tcp0 set cwnd_]
set cw2 [$tcp1 set cwnd_]

set now [$ns now]


puts $file6 "$now $cw6"
puts $file2 "$now $cw2"
$ns at [expr $now+$time] "record"
}

$ns at 1.0 "record"


$ns at 2.0 "$ftp0 start"
$ns at 4.0 "$ftp1 start"
$ns at 10.0 "$cbr2 start"
$ns at 15.0 "$cbr2 stop"
$ns at 17.0 "$ftp1 stop"
$ns at 19.0 "$ftp0 stop"

#===================================
# Termination
#===================================
#Define a 'finish' procedure
proc finish {} {
global ns tracefile namfile file6 file2
$ns flush-trace
close $tracefile
close $namfile
close $file6
close $file2
exec nam out.nam &
exec /home/nandita/Desktop/NS2\ Essentials/XGraph4.38_linux64/bin/xgraph
cw6.out &
exec /home/nandita/Desktop/NS2\ Essentials/XGraph4.38_linux64/bin/xgraph
cw2.out &
exit 0
}
$ns at $val(stop) "finish"
$ns runaph cw6.out &
exec /home/vadis1108/Downloads/xgraph/bin/xgraph cw2.out &
exit 0
}
$ns at $val(stop) "finish"
$ns run

You might also like