wpan_demo.tcl.rar_802.15.4的ns2仿真_DEMO_NS2 802.15.4

############################################# # Peer-to-Peer Tree over 802.15.4 # # (beacon enabled) # # Copyright (c) 2003 Samsung/CUNY # # - - - - - - - - - - - - - - - - - - - - - # # Prepared by Jianliang Zheng # # ([email protected]) # ############################################# # ====================================================================== # 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) 11 ;# number of mobilenodes set val(rp) AODV ;# routing protocol set val(x) 50 set val(y) 50 set val(nam) wpan_demo3.nam set val(traffic) ftp ;# 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 set appTime1 8.3 ;# in seconds set appTime2 8.6 ;# in seconds set stopTime 100 ;# in seconds # Initialize Global Variables set ns_ [new Simulator] set tracefd [open ./wpan_demo3.tr w] $ns_ trace-all $tracefd if { "$val(nam)" == "wpan_demo3.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 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) # set up topography object set topo [new Topography] $topo load_flatgrid $val(x) $val(y) # 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 OFF \ -routerTrace OFF \ -macTrace ON \ -movementTrace OFF \ #-energyModel "EnergyModel"\ #-initialEnergy 1\ #-rxPower 0.3\ #-txPower 0.3\ -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 } source ./wpan_demo3.scn $ns_ at 0.0 "$node_(0) NodeLabel PAN Coor" $ns_ at 0.0 "$node_(0) sscs startPANCoord 1" ;# startPANCoord <txBeacon=1> <BO=3> <SO=3> $ns_ at 0.5 "$node_(1) sscs startDevice 1 1 1" ;# startDevice <isFFD=1> <assoPermit=1> <txBeacon=0> <BO=3> <SO=3> $ns_ at 1.5 "$node_(2) sscs startDevice 1 1 1" $ns_ at 2.5 "$node_(3) sscs startDevice 1 1 1" $ns_ at 3.5 "$node_(4) sscs startDevice 1 1 1" $ns_ at 4.5 "$node_(5) sscs startDevice 1 1 1" $ns_ at 5.5 "$node_(6) sscs startDevice 0" $ns_ at 5.8 "$node_(7) sscs startDevice 0" $ns_ at 6.5 "$node_(8) sscs startDevice 0" $ns_ at 6.8 "$node_(9) sscs startDevice 0" $ns_ at 7.0 "$node_(10) sscs startDevice 0" $ns_ at 6.0 "$node_(3) sscs stopBeacon" $ns_ at 8.0 "$node_(3) sscs startBeacon" $ns_ at 9.0 "$node_(5) sscs startBeacon 4 4" ;# change beacon order and superframe order $ns_ at 10.0 "$node_(4) sscs stopBeacon" Mac/802_15_4 wpanNam PlaybackRate 3ms $ns_ at $appTime1 "puts \"\nTransmitting data ...\n\"" # Setup traffic flow between nodes proc 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_ 70 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(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]] $ns_ at $appTime1 "Mac/802_15_4 wpanNam PlaybackRate 0.50ms" $ns_ at [expr $appTime1 + 0.5] "Mac/802_15_4 wpanNam PlaybackRate 1.5ms" $val(traffic)traffic 1 6 0.2 $appTime1 $val(traffic)traffic 4 10 0.2 $appTime2 $ns_ at $appTime1 "$node_(1) add-mark m1 blue circle" $ns_ at $appTime1 "$node_(6) add-mark m2 blue circle" $ns_ at $appTime1 "$ns_ trace-annotate \"(at $appTime1) $val(traffic) traffic from node 1 to node 6\"" $ns_ at $appTime2 "$node_(4) add-mark m3 green4 circle" $ns_ at $appTime2 "$node_(10) add-mark m4 green4 circle" $ns_ at $appTime2 "$ns_ trace-annotate \"(at $appTime2) $val(traffic) traffic from node 4 to node 10\"" 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 if { "$val(traffic)" == "cbr" } { set pktType cbr } else { set pktType exp } Mac/802_15_4 wpanNam FlowClr -p $pktType -s 1 -d 6 -c blue Mac/802_15_4 wpanNam FlowClr -p $pktType -s 4 -d 10 -c green4 } proc ftptraffic { src dst starttime } { global ns_ node_ set tcp($src) [new Agent/TCP] eval \$tcp($src) set packetSize_ 50 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