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

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

通讯编程

开发平台：

Visual C++

test-suite-wpan.tcl：源码内容
  1. #! /bin/sh
  2. #
  3. # Copyright (c) 2003-2004 Samsung Advanced Institute of Technology and
  4. # The City University of New York. All rights reserved.
  5. #
  6. # Redistribution and use in source and binary forms, with or without
  7. # modification, are permitted provided that the following conditions
  8. # are met:
  9. # 1. Redistributions of source code must retain the above copyright
  10. #    notice, this list of conditions and the following disclaimer.
  11. # 2. Redistributions in binary form must reproduce the above copyright
  12. #    notice, this list of conditions and the following disclaimer in the
  13. #    documentation and/or other materials provided with the distribution.
  14. # 3. All advertising materials mentioning features or use of this software
  15. #    must display the following acknowledgement:
  16. #      This product includes software developed by the Joint Lab of Samsung 
  17. #      Advanced Institute of Technology and The City University of New York.
  18. # 4. Neither the name of Samsung Advanced Institute of Technology nor of 
  19. #    The City University of New York may be used to endorse or promote 
  20. #    products derived from this software without specific prior written 
  21. #    permission.
  22. #
  23. # THIS SOFTWARE IS PROVIDED BY THE JOINT LAB OF SAMSUNG ADVANCED INSTITUTE
  24. # OF TECHNOLOGY AND THE CITY UNIVERSITY OF NEW YORK ``AS IS'' AND ANY EXPRESS 
  25. # OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES 
  26. # OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN 
  27. # NO EVENT SHALL SAMSUNG ADVANCED INSTITUTE OR THE CITY UNIVERSITY OF NEW YORK 
  28. # BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 
  29. # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE 
  30. # GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 
  31. # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 
  32. # LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT 
  33. # OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
  35. remove-all-packet-headers       ; # removes all except common
  36. add-packet-header Flags IP RTP TCP ARP LL Mac LRWPAN AODV ;
  37. # hdrs reqd for validation
  39. # FOR UPDATING GLOBAL DEFAULTS:
  40. Agent/TCP set precisionReduce_ false ;   # default changed on 2006/1/24.
  41. Agent/TCP set rtxcur_init_ 6.0 ;      # Default changed on 2006/01/21
  42. Agent/TCP set updated_rttvar_ false ;  # Variable added on 2006/1/21
  43. Class TestSuite
  45. Class Test/wpan -superclass TestSuite
  47. proc usage {} {
  48. global argv0
  49. puts stderr "usage: ns $argv0 <test> "
  50. exit 1
  51. }
  53. proc default_values {} {
  54. global val
  55. set val(chan)           Channel/WirelessChannel    ;# channel type
  56. set val(prop)           Propagation/TwoRayGround   ;# radio-propagation model
  57. set val(netif)          Phy/WirelessPhy/802_15_4
  58. set val(mac)            Mac/802_15_4
  59. set val(ifq)            Queue/DropTail/PriQueue    ;# interface queue type
  60. set val(ll)             LL                         ;# link layer type
  61. set val(ant)            Antenna/OmniAntenna        ;# antenna model
  62. set val(ifqlen)         50                         ;# max packet in ifq
  63. set val(nn)             21                         ;# number of mobilenodes
  64. set val(rp)             AODV                       ;# routing
  65. set val(x)              50
  66. set val(y)              50
  67. set val(tr)             temp.rands                 ;# trace file
  68. set val(traffic)        mix                        ;# traffic (mix/cbr/poisson/ftp)
  70. # For propagation model 'TwoRayGround'
  71. set dist(5m)  7.69113e-06
  72. set dist(9m)  2.37381e-06
  73. set dist(10m) 1.92278e-06
  74. set dist(11m) 1.58908e-06
  75. set dist(12m) 1.33527e-06
  76. set dist(13m) 1.13774e-06
  77. set dist(14m) 9.81011e-07
  78. set dist(15m) 8.54570e-07
  79. set dist(16m) 7.51087e-07
  80. set dist(20m) 4.80696e-07
  81. set dist(25m) 3.07645e-07
  82. set dist(30m) 2.13643e-07
  83. set dist(35m) 1.56962e-07
  84. set dist(40m) 1.20174e-07
  85. Phy/WirelessPhy set CSThresh_ $dist(12m)
  86. Phy/WirelessPhy set RXThresh_ $dist(12m)
  87. }
  89. TestSuite instproc topology {} {
  90. global node_
  92. $node_(0) set X_ 20.0 
  93. $node_(0) set Y_ 25.0 
  94. $node_(0) set Z_ 0.0 
  96. $node_(1) set X_ 10.0 
  97. $node_(1) set Y_ 25.0
  98. $node_(1) set Z_ 0.0 
  100. $node_(2) set X_ 10.0 
  101. $node_(2) set Y_ 15.0 
  102. $node_(2) set Z_ 0.0 
  104. $node_(3) set X_ 10.0 
  105. $node_(3) set Y_ 5.0 
  106. $node_(3) set Z_ 0.0 
  108. $node_(4) set X_ 0.0 
  109. $node_(4) set Y_ 15.0 
  110. $node_(4) set Z_ 0.0 
  112. $node_(5) set X_ 0.0 
  113. $node_(5) set Y_ 25.0 
  114. $node_(5) set Z_ 0.0 
  116. $node_(6) set X_ 0.0 
  117. $node_(6) set Y_ 35.0 
  118. $node_(6) set Z_ 0.0
  119.  
  120. $node_(7) set X_ 10.0 
  121. $node_(7) set Y_ 35.0 
  122. $node_(7) set Z_ 0.0 
  124. $node_(8) set X_ 10.0 
  125. $node_(8) set Y_ 45.0 
  126. $node_(8) set Z_ 0.0
  127.  
  128. $node_(9) set X_ 20.0
  129. $node_(9) set Y_ 35.0 
  130. $node_(9) set Z_ 0.0
  131.  
  132. $node_(10) set X_ 20.0 
  133. $node_(10) set Y_ 45.0 
  134. $node_(10) set Z_ 0.0 
  136. $node_(11) set X_ 30.0 
  137. $node_(11) set Y_ 35.0 
  138. $node_(11) set Z_ 0.0 
  140. $node_(12) set X_ 30.0 
  141. $node_(12) set Y_ 45.0 
  142. $node_(12) set Z_ 0.0 
  144. $node_(13) set X_ 30.0 
  145. $node_(13) set Y_ 25.0 
  146. $node_(13) set Z_ 0.0 
  148. $node_(14) set X_ 40.0 
  149. $node_(14) set Y_ 25.0 
  150. $node_(14) set Z_ 0.0 
  152. $node_(15) set X_ 40.0 
  153. $node_(15) set Y_ 35.0 
  154. $node_(15) set Z_ 0.0 
  156. $node_(16) set X_ 30.0 
  157. $node_(16) set Y_ 15.0 
  158. $node_(16) set Z_ 0.0 
  160. $node_(17) set X_ 40.0 
  161. $node_(17) set Y_ 15.0 
  162. $node_(17) set Z_ 0.0 
  164. $node_(18) set X_ 30.0 
  165. $node_(18) set Y_ 5.0 
  166. $node_(18) set Z_ 0.0 
  168. $node_(19) set X_ 20.0 
  169. $node_(19) set Y_ 15.0 
  170. $node_(19) set Z_ 0.0 
  172. $node_(20) set X_ 20.0 
  173. $node_(20) set Y_ 5.0 
  174. $node_(20) set Z_ 0.0
  175. }
  177. TestSuite instproc cbrtraffic { src dst interval starttime } {
  178. global node_
  179. $self instvar ns_
  180. set udp_($src) [new Agent/UDP]
  181. eval $ns_ attach-agent $node_($src) $udp_($src)
  182. set null_($dst) [new Agent/Null]
  183. eval $ns_ attach-agent $node_($dst) $null_($dst)
  184. set cbr_($src) [new Application/Traffic/CBR]
  185. eval $cbr_($src) set packetSize_ 80
  186. eval $cbr_($src) set interval_ $interval
  187. eval $cbr_($src) set random_ 0
  188. #eval $cbr_($src) set maxpkts_ 10000
  189. eval $cbr_($src) attach-agent $udp_($src)
  190. eval $ns_ connect $udp_($src) $null_($dst)
  191. $ns_ at $starttime "$cbr_($src) start"
  192. }
  194. TestSuite instproc poissontraffic { src dst interval starttime } {
  195. global node_
  196. $self instvar ns_
  197. set udp($src) [new Agent/UDP]
  198. eval $ns_ attach-agent $node_($src) $udp($src)
  199. set null($dst) [new Agent/Null]
  200. eval $ns_ attach-agent $node_($dst) $null($dst)
  201. set expl($src) [new Application/Traffic/Exponential]
  202. eval $expl($src) set packetSize_ 70
  203. eval $expl($src) set burst_time_ 0
  204. eval $expl($src) set idle_time_ [expr $interval*1000.0-70.0/100]ms ;# idle_time + pkt_tx_time = interval
  205. eval $expl($src) set rate_ 100k
  206. eval $expl($src) attach-agent $udp($src)
  207. eval $ns_ connect $udp($src) $null($dst)
  208. $ns_ at $starttime "$expl($src) start"
  209. }
  211. TestSuite instproc ftptraffic { src dst starttime } {
  212. global node_
  213. $self instvar ns_
  214. set tcp($src) [new Agent/TCP]
  215. eval $tcp($src) set packetSize_ 60
  216. set sink($dst) [new Agent/TCPSink]
  217. eval $ns_ attach-agent $node_($src) $tcp($src)
  218. eval $ns_ attach-agent $node_($dst) $sink($dst)
  219. eval $ns_ connect $tcp($src) $sink($dst)
  220. set ftp($src) [new Application/FTP]
  221. eval $ftp($src) attach-agent $tcp($src)
  222. $ns_ at $starttime "$ftp($src) start"
  223. }
  225. TestSuite instproc init {} {
  226. global val tracefd topo
  227. $self instvar ns_
  229. set ns_ [new Simulator]
  230. set tracefd     [open ./$val(tr) w]
  231. $ns_ trace-all $tracefd
  232. set topo       [new Topography]
  233. $topo load_flatgrid $val(x) $val(y)
  234. }
  236. TestSuite instproc finish {} {
  237. $self instvar ns_
  238. global tracefd
  240. $ns_ flush-trace
  241. close $tracefd
  242. exit 0
  243. }
  245. Test/wpan instproc init {} {
  246. global val node_ god_ chan topo
  247. $self instvar ns_ testName_
  249. set testName_ wpan
  250. $self next
  252. set god_ [create-god $val(nn)]
  253. set chan [new $val(chan)]
  255. # configure node
  256. $ns_ node-config -adhocRouting $val(rp) 
  257. -llType $val(ll) 
  258. -macType $val(mac) 
  259. -ifqType $val(ifq) 
  260. -ifqLen $val(ifqlen) 
  261. -antType $val(ant) 
  262. -propType $val(prop) 
  263. -phyType $val(netif) 
  264. -topoInstance $topo 
  265. -agentTrace OFF 
  266. -routerTrace OFF 
  267. -macTrace ON 
  268. -movementTrace OFF 
  269.                 #-energyModel "EnergyModel" 
  270.                 #-initialEnergy 1 
  271.                 #-rxPower 0.3 
  272.                 #-txPower 0.3 
  273. -channel $chan
  275. for {set i 0} {$i < $val(nn) } {incr i} {
  276. set node_($i) [$ns_ node]
  277. $node_($i) random-motion 0
  278. }
  280. $self topology
  282. # === actual test begins here =======================
  284. set appTime1          10.3
  285. set appTime2          10.6
  286. set stopTime            100
  288. # start PAN coordinator (beacon enabled):
  289. #  -- active channel scan and channel selection
  290. #  -- PAN coordinator startup
  291. #  -- beacon transmission
  292. $ns_ at 0.0 "$node_(0) sscs startPANCoord 1" ;# startPANCoord <txBeacon=1> <BO=3> <SO=3>
  294. # start non-beacon enabled coordinator:
  295. #  -- active channel scan
  296. #  -- channel selection and coordinator selection
  297. #  -- association
  298. #  -- beacon tracking and synchronization
  299. $ns_ at 0.3 "$node_(1) sscs startDevice 1 1"  ;# startDevice <isFFD=1> <assoPermit=1> <txBeacon=0> <BO=3> <SO=3>
  300. $ns_ at 1.3 "$node_(9) sscs startDevice 1 1"
  301. $ns_ at 1.7 "$node_(13) sscs startDevice 1 1"
  302. $ns_ at 2.3 "$node_(19) sscs startDevice 1 1"
  304. # start beacon enabled coordinator:
  305. #  -- active channel scan
  306. #  -- channel selection and coordinator selection
  307. #  -- association
  308. #  -- beacon tracking and synchronization
  309. #  -- beacon transmission
  310. $ns_ at 3.3 "$node_(2) sscs startDevice 1 1 1"
  311. $ns_ at 3.5 "$node_(7) sscs startDevice 1 1 1"
  312. $ns_ at 3.6 "$node_(11) sscs startDevice 1 1 1"
  313. $ns_ at 3.8 "$node_(16) sscs startDevice 1 1 1"
  315. # start RFD (leaf node)
  316. $ns_ at 4.3 "$node_(3) sscs startDevice 0 0"
  318. # start non-beacon enabled coordinator
  319. $ns_ at 4.5 "$node_(6) sscs startDevice 1 1"
  321. # start FFD not supporting association
  322. $ns_ at 4.8 "$node_(12) sscs startDevice 1 0"
  323. $ns_ at 5.1 "$node_(17) sscs startDevice 1 0"
  325. # start non-beacon enabled coordinator
  326. $ns_ at 5.6 "$node_(20) sscs startDevice 1 1"
  327. $ns_ at 5.8 "$node_(5) sscs startDevice 1 1"
  328. $ns_ at 6.0 "$node_(10) sscs startDevice 1 1"
  329. $ns_ at 6.3 "$node_(14) sscs startDevice 1 1"
  331. # start FFD not supporting association
  332. $ns_ at 6.8 "$node_(18) sscs startDevice 1 0"
  334. # start RFD (leaf node)
  335. $ns_ at 7.0 "$node_(4) sscs startDevice 0 0"
  336. $ns_ at 7.3 "$node_(8) sscs startDevice 0 0"
  337. $ns_ at 7.7 "$node_(15) sscs startDevice 0 0"
  339. # stop beacon transmission (become non-beacon enabled coordinator)
  340. $ns_ at $appTime1 "$node_(0) sscs stopBeacon"
  341. $ns_ at $appTime1 "$node_(16) sscs stopBeacon"
  343. # change beacon order and superframe order
  344. $ns_ at $appTime1 "$node_(2) sscs startBeacon 4 4"
  345. $ns_ at $appTime1 "$node_(7) sscs startBeacon 4 4"
  347. # setup cbr/poisson/mix traffic flows between nodes:
  348. #  -- LQD
  349. #  -- CCA, CSMA/CA and slotted CSMA/CA
  350. #  -- filtering
  351. if { ("$val(traffic)" == "mix") || ("$val(traffic)" == "cbr") || ("$val(traffic)" == "poisson") } {
  352.    if { "$val(traffic)" == "mix" } {
  353.     set trafficName "cbr + poisson"
  354.     set traffic1 cbr
  355.     set traffic2 poisson
  356.    } else {
  357.     set trafficName $val(traffic)
  358.     set traffic1 $val(traffic)
  359.     set traffic2 $val(traffic)
  360.    }
  361.    $self ${traffic1}traffic 3 18 0.2 $appTime1
  362.    $self ${traffic2}traffic 9 17 0.2 $appTime2
  363. }
  365. # setup ftp traffic flows between nodes:
  366. #  -- LQD
  367. #  -- CCA, CSMA/CA and slotted CSMA/CA
  368. #  -- filtering
  369. if { "$val(traffic)" == "ftp" } {
  370.    $self ftptraffic 3 18 $appTime1
  371.    $self ftptraffic 9 17 $appTime2
  372. }
  374. # failure handling
  375. #  -- orphaning
  376. #  -- coordinator realignment
  377. #  -- reassociation
  378. $ns_ at [expr $appTime1 + 2.0] "Mac/802_15_4 wpanCmd link-down 0 19"
  379. $ns_ at [expr $appTime2 + 3.0] "$node_(2) node-down"
  380. $ns_ at [expr $appTime1 + 8.0] "Mac/802_15_4 wpanCmd link-up 0 19"
  381. $ns_ at [expr $appTime2 + 10.0] "$node_(2) node-up"
  383. # begin to use indrect data transmission
  384. $ns_ at [expr $appTime1 + 60.0] "Mac/802_15_4 wpanCmd txOption 4" ;# 0x02=GTS; 0x04=Indirect; 0x00=Direct (only for 802.15.4-unaware upper layer app. packet)
  386. # tell nodes when the simulation ends
  387. for {set i 0} {$i < $val(nn) } {incr i} {
  388.     $ns_ at $stopTime "$node_($i) reset";
  389. }
  391. $ns_ at $stopTime.1 "$self finish"
  392. }
  394. Test/wpan instproc run {} {
  395. $self instvar ns_
  396. $ns_ run
  397. }
  399. proc runtest {arg} {
  400. global quiet
  401. set quiet 0
  403. set b [llength $arg]
  404. if {$b == 1} {
  405. set test $arg
  406. } elseif {$b == 2} {
  407. set test [lindex $arg 0]
  408. if {[lindex $arg 1] == "QUIET"} {
  409. set quiet 1
  410. }
  411. } else {
  412. usage
  413. }
  414. set t [new Test/$test]
  416. $t run
  417. }
  419. global argv arg0
  420. default_values
  421. runtest $argv