NS2 Simulation Code for Wireless Sensor Network

Applications of WSN:

• In military applications for remote sensing, object protection, battlefield monitoring and intelligent guiding.
• For home intelligence applications like remote metering and smart home.
• For environmental monitoring like hazard monitoring, disaster monitoring, habitat monitoring and air or water quality monitoring.
• Health care application like medical monitoring and behavior monitoring.

Advantages of WSN using NS2

• Achieve scalability.
• Effective communication channel utilization.
• Fault tolerance.
• For low power consumption.
• QoS support.
• Self-configurability.
• Design low cost node.

Parameters are measured by WSN are:

• Sound.
• Humidity.
• Pollution.
• Direction.
• Pressure.
• Wind speed.

Sample NS2 Simulation Code for Wireless Sensor Network:

This is the code for how to handling traffic in wireless sensor networks.
proc poissontraffic { src dst interval starttime } {
global ns_ node_
set udp($src) [new Agent/UDP] eval $ns_ attach-agent \$node_($src) \$udp($src)
set null($dst) [new Agent/Null] eval $ns_ attach-agent \$node_($dst) \$null($dst)
set expl($src) [new Application/Traffic/Exponential] eval \$expl($src) set packetSize_ 70
eval \$expl($src) set burst_time_ 0
eval \$expl($src) set idle_time_ [expr
$interval*1000.0-70.0*8/250]ms ;# idle_time + pkt_tx_time = interval
eval \$expl($src) set rate_ 250k
eval \$expl($src) attach-agent \$udp($src)
eval $ns_ connect \$udp($src) \$null($dst)
$ns_ at $starttime “$expl($src) start”
}
if { (“$val(traffic)” == “cbr”) || (“$val(traffic)” == “poisson”) } {
puts “\nTraffic: $val(traffic)”
#Mac/802_15_4 wpanCmd ack4data on
puts [format “Acknowledgement for data: %s” [Mac/802_15_4 wpanCmd
ack4data]] set lowSpeed 0.5ms
set highSpeed 1.5ms
Mac/802_15_4 wpanNam PlaybackRate $lowSpeed
$ns_ at [expr $appTime1+0.1] “Mac/802_15_4 wpanNam PlaybackRate
$highSpeed”
$ns_ at $appTime2 “Mac/802_15_4 wpanNam PlaybackRate $lowSpeed”
$ns_ at [expr $appTime2+0.1] “Mac/802_15_4 wpanNam PlaybackRate
$highSpeed”
$ns_ at $appTime3 “Mac/802_15_4 wpanNam PlaybackRate $lowSpeed”
$ns_ at [expr $appTime3+0.1] “Mac/802_15_4 wpanNam PlaybackRate
$highSpeed”
eval $val(traffic)traffic 19 6 0.2 $appTime1
eval $val(traffic)traffic 10 4 0.2 $appTime2
eval $val(traffic)traffic 3 2 0.2 $appTime3
Mac/802_15_4 wpanNam FlowClr -p AODV -c tomato
Mac/802_15_4 wpanNam FlowClr -p ARP -c green
if { “$val(traffic)” == “cbr” } {
set pktType cbr
} else {
set pktType exp
}