Scribd
Upload
11 views9 pages

Number Choosen: Performed Experiment: Wireless Network Practical Exam Aim: Ns2 Script

The document details an experiment conducted by Ms. Shubham Gaddam to implement a Wireless Personal Area Network (WPAN) using ZigBee in NS2. The experiment involved configuring two nodes, defining network parameters, and simulating data transmission to calculate throughput. The conclusion confirms successful implementation and performance measurement of the ZigBee network.

Uploaded by

Swara Berde
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
11 views9 pages

Number Choosen: Performed Experiment: Wireless Network Practical Exam Aim: Ns2 Script

The document details an experiment conducted by Ms. Shubham Gaddam to implement a Wireless Personal Area Network (WPAN) using ZigBee in NS2. The experiment involved configuring two nodes, defining network parameters, and simulating data transmission to calculate throughput. The conclusion confirms successful implementation and performance measurement of the ZigBee network.

Uploaded by

Swara Berde
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/ 9

Ms.Shubham Gaddam Sr.No.

: 10 XIEEXTC131444

NUMBER CHOOSEN: 3 (Added 2 to it and therefore performed Experiment No.: 5)


PERFORMED EXPERIMENT: 5
WIRELESS NETWORK PRACTICAL EXAM
AIM: To Implement WPAN (ZigBee)
NS2 SCRIPT:
=================================Start==============================
===
set stopTime 100
set BO 3
set SO 3
set speed 1
#speed is in m/s

#
==================================================================
====
# Define options
#
==================================================================
====
set val(chan) Channel/WirelessChannel ;# Channel Type
set val(prop) Propagation/TwoRayGround ;# radio-propagation model
set val(netif) Phy/WirelessPhy/802_15_4
set val(mac) Mac/802_15_4
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) 2 ;# number of mobilenodes
set val(rp) AODV ;# routing protocol
set val(x) 50
set val(y) 50
Ms.Shubham Gaddam Sr.No.: 10 XIEEXTC131444

set opt(err) UniformErrorProc

set val(nam) 2nodes.nam


set val(traffic) cbr ;# cbr/poisson/ftp

#read command line arguments


proc getCmdArgu {argc argv} {
global val
for {set i 0} {$i < $argc} {incr i} {
set arg [lindex $argv $i]
if {[string range $arg 0 0] != "-"} continue
set name [string range $arg 1 end]
set val($name) [lindex $argv [expr $i+1]]
}
}
getCmdArgu $argc $argv

##This is optional error model. you can delete it if u dont need it


proc UniformErrorProc {} {
# puts "useing error model-"
set err [new ErrorModel]
# $err unit pkt
$err set rate_ 0.05
return $err
}

# Initialize Global Variables


set ns_ [new Simulator]
set tracefd [open ./2nodes.tr w]
$ns_ trace-all $tracefd
Ms.Shubham Gaddam Sr.No.: 10 XIEEXTC131444

if { "$val(nam)" == "2nodes.nam" } {
set namtrace [open ./$val(nam) w]
$ns_ namtrace-all-wireless $namtrace $val(x) $val(y)
}

$ns_ puts-nam-traceall {# nam4wpan #} ;# inform nam that this is a trace file for
wpan (special handling needed)

#Mac/802_15_4 wpanNam macType $para1 # added by pranesh


Mac/802_15_4 wpanCmd verbose on
Mac/802_15_4 wpanNam namStatus on ;# default = off (should be turned on
before other 'wpanNam' commands can work)
#Mac/802_15_4 wpanNam ColFlashClr gold ;# default = gold

# For model 'TwoRayGround'


set dist(5m) 7.69113e-06
set dist(9m) 2.37381e-06
set dist(10m) 1.92278e-06
set dist(11m) 1.58908e-06
set dist(12m) 1.33527e-06
set dist(13m) 1.13774e-06
set dist(14m) 9.81011e-07
set dist(15m) 8.54570e-07
set dist(16m) 7.51087e-07
set dist(20m) 4.80696e-07
set dist(25m) 3.07645e-07
set dist(30m) 2.13643e-07
set dist(35m) 1.56962e-07
set dist(40m) 1.20174e-07
Phy/WirelessPhy set CSThresh_ $dist(15m)
Phy/WirelessPhy set RXThresh_ $dist(15m)
Ms.Shubham Gaddam Sr.No.: 10 XIEEXTC131444

# set up topography object


set topo [new Topography]
$topo load_flatgrid $val(x) $val(y)
#ns-random 1 gives same result in trace file everytime simulation is done
#ns-random 0 gives different result in trace file when simulated
ns-random 0
# Create God
set god_ [create-god $val(nn)]
set chan_1_ [new $val(chan)]

# configure node
$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) \
-topoInstance $topo \
-agentTrace ON \
-routerTrace OFF \
-macTrace ON \
-movementTrace OFF \
-energyModel "EnergyModel" \
-initialEnergy 10 \
-idlePower 0.00279 \
-rxPower 0.0565 \
-txPower 0.048 \
Ms.Shubham Gaddam Sr.No.: 10 XIEEXTC131444

-sleepPower 0.000030 \
-transitionPower 0.002 \
-transitionTime 0.0002 \
-IncomingErrProc $opt(err) \
-channel $chan_1_

for {set i 0} {$i < $val(nn) } {incr i} {


set node_($i) [$ns_ node]
$node_($i) random-motion 0 ;# disable random motion
}
##initial postion of node 0 and node 1
$node_(0) set X_ 25.0
$node_(0) set Y_ 25.0
$node_(0) set Z_ 0.0
$node_(1) set X_ 10.0
$node_(1) set Y_ 25.0
$node_(1) set Z_ 0.0

$ns_ at 0.0 "$node_(0) NodeLabel PAN Coor"


$ns_ at 0.0 "$node_(0) sscs startPANCoord 1 $BO $SO" ;# startPANCoord <txBeacon=1>
<BO=3> <SO=3>
$ns_ at 5 "$node_(1) sscs startDevice 0 0 0 $BO $SO"

Mac/802_15_4 wpanNam PlaybackRate 3ms


$ns_ at 50 "puts \"\nTransmitting data ...\n\""

##define traffic type and date rate


set udp_(0) [new Agent/UDP]
$ns_ attach-agent $node_(1) $udp_(0)
set null_(0) [new Agent/Null]
Ms.Shubham Gaddam Sr.No.: 10 XIEEXTC131444

$ns_ attach-agent $node_(0) $null_(0)


set cbr_ [new Application/Traffic/CBR]
$cbr_ set packetSize_ 100
$cbr_ set interval_ 0.2
$cbr_ set random_ 1
$cbr_ attach-agent $udp_(0)
$ns_ connect $udp_(0) $null_(0)
$ns_ at 50 "$cbr_ start"

# the following command is for moving the node 1. you can disable it if you dont need it.
#node 1 will start to meet at time 70 towards the cordinate(42,25) at the speed of $speed.
$speed is defined at top.
$ns_ at 70 "$node_(1) setdest 42.00 25 $speed"

# defines the node size in nam


for {set i 0} {$i < $val(nn)} {incr i} {
$ns_ initial_node_pos $node_($i) 2
}

# Tell nodes when the simulation ends


for {set i 0} {$i < $val(nn) } {incr i} {
$ns_ at $stopTime "$node_($i) reset";
}

##to stop simulation


$ns_ at $stopTime "stop"
$ns_ at $stopTime "puts \"\nNS EXITING...\n\""
$ns_ at $stopTime "$ns_ halt"

proc stop {} {
global ns_ tracefd appTime val env
Ms.Shubham Gaddam Sr.No.: 10 XIEEXTC131444

$ns_ flush-trace
close $tracefd
set hasDISPLAY 0
foreach index [array names env] {

if { ("$index" == "DISPLAY") && ("$env($index)" != "") } {


set hasDISPLAY 1
}
}
OUTPUT:
Ms.Shubham Gaddam Sr.No.: 10 XIEEXTC131444

CONCLUSION: In this experiment, we have implemented the WPAN (ZigBee) using NS2
using two nodes and we have also calculated the throughput with running time.
Ms.Shubham Gaddam Sr.No.: 10 XIEEXTC131444

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