####################################################          ZigBee Routing over 802.15.4           ##                (beacon enabled)                 ##        Copyright (c) 2003 Samsung/CUNY          ## - - - - - - - - - - - - - - - - - - - - - - - - ##           Prepared by Jianliang Zheng           ##            (zheng@ee.ccny.cuny.edu)             ##################################################### ======================================================================# Define options# ======================================================================set val(chan)           Channel/WirelessChannel    ;# Channel Typeset val(prop)           Propagation/TwoRayGround   ;# radio-propagation modelset val(netif)          Phy/WirelessPhy/802_15_4set val(mac)            Mac/802_15_4set val(ifq)            Queue/DropTail/PriQueue    ;# interface queue typeset val(ll)             LL                         ;# link layer typeset val(ant)            Antenna/OmniAntenna        ;# antenna modelset val(ifqlen)         50                         ;# max packet in ifqset val(nn)             101                        ;# number of mobilenodesset val(rp)             AODV                       ;# AODV Routingset val(x)		80set val(y)		80set val(tr)		wpan_demo5.trset val(nam)		wpan_demo5.namset val(nodeDown)	yesset val(errRate)	0                          ;# %set val(traffic)	mix                        ;# mix/cbr/poisson/ftpset val(trInterval)	0.2                        ;# in seconds#read command line argumentsproc 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 $argvset appTime1         	20.5	;# in seconds set appTime2         	20.8	;# in seconds set stopTime            100	;# in seconds # Initialize Global Variablesset ns_		[new Simulator]set tracefd     [open ./$val(tr) w]$ns_ trace-all $tracefdif { "$val(nam)" == "wpan_demo5.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 wpanCmd verbose onMac/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#Mac/802_15_4 wpanNam NodeFailClr grey		;# default = grey# For model 'TwoRayGround'set dist(5m)  7.69113e-06set dist(9m)  2.37381e-06set dist(10m) 1.92278e-06set dist(11m) 1.58908e-06set dist(12m) 1.33527e-06set dist(13m) 1.13774e-06set dist(14m) 9.81011e-07set dist(15m) 8.54570e-07set dist(16m) 7.51087e-07set dist(20m) 4.80696e-07set dist(25m) 3.07645e-07set dist(30m) 2.13643e-07set dist(35m) 1.56962e-07set dist(40m) 1.20174e-07Phy/WirelessPhy set CSThresh_ $dist(9m)Phy/WirelessPhy set RXThresh_ $dist(9m)# set up topography objectset topo       [new Topography]$topo load_flatgrid $val(x) $val(y)# Create Godset 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 OFF \		-routerTrace OFF \		-macTrace ON \		-movementTrace OFF \                #-energyModel "EnergyModel" \                #-initialEnergy 1 \                #-rxPower 0.3 \                #-txPower 0.3 \		-channel $chan_1_# insert error modelif {$val(errRate) != 0} {	$ns_ node-config -errProc UniformErr}proc UniformErr {} {        set err [new ErrorModel]        $err unit pkt         $err set rate_ [expr $val(errRate) / 100.0]        #$err drop-target [new Agent/Null]        return $err}for {set i 0} {$i < $val(nn) } {incr i} {	set node_($i) [$ns_ node]	$node_($i) random-motion 0		;# disable random motion}#set Cm 4#set Lm 7#Agent/ZBR Cm $Cm#Agent/ZBR Lm $Lm#Agent/ZBR BSize calc#set BlockSize [Agent/ZBR BSize]#set cskip0 [Agent/ZBR CSkip 0]#set cskip1 [Agent/ZBR CSkip 1]#set cskip2 [Agent/ZBR CSkip 2]#set cskip3 [Agent/ZBR CSkip 3]#set cskip4 [Agent/ZBR CSkip 4]#set cskip5 [Agent/ZBR CSkip 5]#set cskip6 [Agent/ZBR CSkip 6]#puts [format "Cm:        %s" $Cm]#puts [format "Lm:        %s" $Lm]#puts [format "BlockSize: %s" $BlockSize]#$ns_ at 0.0 "$ns_ trace-annotate \"Cm = $Cm, Lm = $Lm, BlockSize = $BlockSize, CSkip0 = $cskip0, CSkip1 = $cskip1, CSkip2 = $cskip2, CSkip3 = $cskip3, CSkip4 = $cskip4, CSkip5 = $cskip5, CSkip6 = $cskip6\""source ./wpan_demo5.scn$ns_ at 0.0	"$node_(0) NodeLabel \"PAN Coor\""#for {set i 1} {$i < $val(nn)} {incr i} {#	set RNType [eval \$node_($i) RNType]#	if {$RNType == "0"} {	#		$ns_ at 0.0	"$node_($i) NodeLabel -"#	} else {#		$ns_ at 0.0	"$node_($i) NodeLabel +"#	}#}$ns_ at 0.0	"$node_(0) sscs startCTPANCoord 0"	;# startCTPANCoord <txBeacon=1> <BO=3> <SO=3>$ns_ at 0.5	"$node_(1) sscs startCTDevice"  	;# startCTDevice <isFFD=1> <assoPermit=1> <txBeacon=0> <BO=3> <SO=3>$ns_ at 0.8	"$node_(2) sscs startCTDevice"$ns_ at 1.3	"$node_(3) sscs startCTDevice"$ns_ at 1.8	"$node_(4) sscs startCTDevice"$ns_ at 2.3	"$node_(5) sscs startCTDevice 1 1 1"$ns_ at 2.4	"$node_(6) sscs startCTDevice 1 1 1"$ns_ at 2.5	"$node_(7) sscs startCTDevice 1 1 1"$ns_ at 2.6	"$node_(8) sscs startCTDevice 1 1 1"$ns_ at 3.3	"$node_(9) sscs startCTDevice"$ns_ at 3.8	"$node_(10) sscs startCTDevice"$ns_ at 3.3	"$node_(11) sscs startCTDevice"$ns_ at 3.8	"$node_(12) sscs startCTDevice"# ---for {set i 13} {$i < 17} {incr i} {	$ns_ at 4.3	"$node_($i) sscs startCTDevice"}for {set i 17} {$i < 21} {incr i} {	$ns_ at 5.3	"$node_($i) sscs startCTDevice"}for {set i 21} {$i < 25} {incr i} {	$ns_ at 6.3	"$node_($i) sscs startCTDevice"}# ---for {set i 25} {$i < 29} {incr i} {	$ns_ at 7.3	"$node_($i) sscs startCTDevice 1 1 1"}for {set i 29} {$i < 33} {incr i} {	$ns_ at 7.3	"$node_($i) sscs startCTDevice"}for {set i 33} {$i < 41} {incr i} {	$ns_ at 8.3	"$node_($i) sscs startCTDevice"}# ---for {set i 41} {$i < 49} {incr i} {	$ns_ at 9.3	"$node_($i) sscs startCTDevice"}for {set i 49} {$i < 57} {incr i} {	$ns_ at 10.3	"$node_($i) sscs startCTDevice"}for {set i 57} {$i < 61} {incr i} {	$ns_ at 11.3	"$node_($i) sscs startCTDevice"}# ---for {set i 61} {$i < 65} {incr i} {	$ns_ at 12.3	"$node_($i) sscs startCTDevice 0"}for {set i 65} {$i < 73} {incr i} {	$ns_ at 12.3	"$node_($i) sscs startCTDevice"}for {set i 73} {$i < 77} {incr i} {	$ns_ at 13.3	"$node_($i) sscs startCTDevice 0"}for {set i 77} {$i < 80} {incr i} {	$ns_ at 13.3	"$node_($i) sscs startCTDevice"}for {set i 80} {$i < 85} {incr i} {	$ns_ at 13.3	"$node_($i) sscs startCTDevice 0"}# ---for {set i 85} {$i < 93} {incr i} {	$ns_ at 14.3	"$node_($i) sscs startCTDevice 0"}for {set i 93} {$i < 101} {incr i} {	$ns_ at 15.3	"$node_($i) sscs startCTDevice 0"}Mac/802_15_4 wpanNam PlaybackRate 12ms$ns_ at $appTime1 "Mac/802_15_4 wpanNam PlaybackRate 1.0ms"$ns_ at [expr $appTime1 + 0.5] "Mac/802_15_4 wpanNam PlaybackRate 2.0ms"$ns_ at $appTime1 "puts \"\nTransmitting data ...\n\""# Setup traffic flow between nodesproc cbrtraffic { 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 cbr_($src) [new Application/Traffic/CBR]   eval \$cbr_($src) set packetSize_ 80   eval \$cbr_($src) set interval_ $interval   eval \$cbr_($src) set random_ 0   #eval \$cbr_($src) set maxpkts_ 10000   eval \$cbr_($src) attach-agent \$udp_($src)   eval $ns_ connect \$udp_($src) \$null_($dst)   $ns_ at $starttime "$cbr_($src) start"}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(rp) == "ZBR"} {	Mac/802_15_4 wpanCmd callBack 2	;# 0=none; 1=failure only (default); 2=both failure and success}if { ("$val(traffic)" == "mix") || ("$val(traffic)" == "cbr") || ("$val(traffic)" == "poisson") } {   if { "$val(traffic)" == "mix" } {   	set trafficName "cbr + poisson"   	set traffic1 cbr   	set traffic2 poisson   } else {   	set trafficName $val(traffic)   	set traffic1 $val(traffic)   	set traffic2 $val(traffic)   }   puts "\nTraffic: $trafficName"   #Mac/802_15_4 wpanCmd ack4data on   puts [format "Acknowledgement for data: %s" [Mac/802_15_4 wpanCmd ack4data]]   ${traffic1}traffic 67 45 $val(trInterval) $appTime1   ${traffic2}traffic 71 74 $val(trInterval) $appTime2   if { "$val(nodeDown)" == "yes" } {   	$ns_ at [expr $appTime2 + 3.0] "$node_(0) node-down"   	set tmpTime [format "%.1f" [expr $appTime2 + 3.0]]   	$ns_ at [expr $appTime2 + 3.0] "$ns_ trace-annotate \"(at $tmpTime) node down: 0\""	$ns_ at [expr $appTime2 + 10.0] "$node_(0) node-up"	set tmpTime [format "%.1f" [expr $appTime2 + 10.0]]	$ns_ at [expr $appTime2 + 10.0] "$ns_ trace-annotate \"(at $tmpTime) node up: 0\""   }   Mac/802_15_4 wpanNam FlowClr -p AODV -c tomato   Mac/802_15_4 wpanNam FlowClr -p ARP -c green   Mac/802_15_4 wpanNam FlowClr -p MAC -c navy   $ns_ at $appTime1 "$node_(67) add-mark m1 blue circle"   $ns_ at $appTime1 "$node_(45) add-mark m2 blue circle"   $ns_ at $appTime1 "$ns_ trace-annotate \"(at $appTime1) $traffic1 traffic from node 67 to node 45\""   $ns_ at $appTime2 "$node_(71) add-mark m3 green4 circle"   $ns_ at $appTime2 "$node_(74) add-mark m4 green4 circle"   $ns_ at $appTime2 "$ns_ trace-annotate \"(at $appTime2) $traffic2 traffic from node 71 to node 74\""   if { "$val(traffic)" == "cbr" } {   	set pktType cbr   	set pktType2 cbr   } elseif { "$val(traffic)" == "poission" } {   	set pktType exp   	set pktType2 exp   } else {   	set pktType cbr   	set pktType2 exp   }   Mac/802_15_4 wpanNam FlowClr -p $pktType -s 67 -d 45 -c blue   Mac/802_15_4 wpanNam FlowClr -p $pktType2 -s 71 -d 74 -c green4}proc ftptraffic { src dst starttime } {   global ns_ node_   set tcp($src) [new Agent/TCP]   eval \$tcp($src) set packetSize_ 60   set sink($dst) [new Agent/TCPSink]   eval $ns_ attach-agent \$node_($src) \$tcp($src)   eval $ns_ attach-agent \$node_($dst) \$sink($dst)   eval $ns_ connect \$tcp($src) \$sink($dst)   set ftp($src) [new Application/FTP]   eval \$ftp($src) attach-agent \$tcp($src)   $ns_ at $starttime "$ftp($src) start"}if { "$val(traffic)" == "ftp" } {   puts "\nTraffic: ftp"   #Mac/802_15_4 wpanCmd ack4data off   puts [format "Acknowledgement for data: %s" [Mac/802_15_4 wpanCmd ack4data]]   ftptraffic 67 45 $appTime1   ftptraffic 71 74 $appTime2   Mac/802_15_4 wpanNam FlowClr -p AODV -c tomato   Mac/802_15_4 wpanNam FlowClr -p ARP -c green   Mac/802_15_4 wpanNam FlowClr -p MAC -c navy   $ns_ at $appTime1 "$node_(67) add-mark m1 blue circle"   $ns_ at $appTime1 "$node_(45) add-mark m2 blue circle"   $ns_ at $appTime1 "$ns_ trace-annotate \"(at $appTime1) ftp traffic from node 67 to node 45\""   Mac/802_15_4 wpanNam FlowClr -p tcp -s 67 -d 45 -c blue   Mac/802_15_4 wpanNam FlowClr -p ack -s 45 -d 67 -c blue   $ns_ at $appTime2 "$node_(71) add-mark m3 green4 circle"   $ns_ at $appTime2 "$node_(74) add-mark m4 green4 circle"   $ns_ at $appTime2 "$ns_ trace-annotate \"(at $appTime2) ftp traffic from node 71 to node 74\""   Mac/802_15_4 wpanNam FlowClr -p tcp -s 71 -d 74 -c green4   Mac/802_15_4 wpanNam FlowClr -p ack -s 74 -d 71 -c green4}# defines the node size in namfor {set i 0} {$i < $val(nn)} {incr i} {	$ns_ initial_node_pos $node_($i) 2}# Tell nodes when the simulation endsfor {set i 0} {$i < $val(nn) } {incr i} {    $ns_ at $stopTime "$node_($i) reset";}$ns_ at $stopTime "stop"$ns_ at $stopTime "puts \"\nNS EXITING...\n\""$ns_ at $stopTime "$ns_ halt"proc stop {} {    global ns_ tracefd appTime val env    $ns_ flush-trace    close $tracefd    set hasDISPLAY 0    foreach index [array names env] {        #puts "$index: $env($index)"        if { ("$index" == "DISPLAY") && ("$env($index)" != "") } {                set hasDISPLAY 1        }    }    if { ("$val(nam)" == "wpan_demo5.nam") && ("$hasDISPLAY" == "1") } {    	exec nam wpan_demo5.nam &    }}puts "\nStarting Simulation..."$ns_ run