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

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

通讯编程

开发平台：

Visual C++

test-suite-satellite.tcl：源码内容
  1. #
  2. Agent/TCP set tcpTick_ 0.1
  3. # The default for tcpTick_ is being changed to reflect a changing reality.
  4. Agent/TCP set rfc2988_ false
  5. # The default for rfc2988_ is being changed to true.
  6. # FOR UPDATING GLOBAL DEFAULTS:
  7. Agent/TCP set precisionReduce_ false ;   # default changed on 2006/1/24.
  8. Agent/TCP set rtxcur_init_ 6.0 ;      # Default changed on 2006/01/21
  9. Agent/TCP set updated_rttvar_ false ;  # Variable added on 2006/1/21
  10. Agent/TCP set minrto_ 1
  11. # default changed on 10/14/2004.
  12. Agent/TCP set useHeaders_ false
  13. # The default is being changed to useHeaders_ true.
  14. Agent/TCP set windowInit_ 1
  15. # The default is being changed to 2.
  16. Agent/TCP set singledup_ 0
  17. # The default is being changed to 1
  18. Agent/TCP set SetCWRonRetransmit_ true
  19. # Changing the default value.
  20. #
  21. # Copyright (c) 1999 Regents of the University of California.
  22. # All rights reserved.
  23. #
  24. # Redistribution and use in source and binary forms, with or without
  25. # modification, are permitted provided that the following conditions
  26. # are met:
  27. # 1. Redistributions of source code must retain the above copyright
  28. #    notice, this list of conditions and the following disclaimer.
  29. # 2. Redistributions in binary form must reproduce the above copyright
  30. #    notice, this list of conditions and the following disclaimer in the
  31. #    documentation and/or other materials provided with the distribution.
  32. # 3. All advertising materials mentioning features or use of this software
  33. #    must display the following acknowledgement:
  34. #       This product includes software developed by the MASH Research
  35. #       Group at the University of California Berkeley.
  36. # 4. Neither the name of the University nor of the Research Group may be
  37. #    used to endorse or promote products derived from this software without
  38. #    specific prior written permission.
  39. #
  40. # THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  41. # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  42. # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  43. # ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  44. # FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  45. # DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  46. # OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  47. # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  48. # LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  49. # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  50. # SUCH DAMAGE.
  51. #    
  52. # @(#) $Header: /cvsroot/nsnam/ns-2/tcl/test/test-suite-satellite.tcl,v 1.12 2006/01/24 23:00:07 sallyfloyd Exp $
  53. #
  54. # Contributed by Tom Henderson, UCB Daedalus Research Group, June 1999
  55. #    
  56. # This test suite is for validating the satellite extensions
  57. #
  58. # To run all tests:  test-all-satellite
  59. #
  60. # To run individual tests:
  61. # ns test-suite-satellite.tcl mixed 
  62. # ns test-suite-satellite.tcl mixed.legacy 
  63. # ns test-suite-satellite.tcl repeater
  64. # ns test-suite-satellite.tcl aloha
  65. # ns test-suite-satellite.tcl aloha.collisions
  66. # ns test-suite-satellite.tcl wired 
  67. #
  68. #
  69. # To view a list of available tests to run with this script:
  70. # ns test-suite-satellite.tcl
  71. #
  72. Agent/TCP set syn_ false
  73. Agent/TCP set delay_growth_ false
  74. # In preparation for changing the default values for syn_ and delay_growth_.
  76. # Some OTcl bound variables
  77. HandoffManager/Term set elevation_mask_ 8.2
  78. HandoffManager/Term set term_handoff_int_ 10
  79. HandoffManager set handoff_randomization_ "false"
  80. Mac/Sat/UnslottedAloha set mean_backoff_ 1s 
  81. Mac/Sat/UnslottedAloha set rtx_limit_ 3
  82. Mac/Sat/UnslottedAloha set send_timeout_ 270ms
  84. Class TestSuite
  86. TestSuite instproc init {} {
  87. $self instvar ns_ test_ topo_ node_ 
  88. set ns_ [new Simulator]
  89. $ns_ rtproto Dummy
  91. global f
  92. set f [open temp.rands w]
  93. $ns_ trace-all $f
  95. }
  97. TestSuite instproc finish args {
  98. $self instvar ns_
  100. $ns_ flush-trace
  101. exit 0
  102. }
  104. proc usage {} {
  105. global argv0
  106. puts stderr "usage: ns $argv0 <tests> "
  107. puts stderr "Valid tests are:t[get-subclasses TestSuite Test/]"
  108. exit 1
  109. }
  111. proc isProc? {cls prc} {
  112. if [catch "Object info subclass $cls/$prc" r] {
  113. global argv0
  114. puts stderr "$argv0: no such $cls: $prc"
  115. usage
  116. }
  117. }
  119. proc get-subclasses {cls pfx} {
  120. set ret ""
  121. set l [string length $pfx]
  123. set c $cls
  124. while {[llength $c] > 0} {
  125. set t [lindex $c 0]
  126. set c [lrange $c 1 end]
  127. if [string match ${pfx}* $t] {
  128. lappend ret [string range $t $l end]
  129. }
  130. eval lappend c [$t info subclass]
  131. }
  132. set ret
  133. }
  135. TestSuite proc runTest {} {
  136. global argc argv
  138. switch $argc {
  139. 1 {
  140. set test $argv
  141. isProc? Test $test
  143. }
  144. 2 {
  145. set test [lindex $argv 0]
  146. isProc? Test $test
  147. set a [lindex $argv 1]
  148. }
  149. default {
  150. usage
  151. }
  152. }
  153. set t [new Test/$test]
  154. $t run
  155. }
  157. # Global configuration parameters
  159. global opt
  160. set opt(chan)           Channel/Sat
  161. set opt(bw_up)          2Mb; # Uplink bandwidth
  162. set opt(bw_down)        2Mb; # Downlink bandwidth
  163. set opt(phy)            Phy/Sat
  164. set opt(mac)            Mac/Sat
  165. set opt(ifq)            Queue/DropTail
  166. set opt(qlim)           50
  167. set opt(ll)             LL/Sat
  169. # Definition of test-suite tests
  170. # Simple bent-pipe (repeater) satellite
  171. # NOTE:  This test is identical to sat-repeater.tcl in ~ns/tcl/ex
  173. Class Test/repeater -superclass TestSuite
  174. Test/repeater instproc init {} {
  175. $self instvar test_ 
  176. set test_ repeater
  177. $self next
  178. }
  180. Test/repeater instproc run {} {
  181. $self instvar ns_ node_ 
  183. global opt f
  185. set opt(wiredRouting)   OFF
  187. # GEO satellite at 95 degrees longitude West
  188. $ns_ node-config -satNodeType geo-repeater 
  189. -llType $opt(ll) 
  190. -ifqType $opt(ifq) 
  191. -ifqLen $opt(qlim) 
  192. -macType $opt(mac) 
  193. -phyType $opt(phy) 
  194. -channelType $opt(chan) 
  195. -downlinkBW $opt(bw_down) 
  196. -wiredRouting $opt(wiredRouting)
  198. set n1 [$ns_ node]
  199. $n1 set-position -95
  201. # Two terminals: one in NY and one in SF 
  202. $ns_ node-config -satNodeType terminal
  203. set n2 [$ns_ node] 
  204. $n2 set-position 40.9 -73.9; # NY
  205. set n3 [$ns_ node] 
  206. $n3 set-position 37.8 -122.4; # SF
  208. # Add GSLs to geo satellites
  209. $n2 add-gsl geo $opt(ll) $opt(ifq) $opt(qlim) $opt(mac) $opt(bw_up) 
  210.             $opt(phy) [$n1 set downlink_] [$n1 set uplink_]
  211. $n3 add-gsl geo $opt(ll) $opt(ifq) $opt(qlim) $opt(mac) $opt(bw_up)  
  212.     $opt(phy) [$n1 set downlink_] [$n1 set uplink_]
  214. # Add an error model to the receiving terminal node
  215. set em_ [new ErrorModel]
  216. $em_ unit pkt 
  217. $em_ set rate_ 0.02
  218. $em_ ranvar [new RandomVariable/Uniform] 
  219. $n3 interface-errormodel $em_
  221. $ns_ trace-all-satlinks $f
  223. # Attach agents for CBR traffic generator
  224. set udp0 [new Agent/UDP] 
  225. $ns_ attach-agent $n2 $udp0
  226. set cbr0 [new Application/Traffic/CBR]
  227. $cbr0 attach-agent $udp0
  228. $cbr0 set interval_ 6
  230. set null0 [new Agent/Null]
  231. $ns_ attach-agent $n3 $null0
  232.  
  233. $ns_ connect $udp0 $null0
  235. # Attach agents for FTP
  236. set tcp1 [$ns_ create-connection TCP $n2 TCPSink $n3 0]
  237. set ftp1 [$tcp1 attach-app FTP]
  238. $ns_ at 7.0 "$ftp1 produce 100"
  240. # We use centralized routing
  241. set satrouteobject_ [new SatRouteObject]
  242. $satrouteobject_ compute_routes
  244. $ns_ at 1.0 "$cbr0 start"
  246. $ns_ at 100.0 "$self finish"   
  248. $ns_ run
  249. }
  251. # Testing a geo satellite and a plane of polar satellites
  252. # NOTE:  This test is identical to sat-mixed.tcl in ~ns/tcl/ex
  254. Class Test/mixed -superclass TestSuite
  255. Test/mixed instproc init {} {
  256. $self instvar test_
  257. set test_       mixed 
  258. $self next
  260. }
  262. Test/mixed instproc run {} {
  263. $self instvar ns_  
  265. global opt f
  267. # Change some of the options
  268. set opt(bw_down)        1.5Mb
  269. set opt(bw_up)          1.5Mb
  270. set opt(bw_isl)         25Mb
  272. set opt(alt)            780
  273. set opt(inc)            90
  274. set opt(wiredRouting)   OFF
  276. $ns_ node-config -satNodeType polar 
  277.  -llType $opt(ll) 
  278.  -ifqType $opt(ifq) 
  279.  -ifqLen $opt(qlim) 
  280.  -macType $opt(mac) 
  281.  -phyType $opt(phy) 
  282.  -channelType $opt(chan) 
  283.  -downlinkBW $opt(bw_down) 
  284.  -wiredRouting $opt(wiredRouting)
  286. set n0 [$ns_ node]; set n1 [$ns_ node]; set n2 [$ns_ node];
  287. set n3 [$ns_ node]; set n4 [$ns_ node]; set n5 [$ns_ node];
  288. set n6 [$ns_ node]; set n7 [$ns_ node]; set n8 [$ns_ node];
  289. set n9 [$ns_ node]; set n10 [$ns_ node]
  291. set plane 1
  292. $n0 set-position $opt(alt) $opt(inc) 0 0 $plane 
  293. $n1 set-position $opt(alt) $opt(inc) 0 32.73 $plane 
  294. $n2 set-position $opt(alt) $opt(inc) 0 65.45 $plane 
  295. $n3 set-position $opt(alt) $opt(inc) 0 98.18 $plane 
  296. $n4 set-position $opt(alt) $opt(inc) 0 130.91 $plane 
  297. $n5 set-position $opt(alt) $opt(inc) 0 163.64 $plane 
  298. $n6 set-position $opt(alt) $opt(inc) 0 196.36 $plane 
  299. $n7 set-position $opt(alt) $opt(inc) 0 229.09 $plane 
  300. $n8 set-position $opt(alt) $opt(inc) 0 261.82 $plane 
  301. $n9 set-position $opt(alt) $opt(inc) 0 294.55 $plane 
  302. $n10 set-position $opt(alt) $opt(inc) 0 327.27 $plane 
  304. # By setting the next_ variable on polar sats; handoffs can be optimized
  305. # This step must follow all polar node creation
  306. $n0 set_next $n10; $n1 set_next $n0; $n2 set_next $n1; $n3 set_next $n2
  307. $n4 set_next $n3; $n5 set_next $n4; $n6 set_next $n5; $n7 set_next $n6
  308. $n8 set_next $n7; $n9 set_next $n8; $n10 set_next $n9
  310. # GEO satellite:  above North America
  311. $ns_ node-config -satNodeType geo
  312. set n11 [$ns_ node]
  313. $n11 set-position -100
  315. # Terminals
  316. $ns_ node-config -satNodeType terminal
  317. set n100 [$ns_ node]; set n101 [$ns_ node]
  318. $n100 set-position 37.9 -122.3; # Berkeley
  319. $n101 set-position 42.3 -71.1; # Boston
  320. set n200 [$ns_ node]; set n201 [$ns_ node]
  321. $n200 set-position 0 10
  322. $n201 set-position 0 -10
  324. # Add any necessary ISLs or GSLs
  325. # GSLs to the geo satellite:
  326. $n100 add-gsl geo $opt(ll) $opt(ifq) $opt(qlim) $opt(mac) $opt(bw_up) 
  327.   $opt(phy) [$n11 set downlink_] [$n11 set uplink_]
  328. $n101 add-gsl geo $opt(ll) $opt(ifq) $opt(qlim) $opt(mac) $opt(bw_up) 
  329.   $opt(phy) [$n11 set downlink_] [$n11 set uplink_]
  330. # Attach n200 and n201 
  331. $n200 add-gsl polar $opt(ll) $opt(ifq) $opt(qlim) $opt(mac) $opt(bw_up) $opt(phy) [$n5 set downlink_] [$n5 set uplink_]
  332. $n201 add-gsl polar $opt(ll) $opt(ifq) $opt(qlim) $opt(mac) $opt(bw_up) $opt(phy) [$n5 set downlink_] [$n5 set uplink_]
  334. #ISL
  335. $ns_ add-isl intraplane $n0 $n1 $opt(bw_isl) $opt(ifq) $opt(qlim)
  336. $ns_ add-isl intraplane $n1 $n2 $opt(bw_isl) $opt(ifq) $opt(qlim)
  337. $ns_ add-isl intraplane $n2 $n3 $opt(bw_isl) $opt(ifq) $opt(qlim)
  338. $ns_ add-isl intraplane $n3 $n4 $opt(bw_isl) $opt(ifq) $opt(qlim)
  339. $ns_ add-isl intraplane $n4 $n5 $opt(bw_isl) $opt(ifq) $opt(qlim)
  340. $ns_ add-isl intraplane $n5 $n6 $opt(bw_isl) $opt(ifq) $opt(qlim)
  341. $ns_ add-isl intraplane $n6 $n7 $opt(bw_isl) $opt(ifq) $opt(qlim)
  342. $ns_ add-isl intraplane $n7 $n8 $opt(bw_isl) $opt(ifq) $opt(qlim)
  343. $ns_ add-isl intraplane $n8 $n9 $opt(bw_isl) $opt(ifq) $opt(qlim)
  344. $ns_ add-isl intraplane $n9 $n10 $opt(bw_isl) $opt(ifq) $opt(qlim)
  345. $ns_ add-isl intraplane $n10 $n0 $opt(bw_isl) $opt(ifq) $opt(qlim)
  347. # Trace all queues
  348. $ns_ trace-all-satlinks $f
  350. # Attach agents
  351. set udp0 [new Agent/UDP]
  352. $ns_ attach-agent $n100 $udp0
  353. set cbr0 [new Application/Traffic/CBR]
  354. $cbr0 attach-agent $udp0
  355. $cbr0 set interval_ 60.01
  357. set udp1 [new Agent/UDP]
  358. $ns_ attach-agent $n200 $udp1
  359. $udp1 set class_ 1
  360. set cbr1 [new Application/Traffic/CBR]
  361. $cbr1 attach-agent $udp1
  362. $cbr1 set interval_ 90.5
  364. set null0 [new Agent/Null]
  365. $ns_ attach-agent $n101 $null0
  366. set null1 [new Agent/Null]
  367. $ns_ attach-agent $n201 $null1
  369. $ns_ connect $udp0 $null0
  370. $ns_ connect $udp1 $null1
  372. set satrouteobject_ [new SatRouteObject]
  373. $satrouteobject_ compute_routes
  375. $ns_ at 1.0 "$cbr0 start"
  376. $ns_ at 305.0 "$cbr1 start"
  378. $ns_ at 9000.0 "$self finish"
  380. $ns_ run
  381. }
  383. # Same as mixed, but with wired-satellite integration
  384. # NOTE:  This test is identical to sat-wired.tcl in ~ns/tcl/ex
  386. Class Test/wired -superclass TestSuite
  387. Test/wired instproc init {} {
  388. $self instvar test_
  389. set test_       wired 
  390. $self next
  392. }
  394. Test/wired instproc run {} {
  395. $self instvar ns_  
  397. global opt f
  399. # Change some of the options
  400. set opt(bw_down)        1.5Mb
  401. set opt(bw_up)          1.5Mb
  402. set opt(bw_isl)         25Mb
  404. set opt(alt)            780
  405. set opt(inc)            90
  406. set opt(wiredRouting)  ON
  408. $ns_ node-config -satNodeType polar 
  409.  -llType $opt(ll) 
  410.  -ifqType $opt(ifq) 
  411.  -ifqLen $opt(qlim) 
  412.  -macType $opt(mac) 
  413.  -phyType $opt(phy) 
  414.  -channelType $opt(chan) 
  415.  -downlinkBW $opt(bw_down) 
  416.  -wiredRouting $opt(wiredRouting)
  418. set n0 [$ns_ node]; set n1 [$ns_ node]; set n2 [$ns_ node];
  419. set n3 [$ns_ node]; set n4 [$ns_ node]; set n5 [$ns_ node];
  420. set n6 [$ns_ node]; set n7 [$ns_ node]; set n8 [$ns_ node];
  421. set n9 [$ns_ node]; set n10 [$ns_ node]
  423. set plane 1
  424. $n0 set-position $opt(alt) $opt(inc) 0 0 $plane 
  425. $n1 set-position $opt(alt) $opt(inc) 0 32.73 $plane 
  426. $n2 set-position $opt(alt) $opt(inc) 0 65.45 $plane 
  427. $n3 set-position $opt(alt) $opt(inc) 0 98.18 $plane 
  428. $n4 set-position $opt(alt) $opt(inc) 0 130.91 $plane 
  429. $n5 set-position $opt(alt) $opt(inc) 0 163.64 $plane 
  430. $n6 set-position $opt(alt) $opt(inc) 0 196.36 $plane 
  431. $n7 set-position $opt(alt) $opt(inc) 0 229.09 $plane 
  432. $n8 set-position $opt(alt) $opt(inc) 0 261.82 $plane 
  433. $n9 set-position $opt(alt) $opt(inc) 0 294.55 $plane 
  434. $n10 set-position $opt(alt) $opt(inc) 0 327.27 $plane 
  436. # By setting the next_ variable on polar sats; handoffs can be optimized
  437. # This step must follow all polar node creation
  438. $n0 set_next $n10; $n1 set_next $n0; $n2 set_next $n1; $n3 set_next $n2
  439. $n4 set_next $n3; $n5 set_next $n4; $n6 set_next $n5; $n7 set_next $n6
  440. $n8 set_next $n7; $n9 set_next $n8; $n10 set_next $n9
  442. # GEO satellite:  above North America
  443. $ns_ node-config -satNodeType geo
  444. set n11 [$ns_ node]
  445. $n11 set-position -100
  447. # Terminals
  448. $ns_ node-config -satNodeType terminal
  449. set n100 [$ns_ node]; set n101 [$ns_ node]
  450. $n100 set-position 37.9 -122.3; # Berkeley
  451. $n101 set-position 42.3 -71.1; # Boston
  452. set n200 [$ns_ node]; set n201 [$ns_ node]
  453. $n200 set-position 0 10
  454. $n201 set-position 0 -10
  456. # Add any necessary ISLs or GSLs
  457. # GSLs to the geo satellite:
  458. $n100 add-gsl geo $opt(ll) $opt(ifq) $opt(qlim) $opt(mac) $opt(bw_up) 
  459.   $opt(phy) [$n11 set downlink_] [$n11 set uplink_]
  460. $n101 add-gsl geo $opt(ll) $opt(ifq) $opt(qlim) $opt(mac) $opt(bw_up) 
  461.   $opt(phy) [$n11 set downlink_] [$n11 set uplink_]
  462. # Attach n200 and n201 
  463. $n200 add-gsl polar $opt(ll) $opt(ifq) $opt(qlim) $opt(mac) $opt(bw_up) $opt(phy) [$n5 set downlink_] [$n5 set uplink_]
  464. $n201 add-gsl polar $opt(ll) $opt(ifq) $opt(qlim) $opt(mac) $opt(bw_up) $opt(phy) [$n5 set downlink_] [$n5 set uplink_]
  466. #ISL
  467. $ns_ add-isl intraplane $n0 $n1 $opt(bw_isl) $opt(ifq) $opt(qlim)
  468. $ns_ add-isl intraplane $n1 $n2 $opt(bw_isl) $opt(ifq) $opt(qlim)
  469. $ns_ add-isl intraplane $n2 $n3 $opt(bw_isl) $opt(ifq) $opt(qlim)
  470. $ns_ add-isl intraplane $n3 $n4 $opt(bw_isl) $opt(ifq) $opt(qlim)
  471. $ns_ add-isl intraplane $n4 $n5 $opt(bw_isl) $opt(ifq) $opt(qlim)
  472. $ns_ add-isl intraplane $n5 $n6 $opt(bw_isl) $opt(ifq) $opt(qlim)
  473. $ns_ add-isl intraplane $n6 $n7 $opt(bw_isl) $opt(ifq) $opt(qlim)
  474. $ns_ add-isl intraplane $n7 $n8 $opt(bw_isl) $opt(ifq) $opt(qlim)
  475. $ns_ add-isl intraplane $n8 $n9 $opt(bw_isl) $opt(ifq) $opt(qlim)
  476. $ns_ add-isl intraplane $n9 $n10 $opt(bw_isl) $opt(ifq) $opt(qlim)
  477. $ns_ add-isl intraplane $n10 $n0 $opt(bw_isl) $opt(ifq) $opt(qlim)
  479. # Set up wired nodes
  480. # Connect $n300<->$n301<->$n302<->$n100<->$n11<->$n101<->$n303
  481. #                    ^               ^
  482. #                    |_______________|
  483. #
  484. # Packets from n303 to n300 should bypass n302 (node #18 in the trace)
  485. # (i.e., they should take the following path:  19,13,11,12,17,16)
  486. #
  487. $ns_ unset satNodeType_
  488. set n300 [$ns_ node]; # node 16 in trace
  489. set n301 [$ns_ node]; # node 17 in trace
  490. set n302 [$ns_ node]; # node 18 in trace
  491. set n303 [$ns_ node]; # node 19 in trace
  492. $ns_ duplex-link $n300 $n301 5Mb 2ms DropTail; # 16 <-> 17
  493. $ns_ duplex-link $n301 $n302 5Mb 2ms DropTail; # 17 <-> 18
  494. $ns_ duplex-link $n302 $n100 5Mb 2ms DropTail; # 18 <-> 11
  495. $ns_ duplex-link $n303 $n101 5Mb 2ms DropTail; # 19 <-> 13
  496. $ns_ duplex-link $n301 $n100 5Mb 2ms DropTail; # 17 <-> 11
  500. # Trace all queues
  501. $ns_ trace-all-satlinks $f
  503. # Attach agents
  504. set udp0 [new Agent/UDP]
  505. $ns_ attach-agent $n100 $udp0
  506. set cbr0 [new Application/Traffic/CBR]
  507. $cbr0 attach-agent $udp0
  508. $cbr0 set interval_ 60.01
  510. set udp1 [new Agent/UDP]
  511. $ns_ attach-agent $n200 $udp1
  512. $udp1 set class_ 1
  513. set cbr1 [new Application/Traffic/CBR]
  514. $cbr1 attach-agent $udp1
  515. $cbr1 set interval_ 90.5
  517. set null0 [new Agent/Null]
  518. $ns_ attach-agent $n101 $null0
  519. set null1 [new Agent/Null]
  520. $ns_ attach-agent $n201 $null1
  522. $ns_ connect $udp0 $null0
  523. $ns_ connect $udp1 $null1
  525. # Set up connection between wired nodes
  526. set udp2 [new Agent/UDP]
  527. $ns_ attach-agent $n303 $udp2
  528. set cbr2 [new Application/Traffic/CBR]
  529. $cbr2 attach-agent $udp2
  530. $cbr2 set interval_ 300
  531. set null2 [new Agent/Null]
  532. $ns_ attach-agent $n300 $null2
  534. $ns_ connect $udp2 $null2
  535. $ns_ at 10.0 "$cbr2 start"
  536.  
  537. set satrouteobject_ [new SatRouteObject]
  538. $satrouteobject_ compute_routes
  540. $ns_ at 1.0 "$cbr0 start"
  541. $ns_ at 305.0 "$cbr1 start"
  543. $ns_ at 9000.0 "$self finish"
  545. $ns_ run
  546. }
  548. # Testing unslotted aloha
  549. # bent-pipe gka geo satellite and a plane of polar satellites
  550. # NOTE:  This test is similar (fewer sources) to sat-aloha.tcl in ~ns/tcl/ex
  552. Class Test/aloha -superclass TestSuite
  553. Test/aloha instproc init {} {
  554. $self instvar test_
  555. set test_  aloha
  556. $self next
  557. }
  559. Test/aloha instproc run {} {
  560.     $self instvar ns_  
  562. global opt f 
  564. Mac/Sat set trace_drops_ false
  565. Mac/Sat set trace_collisions_ false
  567. set opt(bw_up)          2Mb
  568. set opt(bw_down)        2Mb
  569. set opt(mac)            Mac/Sat/UnslottedAloha 
  570. set opt(wiredRouting)   OFF
  572. $ns_ node-config -satNodeType geo-repeater 
  573. -llType $opt(ll) 
  574. -ifqType $opt(ifq) 
  575. -ifqLen $opt(qlim) 
  576. -macType $opt(mac) 
  577. -phyType $opt(phy) 
  578. -channelType $opt(chan) 
  579. -downlinkBW $opt(bw_down) 
  580. -wiredRouting $opt(wiredRouting)
  582. # GEO satellite at prime meridian
  583. set n1 [$ns_ node]
  584. $n1 set-position 0
  586. # Place 30 nodes at 30 different locations
  587. $ns_ node-config -satNodeType terminal
  588. set num_nodes           30
  589. for {set a 1} {$a <= $num_nodes} {incr a} {
  590. set n($a) [$ns_ node]
  591.          $n($a) set-position [expr -15 + $a ] [expr 15 - $a ]
  592.          $n($a) add-gsl geo $opt(ll) $opt(ifq) $opt(qlim) $opt(mac) 
  593.     $opt(bw_up) $opt(phy) [$n1 set downlink_] [$n1 set uplink_]
  594. }
  596. for {set a 1} {$a <= $num_nodes} {incr a} {
  597.          set b [expr int($a + (0.5 * $num_nodes))]
  598.          if {$b > 30} {
  599.                  incr b -30 
  600.          }
  602.          set udp($a) [new Agent/UDP]
  603.          $ns_ attach-agent $n($a) $udp($a)
  604.          set exp($a) [new Application/Traffic/Exponential]
  605.          $exp($a) attach-agent $udp($a)
  606.          $exp($a) set rate_ 3Kb
  608.          set null($a) [new Agent/Null]
  609.          $ns_ attach-agent $n($b) $null($a)
  611.          $ns_ connect $udp($a) $null($a)
  612.          $ns_ at 1.0 "$exp($a) start"
  613. }
  615. $ns_ trace-all-satlinks $f
  617. # We use centralized routing
  618. set satrouteobject_ [new SatRouteObject]
  619. $satrouteobject_ compute_routes
  621. $ns_ at 50.0 "$self finish"
  623. $ns_ run
  624. }
  626. Class Test/aloha.collisions -superclass TestSuite
  627. Test/aloha.collisions instproc init {} {
  628. $self instvar test_
  629. set test_  aloha
  630. $self next
  631. }
  633. Test/aloha.collisions instproc run {} {
  634.     $self instvar ns_  
  636. global opt f 
  638. Mac/Sat set trace_drops_ true
  639. Mac/Sat set trace_collisions_ true
  641. set opt(bw_up)          2Mb
  642. set opt(bw_down)        2Mb
  643. set opt(mac)            Mac/Sat/UnslottedAloha 
  644. set opt(wiredRouting)   OFF
  646. $ns_ node-config -satNodeType geo-repeater 
  647. -llType $opt(ll) 
  648. -ifqType $opt(ifq) 
  649. -ifqLen $opt(qlim) 
  650. -macType $opt(mac) 
  651. -phyType $opt(phy) 
  652. -channelType $opt(chan) 
  653. -downlinkBW $opt(bw_down) 
  654. -wiredRouting $opt(wiredRouting)
  656. # GEO satellite at prime meridian
  657. set n1 [$ns_ node]
  658. $n1 set-position 0
  660. # Place 30 nodes at 30 different locations
  661. $ns_ node-config -satNodeType terminal
  662. set num_nodes           30
  663. for {set a 1} {$a <= $num_nodes} {incr a} {
  664. set n($a) [$ns_ node]
  665.          $n($a) set-position [expr -15 + $a ] [expr 15 - $a ]
  666.          $n($a) add-gsl geo $opt(ll) $opt(ifq) $opt(qlim) $opt(mac) 
  667.     $opt(bw_up) $opt(phy) [$n1 set downlink_] [$n1 set uplink_]
  668. }
  670. for {set a 1} {$a <= $num_nodes} {incr a} {
  671.          set b [expr int($a + (0.5 * $num_nodes))]
  672.          if {$b > 30} {
  673.                  incr b -30 
  674.          }
  676.          set udp($a) [new Agent/UDP]
  677.          $ns_ attach-agent $n($a) $udp($a)
  678.          set exp($a) [new Application/Traffic/Exponential]
  679.          $exp($a) attach-agent $udp($a)
  680.          $exp($a) set rate_ 3Kb
  682.          set null($a) [new Agent/Null]
  683.          $ns_ attach-agent $n($b) $null($a)
  685.          $ns_ connect $udp($a) $null($a)
  686.          $ns_ at 1.0 "$exp($a) start"
  687. }
  689. $ns_ trace-all-satlinks $f
  691. # We use centralized routing
  692. set satrouteobject_ [new SatRouteObject]
  693. $satrouteobject_ compute_routes
  695. $ns_ at 50.0 "$self finish"
  697. $ns_ run
  698. }
  700. # Backward compatibility syntax (legacy code) for "mixed"
  701. Class Test/mixed.legacy -superclass TestSuite
  702. Test/mixed.legacy instproc init {} {
  703. $self instvar test_
  704. set test_       mixed.legacy 
  705. $self next
  707. }
  709. Test/mixed.legacy instproc run {} {
  710. $self instvar ns_  
  712. global opt f
  714. # Change some of the options
  715. set opt(bw_down)        1.5Mb
  716. set opt(bw_up)          1.5Mb
  717. set opt(bw_isl)         25Mb
  718. set opt(mac)            Mac/Sat 
  720. set opt(alt)            780
  721. set opt(inc)            90
  723. set linkargs "$opt(ll) $opt(ifq) $opt(qlim) $opt(mac) $opt(bw_down) $opt(phy)"
  724. set alt $opt(alt)
  725. set inc $opt(inc)
  726. set chan $opt(chan)
  727. set plane 1
  728. set n0 [$ns_ satnode-polar $alt $inc 0 0 $plane $linkargs $chan]
  729. set n1 [$ns_ satnode-polar $alt $inc 0 32.73 $plane $linkargs $chan]
  730. set n2 [$ns_ satnode-polar $alt $inc 0 65.45 $plane $linkargs $chan]
  731. set n3 [$ns_ satnode-polar $alt $inc 0 98.18 $plane $linkargs $chan]
  732. set n4 [$ns_ satnode-polar $alt $inc 0 130.91 $plane $linkargs $chan]
  733. set n5 [$ns_ satnode-polar $alt $inc 0 163.64 $plane $linkargs $chan]
  734. set n6 [$ns_ satnode-polar $alt $inc 0 196.36 $plane $linkargs $chan]
  735. set n7 [$ns_ satnode-polar $alt $inc 0 229.09 $plane $linkargs $chan]
  736. set n8 [$ns_ satnode-polar $alt $inc 0 261.82 $plane $linkargs $chan]
  737. set n9 [$ns_ satnode-polar $alt $inc 0 294.55 $plane $linkargs $chan]
  738. set n10 [$ns_ satnode-polar $alt $inc 0 327.27 $plane $linkargs $chan]
  740. # By setting the next_ variable on polar sats; handoffs can be optimized
  741. # This step must follow all polar node creation
  742. $n0 set_next $n10; $n1 set_next $n0; $n2 set_next $n1; $n3 set_next $n2
  743. $n4 set_next $n3; $n5 set_next $n4; $n6 set_next $n5; $n7 set_next $n6
  744. $n8 set_next $n7; $n9 set_next $n8; $n10 set_next $n9
  746. # GEO satellite:  above North America
  747. set n11 [$ns_ satnode-geo -100 $linkargs $opt(chan)]
  749. # Terminals
  750. set n100 [$ns_ satnode-terminal 37.9 -122.3]; # Berkeley
  751. set n101 [$ns_ satnode-terminal 42.3 -71.1]; # Boston
  752. set n200 [$ns_ satnode-terminal 0 10]
  753. set n201 [$ns_ satnode-terminal 0 -10]
  755. # Add any necessary ISLs or GSLs
  756. # GSLs to the geo satellite:
  757. $n100 add-gsl geo $opt(ll) $opt(ifq) $opt(qlim) $opt(mac) $opt(bw_up) 
  758.   $opt(phy) [$n11 set downlink_] [$n11 set uplink_]
  759. $n101 add-gsl geo $opt(ll) $opt(ifq) $opt(qlim) $opt(mac) $opt(bw_up) 
  760.   $opt(phy) [$n11 set downlink_] [$n11 set uplink_]
  761. # Attach n200 and n201 
  762. $n200 add-gsl polar $opt(ll) $opt(ifq) $opt(qlim) $opt(mac) $opt(bw_up) $opt(phy) [$n5 set downlink_] [$n5 set uplink_]
  763. $n201 add-gsl polar $opt(ll) $opt(ifq) $opt(qlim) $opt(mac) $opt(bw_up) $opt(phy) [$n5 set downlink_] [$n5 set uplink_]
  765. #ISL
  766. $ns_ add-isl intraplane $n0 $n1 $opt(bw_isl) $opt(ifq) $opt(qlim)
  767. $ns_ add-isl intraplane $n1 $n2 $opt(bw_isl) $opt(ifq) $opt(qlim)
  768. $ns_ add-isl intraplane $n2 $n3 $opt(bw_isl) $opt(ifq) $opt(qlim)
  769. $ns_ add-isl intraplane $n3 $n4 $opt(bw_isl) $opt(ifq) $opt(qlim)
  770. $ns_ add-isl intraplane $n4 $n5 $opt(bw_isl) $opt(ifq) $opt(qlim)
  771. $ns_ add-isl intraplane $n5 $n6 $opt(bw_isl) $opt(ifq) $opt(qlim)
  772. $ns_ add-isl intraplane $n6 $n7 $opt(bw_isl) $opt(ifq) $opt(qlim)
  773. $ns_ add-isl intraplane $n7 $n8 $opt(bw_isl) $opt(ifq) $opt(qlim)
  774. $ns_ add-isl intraplane $n8 $n9 $opt(bw_isl) $opt(ifq) $opt(qlim)
  775. $ns_ add-isl intraplane $n9 $n10 $opt(bw_isl) $opt(ifq) $opt(qlim)
  776. $ns_ add-isl intraplane $n10 $n0 $opt(bw_isl) $opt(ifq) $opt(qlim)
  778. # Trace all queues
  779. $ns_ trace-all-satlinks $f
  781. # Attach agents
  782. set udp0 [new Agent/UDP]
  783. $ns_ attach-agent $n100 $udp0
  784. set cbr0 [new Application/Traffic/CBR]
  785. $cbr0 attach-agent $udp0
  786. $cbr0 set interval_ 60.01
  788. set udp1 [new Agent/UDP]
  789. $ns_ attach-agent $n200 $udp1
  790. $udp1 set class_ 1
  791. set cbr1 [new Application/Traffic/CBR]
  792. $cbr1 attach-agent $udp1
  793. $cbr1 set interval_ 90.5
  795. set null0 [new Agent/Null]
  796. $ns_ attach-agent $n101 $null0
  797. set null1 [new Agent/Null]
  798. $ns_ attach-agent $n201 $null1
  800. $ns_ connect $udp0 $null0
  801. $ns_ connect $udp1 $null1
  803. set satrouteobject_ [new SatRouteObject]
  804. $satrouteobject_ compute_routes
  806. $ns_ at 1.0 "$cbr0 start"
  807. $ns_ at 305.0 "$cbr1 start"
  809. $ns_ at 9000.0 "$self finish"
  811. $ns_ run
  812. }
  814. TestSuite runTest