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

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

通讯编程

开发平台：

Visual C++

wpan_demo2.tcl：源码内容
  1. #############################################
  2. #             Star 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)         150                        ;# max packet in ifq
  21. set val(nn)             7                          ;# number of mobilenodes
  22. set val(rp)             AODV                       ;# routing protocol
  23. set val(x) 50
  24. set val(y) 50
  26. set val(nam) wpan_demo2.nam
  27. set val(traffic) ftp                        ;# 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            7.0 ;# in seconds 
  42. set appTime2            7.1 ;# in seconds 
  43. set appTime3            7.2 ;# in seconds 
  44. set appTime4            7.3 ;# in seconds 
  45. set appTime5            7.4 ;# in seconds 
  46. set appTime6            7.5 ;# in seconds 
  47. set stopTime            100 ;# in seconds 
  49. # Initialize Global Variables
  50. set ns_ [new Simulator]
  51. set tracefd     [open ./wpan_demo2.tr w]
  52. $ns_ trace-all $tracefd
  53. if { "$val(nam)" == "wpan_demo2.nam" } {
  54.         set namtrace     [open ./$val(nam) w]
  55.         $ns_ namtrace-all-wireless $namtrace $val(x) $val(y)
  56. }
  58. $ns_ puts-nam-traceall {# nam4wpan #} ;# inform nam that this is a trace file for wpan (special handling needed)
  60. Mac/802_15_4 wpanCmd verbose on
  61. Mac/802_15_4 wpanNam namStatus on ;# default = off (should be turned on before other 'wpanNam' commands can work)
  62. #Mac/802_15_4 wpanNam ColFlashClr gold ;# default = gold
  64. # For model 'TwoRayGround'
  65. set dist(5m)  7.69113e-06
  66. set dist(9m)  2.37381e-06
  67. set dist(10m) 1.92278e-06
  68. set dist(11m) 1.58908e-06
  69. set dist(12m) 1.33527e-06
  70. set dist(13m) 1.13774e-06
  71. set dist(14m) 9.81011e-07
  72. set dist(15m) 8.54570e-07
  73. set dist(16m) 7.51087e-07
  74. set dist(20m) 4.80696e-07
  75. set dist(25m) 3.07645e-07
  76. set dist(30m) 2.13643e-07
  77. set dist(35m) 1.56962e-07
  78. set dist(40m) 1.20174e-07
  79. Phy/WirelessPhy set CSThresh_ $dist(15m)
  80. Phy/WirelessPhy set RXThresh_ $dist(15m)
  82. # set up topography object
  83. set topo       [new Topography]
  84. $topo load_flatgrid $val(x) $val(y)
  86. # Create God
  87. set god_ [create-god $val(nn)]
  89. set chan_1_ [new $val(chan)]
  91. # configure node
  93. $ns_ node-config -adhocRouting $val(rp) 
  94. -llType $val(ll) 
  95. -macType $val(mac) 
  96. -ifqType $val(ifq) 
  97. -ifqLen $val(ifqlen) 
  98. -antType $val(ant) 
  99. -propType $val(prop) 
  100. -phyType $val(netif) 
  101. -topoInstance $topo 
  102. -agentTrace OFF 
  103. -routerTrace OFF 
  104. -macTrace ON 
  105. -movementTrace OFF 
  106.                 #-energyModel "EnergyModel" 
  107.                 #-initialEnergy 1 
  108.                 #-rxPower 0.3 
  109.                 #-txPower 0.3 
  110. -channel $chan_1_ 
  112. for {set i 0} {$i < $val(nn) } {incr i} {
  113. set node_($i) [$ns_ node]
  114. $node_($i) random-motion 0 ;# disable random motion
  115. }
  117. source ./wpan_demo2.scn
  119. $ns_ at 0.0 "$node_(0) NodeLabel PAN Coor"
  120. $ns_ at 0.0 "$node_(0) sscs startPANCoord" ;# startPANCoord <txBeacon=1> <BO=3> <SO=3>
  121. $ns_ at 0.5 "$node_(1) sscs startDevice 1 0" ;# startDevice <isFFD=1> <assoPermit=1> <txBeacon=0> <BO=3> <SO=3>
  122. $ns_ at 1.5 "$node_(2) sscs startDevice 1 0"
  123. $ns_ at 2.5 "$node_(3) sscs startDevice 1 0"
  124. $ns_ at 3.5 "$node_(4) sscs startDevice 1 0"
  125. $ns_ at 4.5 "$node_(5) sscs startDevice 1 0"
  126. $ns_ at 5.5 "$node_(6) sscs startDevice 1 0"
  128. Mac/802_15_4 wpanNam PlaybackRate 3ms
  130. $ns_ at $appTime1 "puts "nTransmitting data ...n""
  132. # Setup traffic flow between nodes
  134. proc cbrtraffic { src dst interval starttime } {
  135.    global ns_ node_
  136.    set udp_($src) [new Agent/UDP]
  137.    eval $ns_ attach-agent $node_($src) $udp_($src)
  138.    set null_($dst) [new Agent/Null]
  139.    eval $ns_ attach-agent $node_($dst) $null_($dst)
  140.    set cbr_($src) [new Application/Traffic/CBR]
  141.    eval $cbr_($src) set packetSize_ 70
  142.    eval $cbr_($src) set interval_ $interval
  143.    eval $cbr_($src) set random_ 0
  144.    #eval $cbr_($src) set maxpkts_ 10000
  145.    eval $cbr_($src) attach-agent $udp_($src)
  146.    eval $ns_ connect $udp_($src) $null_($dst)
  147.    $ns_ at $starttime "$cbr_($src) start"
  148. }
  150. proc poissontraffic { src dst interval starttime } {
  151.    global ns_ node_
  152.    set udp($src) [new Agent/UDP]
  153.    eval $ns_ attach-agent $node_($src) $udp($src)
  154.    set null($dst) [new Agent/Null]
  155.    eval $ns_ attach-agent $node_($dst) $null($dst)
  156.    set expl($src) [new Application/Traffic/Exponential]
  157.    eval $expl($src) set packetSize_ 70
  158.    eval $expl($src) set burst_time_ 0
  159.    eval $expl($src) set idle_time_ [expr $interval*1000.0-70.0*8/250]ms ;# idle_time + pkt_tx_time = interval
  160.    eval $expl($src) set rate_ 250k
  161.    eval $expl($src) attach-agent $udp($src)
  162.    eval $ns_ connect $udp($src) $null($dst)
  163.    $ns_ at $starttime "$expl($src) start"
  164. }
  166. if { ("$val(traffic)" == "cbr") || ("$val(traffic)" == "poisson") } {
  167.    puts "nTraffic: $val(traffic)"
  168.    #Mac/802_15_4 wpanCmd ack4data on
  169.    puts [format "Acknowledgement for data: %s" [Mac/802_15_4 wpanCmd ack4data]]
  170.    $ns_ at $appTime1 "Mac/802_15_4 wpanNam PlaybackRate 0.5ms"
  171.    $ns_ at [expr $appTime1 + 0.5] "Mac/802_15_4 wpanNam PlaybackRate 1.5ms"
  172.    $val(traffic)traffic 0 1 0.6 $appTime1
  173.    $val(traffic)traffic 3 0 0.6 $appTime3
  174.    $val(traffic)traffic 0 5 0.6 $appTime5
  175.    $ns_ at $appTime1 "$ns_ trace-annotate "(at $appTime1) $val(traffic) traffic from node 0 to node 1""
  176.    $ns_ at $appTime3 "$ns_ trace-annotate "(at $appTime3) $val(traffic) traffic from node 3 to node 0""
  177.    $ns_ at $appTime5 "$ns_ trace-annotate "(at $appTime5) $val(traffic) traffic from node 0 to node 5""
  178.    Mac/802_15_4 wpanNam FlowClr -p AODV -c tomato
  179.    Mac/802_15_4 wpanNam FlowClr -p ARP -c green
  180.    Mac/802_15_4 wpanNam FlowClr -p MAC -s 0 -d -1 -c navy
  181.    if { "$val(traffic)" == "cbr" } {
  182.     set pktType cbr
  183.    } else {
  184.     set pktType exp
  185.    }
  186.    Mac/802_15_4 wpanNam FlowClr -p $pktType -s 0 -d 1 -c blue
  187.    Mac/802_15_4 wpanNam FlowClr -p $pktType -s 3 -d 0 -c green4
  188.    Mac/802_15_4 wpanNam FlowClr -p $pktType -s 0 -d 5 -c cyan4
  189. }
  190.   
  191. proc ftptraffic { src dst starttime } {
  192.    global ns_ node_
  193.    set tcp($src) [new Agent/TCP]
  194.    eval $tcp($src) set packetSize_ 50
  195.    set sink($dst) [new Agent/TCPSink]
  196.    eval $ns_ attach-agent $node_($src) $tcp($src)
  197.    eval $ns_ attach-agent $node_($dst) $sink($dst)
  198.    eval $ns_ connect $tcp($src) $sink($dst)
  199.    set ftp($src) [new Application/FTP]
  200.    eval $ftp($src) attach-agent $tcp($src)
  201.    $ns_ at $starttime "$ftp($src) start"
  202. }
  203.      
  204. if { "$val(traffic)" == "ftp" } {
  205.    puts "nTraffic: ftp"
  206.    #Mac/802_15_4 wpanCmd ack4data off
  207.    puts [format "Acknowledgement for data: %s" [Mac/802_15_4 wpanCmd ack4data]]
  208.    $ns_ at $appTime1 "Mac/802_15_4 wpanNam PlaybackRate 0.20ms"
  209.    $ns_ at [expr $appTime1 + 0.5] "Mac/802_15_4 wpanNam PlaybackRate 1.5ms"
  210.    ftptraffic 0 1 $appTime1
  211.    ftptraffic 0 3 $appTime3
  212.    ftptraffic 0 5 $appTime5
  213.    $ns_ at $appTime1 "$ns_ trace-annotate "(at $appTime1) ftp traffic from node 0 to node 1""
  214.    $ns_ at $appTime3 "$ns_ trace-annotate "(at $appTime3) ftp traffic from node 0 to node 3""
  215.    $ns_ at $appTime5 "$ns_ trace-annotate "(at $appTime5) ftp traffic from node 0 to node 5""
  216.    Mac/802_15_4 wpanNam FlowClr -p AODV -c tomato
  217.    Mac/802_15_4 wpanNam FlowClr -p ARP -c green
  218.    Mac/802_15_4 wpanNam FlowClr -p MAC -s 0 -d -1 -c navy
  219.    Mac/802_15_4 wpanNam FlowClr -p tcp -s 0 -d 1 -c blue
  220.    Mac/802_15_4 wpanNam FlowClr -p ack -s 1 -d 0 -c blue
  221.    Mac/802_15_4 wpanNam FlowClr -p tcp -s 0 -d 3 -c green4
  222.    Mac/802_15_4 wpanNam FlowClr -p ack -s 3 -d 0 -c green4
  223.    Mac/802_15_4 wpanNam FlowClr -p tcp -s 0 -d 5 -c cyan4
  224.    Mac/802_15_4 wpanNam FlowClr -p ack -s 5 -d 0 -c cyan4
  225. }
  227. # defines the node size in nam
  228. for {set i 0} {$i < $val(nn)} {incr i} {
  229. $ns_ initial_node_pos $node_($i) 2
  230. }
  232. # Tell nodes when the simulation ends
  233. for {set i 0} {$i < $val(nn) } {incr i} {
  234.     $ns_ at $stopTime "$node_($i) reset";
  235. }
  237. $ns_ at $stopTime "stop"
  238. $ns_ at $stopTime "puts "NS EXITING...n""
  239. $ns_ at $stopTime "$ns_ halt"
  241. proc stop {} {
  242.     global ns_ tracefd appTime1 val env
  243.     $ns_ flush-trace
  244.     close $tracefd
  245.     set hasDISPLAY 0
  246.     foreach index [array names env] {
  247.         #puts "$index: $env($index)"
  248.         if { ("$index" == "DISPLAY") && ("$env($index)" != "") } {
  249.                 set hasDISPLAY 1
  250.         }
  251.     }
  252.     if { ("$val(nam)" == "wpan_demo2.nam") && ("$hasDISPLAY" == "1") } {
  253.      exec nam wpan_demo2.nam &
  254.     }
  255. }
  257. puts "nStarting Simulation..."
  258. $ns_ run