# ====================================================================
# Define Node Configuration paramaters
#====================================================================
set val(chan) Channel/WirelessChannel ;# channel type
set val(prop) Propagation/TwoRayGround ;# radio-propagation
model
set val(netif) Phy/WirelessPhy ;# network interface type
set val(mac) Mac/802_11 ;# MAC type
set val(ifq) Queue/DropTail/PriQueue ;# interface queue type
set val(ll) LL ;# link layer type
set val(ant) Antenna/OmniAntenna ;# antenna model
set val(ifqlen) 150 ;# max packet in ifq
set val(nn) 15 ;# number of mobilenodes
set val(rp) AODV ;# routing protocol
set val(x) 800 ;# X dimension of the topography
set val(y) 800 ;# Y dimension of the topography
Mac/802_11 set RTSThreshold_ 3000
Mac/802_11 set basicRate_ 1Mb
Mac/802_11 set dataRate_ 2Mb
#=====================================================================
# Initialize trace file desctiptors
#=====================================================================
# *** Throughput Trace ***
set f0 [open out02.tr w]
set f1 [open out12.tr w]
set f2 [open out22.tr w]
set f3 [open out32.tr w]
# *** Packet Loss Trace ***
set f4 [open lost02.tr w]
set f5 [open lost12.tr w]
set f6 [open lost22.tr w]
set f7 [open lost32.tr w]
# *** Packet Delay Trace ***
set f8 [open delay02.tr w]
set f9 [open delay12.tr w]
set f10 [open delay22.tr w]
set f11 [open delay32.tr w]
# *** Initialize Simulator ***
set ns_ [new Simulator]
# *** Initialize Trace file ***
set tracefd [open trace2.tr w]
$ns_ trace-all $tracefd
# *** Initialize Network Animator ***
set namtrace [open sim12.nam w]
$ns_ namtrace-all-wireless $namtrace $val(x) $val(y)
# *** set up topography object ***
set topo [new Topography]
$topo load_flatgrid 800 800
# Create General Operations Director (GOD) object. It is used to store
# global information about the state of the environment, network, or nodes
# that an
# omniscent observer would have, but that should not be made known to any
#participant in the simulation.
create-god $val(nn)
# configure nodes
$ns_ node-config -adhocRouting $val(rp) \
-llType $val(ll) \
-macType $val(mac) \
-ifqType $val(ifq) \
-ifqLen $val(ifqlen) \
-antType $val(ant) \
-propType $val(prop) \
-phyType $val(netif) \
-channelType $val(chan) \
-topoInstance $topo \
-agentTrace ON \
-routerTrace ON \
-macTrace OFF \
-movementTrace OFF
# Create Nodes
for {set i 0} {$i < $val(nn) } {incr i} {
set node_($i) [$ns_ node]
$node_($i) random-motion 0 ;# disable random motion
}
# define color index
$ns_ color 0 blue
$ns_ color 1 red
$ns_ color 2 chocolate
$ns_ color 3 red
$ns_ color 4 brown
$ns_ color 5 tan
$ns_ color 6 gold
$ns_ color 7 black
# Initialize Node Coordinates
#$node_(0) set X_ 5.0
#$node_(0) set Y_ 5.0
#$node_(0) set Z_ 0.0
#$node_(1) set X_ 200.0
#$node_(1) set Y_ 5.0
#$node_(1) set Z_ 0.0
#$node_(2) set X_ 5.0
#$node_(2) set Y_ 50.0
#$node_(2) set Z_ 0.0
#$node_(3) set X_ 200.0
#$node_(3) set Y_ 50.0
#$node_(3) set Z_ 0.0
#$node_(4) set X_ 5.0
#$node_(4) set Y_ 100.0
#$node_(4) set Z_ 0.0
#$node_(5) set X_ 200.0
#$node_(5) set Y_ 100.0
#$node_(5) set Z_ 0.0
#$node_(6) set X_ 2.0
#$node_(6) set Y_ 150.0
#$node_(6) set Z_ 0.0
#$node_(7) set X_ 200.0
#$node_(7) set Y_ 150.0
#$node_(7) set Z_ 0.0
#$node_(8) set X_ 7.0
#$node_(8) set Y_ 200.0
#$node_(8) set Z_ 0.0
#$node_(9) set X_ 200.0
#$node_(9) set Y_ 200.0
#$node_(9) set Z_ 0.0
#$node_(10) set X_ 27.0
#$node_(10) set Y_ 400.0
#$node_(10) set Z_ 0.0
#$node_(11) set X_ 470.0
#$node_(11) set Y_ 20.0
#$node_(11) set Z_ 0.0
$node_(0) set X_ 5.0
$node_(0) set Y_ 5.0
$node_(0) set Z_ 0.0
$node_(1) set X_ 490.0
$node_(1) set Y_ 285.0
$node_(1) set Z_ 0.0
$node_(2) set X_ 150.0
$node_(2) set Y_ 240.0
$node_(2) set Z_ 0.0
$node_(3) set X_ 20.0
$node_(3) set Y_ 80.0
$node_(3) set Z_ 0.0
$node_(4) set X_ 520.0
$node_(4) set Y_ 330.0
$node_(4) set Z_ 0.0
$node_(5) set X_ 200.0
$node_(5) set Y_ 400.0
$node_(5) set Z_ 0.0
$node_(6) set X_ 330.0
$node_(6) set Y_ 580.0
$node_(6) set Z_ 0.0
$node_(7) set X_ 210.0
$node_(7) set Y_ 100.0
$node_(7) set Z_ 0.0
$node_(8) set X_ 420.0
$node_(8) set Y_ 270.0
$node_(8) set Z_ 0.0
$node_(9) set X_ 560.0
$node_(9) set Y_ 165.0
$node_(9) set Z_ 0.0
$node_(10) set X_ 450.0
$node_(10) set Y_ 75.0
$node_(10) set Z_ 0.0
$node_(11) set X_ 700.0
$node_(11) set Y_ 280.0
$node_(11) set Z_ 0.0
$node_(12) set X_ 110.0
$node_(12) set Y_ 700.0
$node_(12) set Z_ 0.0
$node_(13) set X_ 610.0
$node_(13) set Y_ 175.0
$node_(13) set Z_ 0.0
$node_(14) set X_ 430.0
$node_(14) set Y_ 120.0
$node_(14) set Z_ 0.0
$node_(0) color red
$node_(1) color red
$node_(2) color blue
$node_(3) color blue
$node_(4) color tan
$node_(5) color tan
$node_(6) color brown
$node_(7) color brown
$ns_ at 1.4 "$node_(0) color red"
$ns_ at 1.4 "$node_(0) label S1"
$ns_ at 1.4 "$node_(1) color red"
$ns_ at 1.4 "$node_(1) label D1"
$ns_ at 10.0 "$node_(2) color blue"
$ns_ at 10.0 "$node_(2) label S2"
$ns_ at 10.0 "$node_(3) color blue"
$ns_ at 10.0 "$node_(3) label D2"
$ns_ at 20.0 "$node_(4) color green"
$ns_ at 20.0 "$node_(4) label S3"
$ns_ at 20.0 "$node_(5) color green"
$ns_ at 20.0 "$node_(5) label D3"
$ns_ at 30.0 "$node_(6) color brown"
$ns_ at 30.0 "$node_(6) label S4"
$ns_ at 30.0 "$node_(7) color brown"
$ns_ at 30.0 "$node_(7) label D4"
$ns_ at 0.0 "$node_(0) setdest 250.0 250.0 3.0"
$ns_ at 3.0 "$node_(1) setdest 45.0 285.0 5.0"
$ns_ at 10.0 "$node_(0) setdest 480.0 300.0 5.0"
$ns_ at 8.0 "$node_(3) setdest 420.0 180.0 3.0"
$ns_ at 4.0 "$node_(4) setdest 100.0 256.0 3.0"
$ns_ at 9.0 "$node_(5) setdest 120.0 355.0 5.0"
$ns_ at 17.0 "$node_(3) setdest 600.0 200.0 5.0"
$ns_ at 2.0 "$node_(6) setdest 700.0 400.0 3.0"
$ns_ at 4.0 "$node_(7) setdest 500.0 150.0 5.0"
$ns_ at 6.0 "$node_(6) setdest 580.0 120.0 5.0"
$ns_ at 5.0 "$node_(5) setdest 490.0 25.0 3.0"
$ns_ at 3.0 "$node_(2) setdest 310.0 300.0 5.0"
$ns_ at 2.0 "$node_(8) setdest 550.0 120.0 3.0"
$ns_ at 4.0 "$node_(9) setdest 620.0 240.0 5.0"
$ns_ at 7.0 "$node_(10) setdest 430.0 190.0 5.0"
$ns_ at 4.0 "$node_(11) setdest 760.0 410.0 5.0"
$ns_ at 4.0 "$node_(12) setdest 545.0 280.0 5.0"
$ns_ at 7.0 "$node_(13) setdest 324.0 330.0 5.0"
$ns_ at 4.0 "$node_(14) setdest 740.0 10.0 5.0"
# Setup traffic flow between nodes
# TCP connections between node_(0) and node_(1)
# Create Constant four Bit Rate Traffic sources
set agent1 [new Agent/UDP] ;# Create TCP Agent
$agent1 set prio_ 0 ;# Set Its priority to 0
# Create Loss Monitor Sink in order to be able to trace the number obytes
# received
set sink [new Agent/LossMonitor]
$ns_ attach-agent $node_(0) $agent1 ;# Attach Agent to source node
$ns_ attach-agent $node_(1) $sink ;# Attach Agent to sink node
$ns_ connect $agent1 $sink ;# Connect the nodes
# Create Constant Bit Rate #application
set app1 [new Application/Traffic/CBR]
$app1 set packetSize_ 512 ;# Set Packet Size to 512 bytes
$app1 set rate_ 600Kb ;# Set CBR rate to 200 Kbits/sec
$app1 attach-agent $agent1 ;# Attach Application to agent
set agent2 [new Agent/UDP] ;# Create TCP Agent
$agent2 set prio_ 1 ;# Set Its priority to 1
# Create Loss Monitor Sink in order to be able to trace the number obytes
# received
set sink2 [new Agent/LossMonitor]
$ns_ attach-agent $node_(2) $agent2 ;# Attach Agent to source node
$ns_ attach-agent $node_(3) $sink2 ;# Attach Agent to sink node
$ns_ connect $agent2 $sink2 ;# Connect the nodes
# Create Constant Bit Rate application
set app2 [new Application/Traffic/CBR]
$app2 set packetSize_ 512 ;# Set Packet Size to 512 bytes
$app2 set rate_ 600Kb ;# Set CBR rate to 200 Kbits/sec
$app2 attach-agent $agent2 ;# Attach Application to agent
set agent3 [new Agent/UDP] ;# Create TCP Agent
$agent3 set prio_ 2 ;# Set Its priority to 2
# Create Loss Monitor Sink in order to be able to trace the number obytes
# received
set sink3 [new Agent/LossMonitor]
$ns_ attach-agent $node_(4) $agent3 ;# Attach Agent to source node
$ns_ attach-agent $node_(5) $sink3 ;# Attach Agent to sink node
$ns_ connect $agent3 $sink3 ;# Connect the nodes
# Create Constant Bit Rate application
set app3 [new Application/Traffic/CBR]
$app3 set packetSize_ 512 ;# Set Packet Size to 512 bytes
$app3 set rate_ 600Kb ;# Set CBR rate to 200 Kbits/sec
$app3 attach-agent $agent3 ;# Attach Application to agent
set agent4 [new Agent/UDP] ;# Create TCP Agent
$agent4 set prio_ 3 ;# Set Its priority to 3
# Create Loss Monitor Sink in order to be able to trace the number obytes
# received
set sink4 [new Agent/LossMonitor]
$ns_ attach-agent $node_(6) $agent4 ;# Attach Agent to source node
$ns_ attach-agent $node_(7) $sink4 ;# Attach Agent to sink node
$ns_ connect $agent4 $sink4 ;# Connect the nodes
# Create Constant Bit Rate application
set app4 [new Application/Traffic/CBR]
$app4 set packetSize_ 512 ;# Set Packet Size to 512 bytes
$app4 set rate_ 600Kb ;# Set CBR rate to 200 Kbits/sec
$app4 attach-agent $agent4 ;# Attach Application to agent
# defines the node size in Network Animator
for {set i 0} {$i < $val(nn)} {incr i} {
$ns_ initial_node_pos $node_($i) 40
}
# Initialize Flags
set holdtime 0
set holdseq 0
set holdtime1 0
set holdseq1 0
set holdtime2 0
set holdseq2 0
set holdtime3 0
set holdseq3 0
set holdrate1 0
set holdrate2 0
set holdrate3 0
set holdrate4 0
# Function To record Statistcis (Bit Rate, Delay, Drop)
proc record {} {
global sink sink2 sink3 sink4 f0 f1 f2 f3 f4 f5 f6 f7 holdtime
holdseq holdtime1 holdseq1 holdtime2 holdseq2 holdtime3 holdseq3 f8 f9 f10
f11 holdrate1 holdrate2 holdrate3 holdrate4
set ns [Simulator instance]
set time 0.9 ;#Set Sampling Time to 0.9 Sec
set bw0 [$sink set bytes_]
set bw1 [$sink2 set bytes_]
set bw2 [$sink3 set bytes_]
set bw3 [$sink4 set bytes_]
set bw4 [$sink set nlost_]
set bw5 [$sink2 set nlost_]
set bw6 [$sink3 set nlost_]
set bw7 [$sink4 set nlost_]
set bw8 [$sink set lastPktTime_]
set bw9 [$sink set npkts_]
set bw10 [$sink2 set lastPktTime_]
set bw11 [$sink2 set npkts_]
set bw12 [$sink3 set lastPktTime_]
set bw13 [$sink3 set npkts_]
set bw14 [$sink4 set lastPktTime_]
set bw15 [$sink4 set npkts_]
set now [$ns now]
# Record Bit Rate in Trace Files
puts $f0 "$now [expr (($bw0+$holdrate1)*8)/(2*$time*1000000)]"
puts $f1 "$now [expr (($bw1+$holdrate2)*8)/(2*$time*1000000)]"
puts $f2 "$now [expr (($bw2+$holdrate3)*8)/(2*$time*1000000)]"
puts $f3 "$now [expr (($bw3+$holdrate4)*8)/(2*$time*1000000)]"
# Record Packet Loss Rate in File
puts $f4 "$now [expr $bw4/$time]"
puts $f5 "$now [expr $bw5/$time]"
puts $f6 "$now [expr $bw6/$time]"
puts $f7 "$now [expr $bw7/$time]"
# Record Packet Delay in File
if { $bw9 > $holdseq } {
puts $f8 "$now [expr ($bw8 - $holdtime)/($bw9 - $holdseq)]"
} else {
puts $f8 "$now [expr ($bw9 - $holdseq)]"
}
if { $bw11 > $holdseq1 } {
puts $f9 "$now [expr ($bw10 - $holdtime1)/($bw11 - $holdseq1)]"
} else {
puts $f9 "$now [expr ($bw11 - $holdseq1)]"
}
if { $bw13 > $holdseq2 } {
puts $f10 "$now [expr ($bw12 - $holdtime2)/($bw13 - $holdseq2)]"
} else {
puts $f10 "$now [expr ($bw13 - $holdseq2)]"
}
if { $bw15 > $holdseq3 } {
puts $f11 "$now [expr ($bw14 - $holdtime3)/($bw15 - $holdseq3)]"
} else {
puts $f11 "$now [expr ($bw15 - $holdseq3)]"
}
# Reset Variables
$sink set bytes_ 0
$sink2 set bytes_ 0
$sink3 set bytes_ 0
$sink4 set bytes_ 0
$sink set nlost_ 0
$sink2 set nlost_ 0
$sink3 set nlost_ 0
$sink4 set nlost_ 0
set holdtime $bw8
set holdseq $bw9
set holdrate1 $bw0
set holdrate2 $bw1
set holdrate3 $bw2
set holdrate4 $bw3
$ns at [expr $now+$time] "record" ;# Schedule Record after $time
#interval sec
}
# Start Recording at Time 0
$ns_ at 0.0 "record"
$ns_ at 1.4 "$app1 start" ;# Start transmission at time t = 1.4 Sec
$ns_ at 10.0 "$app2 start" ;# Start transmission at time t = 10 Sec
$ns_ at 20.0 "$app3 start" ;# Start transmission at time t = 20 Sec
$ns_ at 30.0 "$app4 start" ;# Start transmission at time t = 30 Sec
# Stop Simulation at Time 80 sec
$ns_ at 80.0 "stop"
# Reset Nodes at time 80 sec
for {set i 0} {$i < $val(nn) } {incr i} {
$ns_ at 80.0 "$node_($i) reset";
}
# Exit Simulatoion at Time 80.01 sec
$ns_ at 80.01 "puts \"NS EXITING...\" ; $ns_ halt"
proc stop {} {
global ns_ tracefd f0 f1 f2 f3 f4 f5 f6 f7 f8 f9 f10 f11
# Close Trace Files
close $f0
close $f1
close $f2
close $f3
close $f4
close $f5
close $f6
close $f7
close $f8
close $f9
close $f10
close $f11
# Plot Recorded Statistics
exec xgraph out02.tr out12.tr out22.tr out32.tr -geometry 800x400 &
exec xgraph lost02.tr lost12.tr lost22.tr lost32.tr -geometry
800x400 &
exec xgraph delay02.tr delay12.tr delay22.tr delay32.tr -geometry
800x400 &
exec nam sim12.nam &
# Reset Trace File
$ns_ flush-trace
close $tracefd
exit 0
}
puts "Starting Simulation..."
$ns_ run
--
View this message in context:
http://network-simulator-ns-2.7690.n7.nabble.com/Wireless-Ad-Hoc-Network-tp26010p26016.html
Sent from the ns-users mailing list archive at Nabble.com.
