开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 通讯编程 > 查看源码
wpan_demo4.tcl
资源名称：ns-allinone-2.33.tar.gz　[点击查看]
上传用户：rrhhcc
上传日期：2015-12-11
资源大小：54129k
文件大小：12k
源码类别：

通讯编程

开发平台：

Visual C++

wpan_demo4.tcl：源码内容
  1. ###################################################
  2. #         Peer-to-Peer Tree over 802.15.4         #
  3. #                (beacon enabled)                 #
  4. #        Copyright (c) 2003 Samsung/CUNY          #
  5. # - - - - - - - - - - - - - - - - - - - - - - - - #
  6. #           Prepared by Jianliang Zheng           #
  7. #            (zheng@ee.ccny.cuny.edu)             #
  8. ###################################################
  10. # ======================================================================
  11. # Define options
  12. # ======================================================================
  13. set val(chan)           Channel/WirelessChannel    ;# Channel Type
  14. set val(prop)           Propagation/TwoRayGround   ;# radio-propagation model
  15. set val(netif)          Phy/WirelessPhy/802_15_4
  16. set val(mac)            Mac/802_15_4
  17. set val(ifq)            Queue/DropTail/PriQueue    ;# interface queue type
  18. set val(ll)             LL                         ;# link layer type
  19. set val(ant)            Antenna/OmniAntenna        ;# antenna model
  20. set val(ifqlen)         50                         ;# max packet in ifq
  21. set val(nn)             21                         ;# number of mobilenodes
  22. set val(rp)             AODV                       ;# AODV Routing
  23. set val(x) 50
  24. set val(y) 50
  26. set val(nam) wpan_demo4.nam
  27. set val(traffic) mix                        ;# mix/cbr/poisson/ftp
  29. #read command line arguments
  30. proc getCmdArgu {argc argv} {
  31.         global val
  32.         for {set i 0} {$i < $argc} {incr i} {
  33.                 set arg [lindex $argv $i]
  34.                 if {[string range $arg 0 0] != "-"} continue
  35.                 set name [string range $arg 1 end]
  36.                 set val($name) [lindex $argv [expr $i+1]]
  37.         }
  38. }
  39. getCmdArgu $argc $argv
  41. set appTime1          10.3 ;# in seconds 
  42. set appTime2          10.6 ;# in seconds 
  43. set stopTime            100 ;# in seconds 
  45. # Initialize Global Variables
  46. set ns_ [new Simulator]
  47. set tracefd     [open ./wpan_demo4.tr w]
  48. $ns_ trace-all $tracefd
  49. if { "$val(nam)" == "wpan_demo4.nam" } {
  50.         set namtrace     [open ./$val(nam) w]
  51.         $ns_ namtrace-all-wireless $namtrace $val(x) $val(y)
  52. }
  54. $ns_ puts-nam-traceall {# nam4wpan #} ;# inform nam that this is a trace file for wpan (special handling needed)
  56. Mac/802_15_4 wpanCmd verbose on
  57. Mac/802_15_4 wpanNam namStatus on ;# default = off (should be turned on before other 'wpanNam' commands can work)
  58. #Mac/802_15_4 wpanNam ColFlashClr gold ;# default = gold
  59. #Mac/802_15_4 wpanNam NodeFailClr grey ;# default = grey
  61. # For model 'TwoRayGround'
  62. set dist(5m)  7.69113e-06
  63. set dist(9m)  2.37381e-06
  64. set dist(10m) 1.92278e-06
  65. set dist(11m) 1.58908e-06
  66. set dist(12m) 1.33527e-06
  67. set dist(13m) 1.13774e-06
  68. set dist(14m) 9.81011e-07
  69. set dist(15m) 8.54570e-07
  70. set dist(16m) 7.51087e-07
  71. set dist(20m) 4.80696e-07
  72. set dist(25m) 3.07645e-07
  73. set dist(30m) 2.13643e-07
  74. set dist(35m) 1.56962e-07
  75. set dist(40m) 1.20174e-07
  76. Phy/WirelessPhy set CSThresh_ $dist(12m)
  77. Phy/WirelessPhy set RXThresh_ $dist(12m)
  79. # set up topography object
  80. set topo       [new Topography]
  81. $topo load_flatgrid $val(x) $val(y)
  83. # Create God
  84. set god_ [create-god $val(nn)]
  86. set chan_1_ [new $val(chan)]
  88. # configure node
  90. $ns_ node-config -adhocRouting $val(rp) 
  91. -llType $val(ll) 
  92. -macType $val(mac) 
  93. -ifqType $val(ifq) 
  94. -ifqLen $val(ifqlen) 
  95. -antType $val(ant) 
  96. -propType $val(prop) 
  97. -phyType $val(netif) 
  98. -topoInstance $topo 
  99. -agentTrace OFF 
  100. -routerTrace OFF 
  101. -macTrace ON 
  102. -movementTrace OFF 
  103.                 #-energyModel "EnergyModel" 
  104.                 #-initialEnergy 1 
  105.                 #-rxPower 0.3 
  106.                 #-txPower 0.3 
  107. -channel $chan_1_
  109. for {set i 0} {$i < $val(nn) } {incr i} {
  110. set node_($i) [$ns_ node]
  111. $node_($i) random-motion 0 ;# disable random motion
  112. }
  115. #set Cm 4
  116. #set Lm 3
  117. #Agent/ZBR Cm $Cm
  118. #Agent/ZBR Lm $Lm
  119. #Agent/ZBR BSize calc
  120. #set BlockSize [Agent/ZBR BSize]
  121. #set cskip0 [Agent/ZBR CSkip 0]
  122. #set cskip1 [Agent/ZBR CSkip 1]
  123. #set cskip2 [Agent/ZBR CSkip 2]
  124. #puts [format "Cm:        %s" $Cm]
  125. #puts [format "Lm:        %s" $Lm]
  126. #puts [format "BlockSize: %s" $BlockSize]
  127. #$ns_ at 0.0 "$ns_ trace-annotate "Cm = $Cm, Lm = $Lm, BlockSize = $BlockSize, CSkip0 = $cskip0, CSkip1 = $cskip1, CSkip2 = $cskip2""
  129. # default is RN+, so only set RN-
  130. #$node_(3) RNType 0
  131. #$node_(4) RNType 0
  132. #$node_(7) RNType 0
  133. #$node_(8) RNType 0
  134. #$node_(9) RNType 0
  135. #$node_(10) RNType 0
  136. #$node_(13) RNType 0
  137. #$node_(15) RNType 0
  138. #$node_(18) RNType 0
  139. #$node_(20) RNType 0
  141. source ./wpan_demo4.scn
  143. $ns_ at 0.0 "$node_(0) NodeLabel "PAN Coor""
  144. #for {set i 1} {$i < $val(nn)} {incr i} {
  145. # set RNType [eval $node_($i) RNType]
  146. # if {$RNType == "0"} {
  147. # $ns_ at 0.0 "$node_($i) NodeLabel -"
  148. # } else {
  149. # $ns_ at 0.0 "$node_($i) NodeLabel +"
  150. # }
  151. #}
  153. $ns_ at 0.0 "$node_(0) sscs startCTPANCoord 1" ;# startCTPANCoord <txBeacon=1> <BO=3> <SO=3>
  154. $ns_ at 0.3 "$node_(1) sscs startCTDevice 1 1"  ;# startCTDevice <isFFD=1> <assoPermit=1> <txBeacon=0> <BO=3> <SO=3>
  155. $ns_ at 1.3 "$node_(9) sscs startCTDevice 1 1"
  156. $ns_ at 1.7 "$node_(13) sscs startCTDevice 1 1"
  157. $ns_ at 2.3 "$node_(19) sscs startCTDevice 1 1"
  159. $ns_ at 3.3 "$node_(2) sscs startCTDevice 1 1 1"
  160. $ns_ at 3.5 "$node_(7) sscs startCTDevice 1 1 1"
  161. $ns_ at 3.6 "$node_(11) sscs startCTDevice 1 1 1"
  162. $ns_ at 3.8 "$node_(16) sscs startCTDevice 1 1 1"
  164. $ns_ at 4.3 "$node_(3) sscs startCTDevice 0 0"
  165. $ns_ at 4.5 "$node_(6) sscs startCTDevice 1 1"
  166. $ns_ at 4.8 "$node_(12) sscs startCTDevice 1 0"
  167. $ns_ at 5.1 "$node_(17) sscs startCTDevice 1 0"
  169. $ns_ at 5.6 "$node_(20) sscs startCTDevice 1 1"
  170. $ns_ at 5.8 "$node_(5) sscs startCTDevice 1 1"
  171. $ns_ at 6.0 "$node_(10) sscs startCTDevice 1 1"
  172. $ns_ at 6.3 "$node_(14) sscs startCTDevice 1 1"
  174. $ns_ at 6.8 "$node_(18) sscs startCTDevice 1 0"
  175. $ns_ at 7.0 "$node_(4) sscs startCTDevice 0 0"
  176. $ns_ at 7.3 "$node_(8) sscs startCTDevice 0 0"
  177. $ns_ at 7.7 "$node_(15) sscs startCTDevice 0 0"
  179. $ns_ at $appTime1 "$node_(0) sscs stopBeacon"
  180. $ns_ at $appTime1 "$node_(2) sscs startBeacon 4 4"
  181. $ns_ at $appTime1 "$node_(7) sscs startBeacon 4 4"
  182. #$ns_ at $appTime1 "$node_(11) sscs stopBeacon"
  183. #$ns_ at $appTime1 "$node_(16) sscs stopBeacon"
  185. Mac/802_15_4 wpanNam PlaybackRate 4ms
  186. $ns_ at $appTime1 "Mac/802_15_4 wpanNam PlaybackRate 1.0ms"
  187. $ns_ at [expr $appTime1 + 0.5] "Mac/802_15_4 wpanNam PlaybackRate 2.0ms"
  189. $ns_ at $appTime1 "puts "nTransmitting data ...n""
  191. # Setup traffic flow between nodes
  193. proc cbrtraffic { src dst interval starttime } {
  194.    global ns_ node_
  195.    set udp_($src) [new Agent/UDP]
  196.    eval $ns_ attach-agent $node_($src) $udp_($src)
  197.    set null_($dst) [new Agent/Null]
  198.    eval $ns_ attach-agent $node_($dst) $null_($dst)
  199.    set cbr_($src) [new Application/Traffic/CBR]
  200.    eval $cbr_($src) set packetSize_ 80
  201.    eval $cbr_($src) set interval_ $interval
  202.    eval $cbr_($src) set random_ 0
  203.    #eval $cbr_($src) set maxpkts_ 10000
  204.    eval $cbr_($src) attach-agent $udp_($src)
  205.    eval $ns_ connect $udp_($src) $null_($dst)
  206.    $ns_ at $starttime "$cbr_($src) start"
  207. }
  209. proc poissontraffic { src dst interval starttime } {
  210.    global ns_ node_
  211.    set udp($src) [new Agent/UDP]
  212.    eval $ns_ attach-agent $node_($src) $udp($src)
  213.    set null($dst) [new Agent/Null]
  214.    eval $ns_ attach-agent $node_($dst) $null($dst)
  215.    set expl($src) [new Application/Traffic/Exponential]
  216.    eval $expl($src) set packetSize_ 70
  217.    eval $expl($src) set burst_time_ 0
  218.    eval $expl($src) set idle_time_ [expr $interval*1000.0-70.0/100]ms ;# idle_time + pkt_tx_time = interval
  219.    eval $expl($src) set rate_ 100k
  220.    eval $expl($src) attach-agent $udp($src)
  221.    eval $ns_ connect $udp($src) $null($dst)
  222.    $ns_ at $starttime "$expl($src) start"
  223. }
  225. if {$val(rp) == "ZBR"} {
  226. Mac/802_15_4 wpanCmd callBack 2 ;# 0=none; 1=failure only (default); 2=both failure and success
  227. }
  229. if { ("$val(traffic)" == "mix") || ("$val(traffic)" == "cbr") || ("$val(traffic)" == "poisson") } {
  230.    if { "$val(traffic)" == "mix" } {
  231.     set trafficName "cbr + poisson"
  232.     set traffic1 cbr
  233.     set traffic2 poisson
  234.    } else {
  235.     set trafficName $val(traffic)
  236.     set traffic1 $val(traffic)
  237.     set traffic2 $val(traffic)
  238.    }
  239.    puts "nTraffic: $trafficName"
  240.    #Mac/802_15_4 wpanCmd ack4data on
  241.    puts [format "Acknowledgement for data: %s" [Mac/802_15_4 wpanCmd ack4data]]
  242.    ${traffic1}traffic 3 18 0.2 $appTime1
  243.    ${traffic2}traffic 9 17 0.2 $appTime2
  244.    Mac/802_15_4 wpanNam FlowClr -p AODV -c tomato
  245.    Mac/802_15_4 wpanNam FlowClr -p ARP -c green
  246.    Mac/802_15_4 wpanNam FlowClr -p MAC -c navy
  247.    $ns_ at $appTime1 "$node_(3) add-mark m1 blue circle"
  248.    $ns_ at $appTime1 "$node_(18) add-mark m2 blue circle"
  249.    $ns_ at $appTime1 "$ns_ trace-annotate "(at $appTime1) $traffic1 traffic from node 3 to node 18""
  250.    $ns_ at $appTime2 "$node_(9) add-mark m3 green4 circle"
  251.    $ns_ at $appTime2 "$node_(17) add-mark m4 green4 circle"
  252.    $ns_ at $appTime2 "$ns_ trace-annotate "(at $appTime2) $traffic2 traffic from node 9 to node 17""
  253.    $ns_ at [expr $appTime1 + 2.0] "Mac/802_15_4 wpanCmd link-down 0 19"
  254.    set tmpTime [format "%.1f" [expr $appTime1 + 2.0]]
  255.    $ns_ at [expr $appTime1 + 2.0] "$ns_ trace-annotate "(at $tmpTime) link down: 0 -> 19""
  256.    $ns_ at [expr $appTime2 + 3.0] "$node_(2) node-down"
  257.    set tmpTime [format "%.1f" [expr $appTime2 + 3.0]]
  258.    $ns_ at [expr $appTime2 + 3.0] "$ns_ trace-annotate "(at $tmpTime) node down: 2""
  259.    $ns_ at [expr $appTime1 + 8.0] "Mac/802_15_4 wpanCmd link-up 0 19"
  260.    set tmpTime [format "%.1f" [expr $appTime1 + 8.0]]
  261.    $ns_ at [expr $appTime1 + 8.0] "$ns_ trace-annotate "(at $tmpTime) link up: 0 -> 19""
  262.    $ns_ at [expr $appTime2 + 10.0] "$node_(2) node-up"
  263.    set tmpTime [format "%.1f" [expr $appTime2 + 10.0]]
  264.    $ns_ at [expr $appTime2 + 10.0] "$ns_ trace-annotate "(at $tmpTime) node up: 2""
  265.    if { "$val(traffic)" == "cbr" } {
  266.     set pktType cbr
  267.     set pktType2 cbr
  268.    } elseif { "$val(traffic)" == "poission" } {
  269.     set pktType exp
  270.     set pktType2 exp
  271.    } else {
  272.     set pktType cbr
  273.     set pktType2 exp
  274.    }
  275.    Mac/802_15_4 wpanNam FlowClr -p $pktType -s 3 -d 18 -c blue
  276.    Mac/802_15_4 wpanNam FlowClr -p $pktType2 -s 9 -d 17 -c green4
  277. }
  279. proc ftptraffic { src dst starttime } {
  280.    global ns_ node_
  281.    set tcp($src) [new Agent/TCP]
  282.    eval $tcp($src) set packetSize_ 60
  283.    set sink($dst) [new Agent/TCPSink]
  284.    eval $ns_ attach-agent $node_($src) $tcp($src)
  285.    eval $ns_ attach-agent $node_($dst) $sink($dst)
  286.    eval $ns_ connect $tcp($src) $sink($dst)
  287.    set ftp($src) [new Application/FTP]
  288.    eval $ftp($src) attach-agent $tcp($src)
  289.    $ns_ at $starttime "$ftp($src) start"
  290. }
  292. if { "$val(traffic)" == "ftp" } {
  293.    puts "nTraffic: ftp"
  294.    #Mac/802_15_4 wpanCmd ack4data off
  295.    puts [format "Acknowledgement for data: %s" [Mac/802_15_4 wpanCmd ack4data]]
  296.    ftptraffic 16 3 $appTime1
  297.    ftptraffic 8 11 $appTime2
  298.    Mac/802_15_4 wpanNam FlowClr -p AODV -c tomato
  299.    Mac/802_15_4 wpanNam FlowClr -p ARP -c green
  300.    Mac/802_15_4 wpanNam FlowClr -p MAC -c navy
  301.    $ns_ at $appTime1 "$node_(16) add-mark m1 blue circle"
  302.    $ns_ at $appTime1 "$node_(3) add-mark m2 blue circle"
  303.    $ns_ at $appTime1 "$ns_ trace-annotate "(at $appTime1) ftp traffic from node 16 to node 3""
  304.    Mac/802_15_4 wpanNam FlowClr -p tcp -s 16 -d 3 -c blue
  305.    Mac/802_15_4 wpanNam FlowClr -p ack -s 3 -d 16 -c blue
  306.    $ns_ at $appTime2 "$node_(8) add-mark m3 green4 circle"
  307.    $ns_ at $appTime2 "$node_(11) add-mark m4 green4 circle"
  308.    $ns_ at $appTime2 "$ns_ trace-annotate "(at $appTime2) ftp traffic from node 8 to node 11""
  309.    Mac/802_15_4 wpanNam FlowClr -p tcp -s 8 -d 11 -c green4
  310.    Mac/802_15_4 wpanNam FlowClr -p ack -s 11 -d 8 -c green4
  311. }
  313. # defines the node size in nam
  314. for {set i 0} {$i < $val(nn)} {incr i} {
  315. $ns_ initial_node_pos $node_($i) 2
  316. }
  318. # Tell nodes when the simulation ends
  319. for {set i 0} {$i < $val(nn) } {incr i} {
  320.     $ns_ at $stopTime "$node_($i) reset";
  321. }
  323. $ns_ at $stopTime "stop"
  324. $ns_ at $stopTime "puts "nNS EXITING...n""
  325. $ns_ at $stopTime "$ns_ halt"
  327. proc stop {} {
  328.     global ns_ tracefd appTime val env
  329.     $ns_ flush-trace
  330.     close $tracefd
  331.     set hasDISPLAY 0
  332.     foreach index [array names env] {
  333.         #puts "$index: $env($index)"
  334.         if { ("$index" == "DISPLAY") && ("$env($index)" != "") } {
  335.                 set hasDISPLAY 1
  336.         }
  337.     }
  338.     if { ("$val(nam)" == "wpan_demo4.nam") && ("$hasDISPLAY" == "1") } {
  339.      exec nam wpan_demo4.nam &
  340.     }
  341. }
  343. puts "nStarting Simulation..."
  344. $ns_ run