i work in windows 7 using ns2.35 with aid of cygwin.
my tcl file.
Code:
# THIS PROGRAM CODE CONTAINS CODING TO GENERATE
#SIMULATOR
#TRACE FILE NAMTRACE FILE (OPEN CLOSE AND RUN)
#DEFINE MANY NODES- CONFIGURE THEM- CREATE NODES USING FOR LOOP
# PROVIDE INITIAL POSITION - SET DESTINATION AND MAKE THEM MOVE
#PROVIDE NODE NAME (HEADING FOR EACH NODE)
#ATTACH THE SOURCE & SINK AGENTS TO APPROPRIATE NODE & CONNECT BOTH
#AGENTS - UDP & UDP NULL
#ATTACH CBR TRAFFIC PROVIDER APPLICATION TO THE SOURCE NODE
#RUN SIMULATION
# Define options
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) 50 ;# max packet in ifq
set val(nn) 20 ;# number of mobilenodes
set val(rp) AODV ;# routing protocol
set val(x) 1000 ;# X dimension of topography
set val(y) 1000 ;# Y dimension of topography
set val(stop) 50 ;# time of simulation end
set ns [new Simulator]
set tracefd [open thesis4.tr w]
set namtrace [open thesis4.nam w]
$ns trace-all $tracefd
$ns namtrace-all-wireless $namtrace $val(x) $val(y)
# set up topography object
set topo [new Topography]
$topo load_flatgrid $val(x) $val(y)
create-god $val(nn)
#configure the nodes
set chan1 [new $val(chan)]
$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) \
-channel $chan1 \
-topoInstance $topo \
-agentTrace ON \
-routerTrace ON \
-macTrace OFF \
-movementTrace ON
for {set i 0} {$i < $val(nn) } { incr i } {
set n($i) [$ns node]
#$ns at 0.1 "$n($i) color blue"
}
# Provide initial location of mobilenodes
$n(0) set X_ 105.0
$n(0) set Y_ 206.0
$n(0) set Z_ 0.0
$n(1) set X_ 805.0
$n(1) set Y_ 742.0
$n(1) set Z_ 0.0
$n(2) set X_ 515.0
$n(2) set Y_ 606.0
$n(2) set Z_ 0.0
$n(3) set X_ 405.0
$n(3) set Y_ 342.0
$n(3) set Z_ 0.0
$n(4) set X_ 675.0
$n(4) set Y_ 156.0
$n(4) set Z_ 0.0
$n(5) set X_ 905.0
$n(5) set Y_ 549.0
$n(5) set Z_ 0.0
$n(6) set X_ 675.0
$n(6) set Y_ 336.0
$n(6) set Z_ 0.0
$n(7) set X_ 555.0
$n(7) set Y_ 762.0
$n(7) set Z_ 0.0
$n(8) set X_ 258.0
$n(8) set Y_ 646.0
$n(8) set Z_ 0.0
$n(9) set X_ 645.0
$n(9) set Y_ 522.0
$n(9) set Z_ 0.0
$n(10) set X_ 265.0
$n(10) set Y_ 376.0
$n(10) set Z_ 0.0
$n(11) set X_ 495.0
$n(11) set Y_ 502.0
$n(11) set Z_ 0.0
$n(12) set X_ 75.0
$n(12) set Y_ 426.0
$n(12) set Z_ 0.0
$n(13) set X_ 145.0
$n(13) set Y_ 119.0
$n(13) set Z_ 0.0
$n(14) set X_ 85.0
$n(14) set Y_ 702.0
$n(14) set Z_ 0.0
$n(15) set X_ 340.0
$n(15) set Y_ 36.0
$n(15) set Z_ 0.0
$n(16) set X_ 758.0
$n(16) set Y_ 602.0
$n(16) set Z_ 0.0
$n(17) set X_ 435.0
$n(17) set Y_ 186.0
$n(17) set Z_ 0.0
$n(18) set X_ 5.0
$n(18) set Y_ 2.0
$n(18) set Z_ 0.0
$n(19) set X_ 515.0
$n(19) set Y_ 366.0
$n(19) set Z_ 0.0
# Set a TCP connection between n(1) and n(13)
set udp [new Agent/UDP] ;#use UDP to connect to sender node1
#$tcp set class_ 2
set null [new Agent/Null] ;#use NULL to attach to reciever node2
$ns attach-agent $n(1) $udp
$ns attach-agent $n(13) $null
$ns connect $udp $null ;#connect UDP AND NULL
set cbr1 [new Application/Traffic/CBR]
$cbr1 set packetSize_ 1000
$cbr1 set rate_ 200kb
$cbr1 set interval_ 0.02
$cbr1 attach-agent $udp ;#cbr object attached to udp
$ns at 2.0 "$cbr1 start"
#defining heads
$ns at 0.0 "$n(0) label CH"
$ns at 0.0 "$n(1) label Source"
$ns at 0.0 "$n(13) label Destination"
$ns at 0.0 "$n(2) label N2"
#new location after move
$ns at 0.0 "$n(0) setdest 130.0 208.0 5.0"
$ns at 0.0 "$n(1) setdest 485.0 128.0 5.0"
$ns at 1.0 "$n(2) setdest 615.0 340.0 5.0"
$ns at 1.0 "$n(3) setdest 680.0 458.0 5.0"
$ns at 3.0 "$n(4) setdest 580.0 368.0 5.0"
$ns at 3.0 "$n(5) setdest 785.0 228.0 5.0"
$ns at 2.0 "$n(6) setdest 750.0 638.0 5.0"
$ns at 1.0 "$n(7) setdest 185.0 120.0 5.0"
$ns at 0.0 "$n(8) setdest 335.0 700.0 5.0"
$ns at 2.0 "$n(9) setdest 425.0 590.0 5.0"
$ns at 2.0 "$n(10) setdest 105.0 620.0 5.0"
$ns at 0.0 "$n(11) setdest 565.0 420.0 5.0"
$ns at 1.0 "$n(12) setdest 700.0 20.0 5.0"
$ns at 1.0 "$n(13) setdest 115.0 85.0 5.0"
$ns at 1.0 "$n(14) setdest 195.0 185.0 5.0"
$ns at 1.0 "$n(15) setdest 387.0 590.0 5.0"
$ns at 2.0 "$n(16) setdest 165.0 620.0 5.0"
$ns at 0.0 "$n(17) setdest 765.0 320.0 5.0"
$ns at 1.0 "$n(18) setdest 109.0 20.0 5.0"
$ns at 1.0 "$n(19) setdest 175.0 185.0 5.0"
# Define node initial position in nam
for {set i 0} {$i < $val(nn)} { incr i } {
#80 defines the node size for nam
$ns initial_node_pos $n($i) 80
}
# ending nam and the simulation
$ns at 40 "$cbr1 stop"
#$ns at $val(stop) "$ns nam-end-wireless $val(stop)"
$ns at $val(stop) "stop"
$ns at 50.01 "puts \"end simulation\" ; #$ns halt"
proc stop {} {
global ns tracefd namtrace
$ns flush-trace
close $tracefd
close $namtrace
exec nam thesis4.nam &
puts "nam"
#exec Xgraph thesis4.tr &
exit 0
}
$ns run
used command to run : ns thesis4.tcl
o/p got .nam & .tr files
1.now i want to find the throughput ,packet delivery ratio, control overhead and end to end delay
sample code to find throughput:
Code:
BEGIN {
recvdSize = 0
startTime = 400
stopTime = 0
}
{
event = $1
time = $2
node_id = $3
pkt_size = $8
level = $4
# Store start time
if (level == "AGT" && event == "s" && pkt_size >= 512) {
if (time < startTime) {
startTime = time
}
}
# Update total received packets' size and store packets arrival time
if (level == "AGT" && event == "r" && pkt_size >= 512) {
if (time > stopTime) {
stopTime = time
}
# Rip off the header
hdr_size = pkt_size % 512
pkt_size -= hdr_size
# Store received packet's size
recvdSize += pkt_size
}
}
END {
printf("Average Throughput[kbps] = %.2f\t\t StartTime=%.2f\tStopTime=%.2f\n",(recvdSize/(stopTime-startTime))*(8/1000),startTime,stopTime)
}
commmand used 0t runto run:
awk -f filename.awk
filename .tr
