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

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

通讯编程

开发平台：

Visual C++

test-suite-smac.tcl：源码内容
  1. # Copyright (c) 2000 by the University of Southern California
  2. # All rights reserved.
  3. #
  4. #  This program is free software; you can redistribute it and/or
  5. #  modify it under the terms of the GNU General Public License,
  6. #  version 2, as published by the Free Software Foundation.
  7. #
  8. #  This program is distributed in the hope that it will be useful,
  9. #  but WITHOUT ANY WARRANTY; without even the implied warranty of
  10. #  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11. #  GNU General Public License for more details.
  12. #
  13. #  You should have received a copy of the GNU General Public License along
  14. #  with this program; if not, write to the Free Software Foundation, Inc.,
  15. #  59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
  16. #
  17. #  The copyright of this module includes the following
  18. #  linking-with-specific-other-licenses addition:
  19. #
  20. #  In addition, as a special exception, the copyright holders of
  21. #  this module give you permission to combine (via static or
  22. #  dynamic linking) this module with free software programs or
  23. #  libraries that are released under the GNU LGPL and with code
  24. #  included in the standard release of ns-2 under the Apache 2.0
  25. #  license or under otherwise-compatible licenses with advertising
  26. #  requirements (or modified versions of such code, with unchanged
  27. #  license).  You may copy and distribute such a system following the
  28. #  terms of the GNU GPL for this module and the licenses of the
  29. #  other code concerned, provided that you include the source code of
  30. #  that other code when and as the GNU GPL requires distribution of
  31. #  source code.
  32. #
  33. #  Note that people who make modified versions of this module
  34. #  are not obligated to grant this special exception for their
  35. #  modified versions; it is their choice whether to do so.  The GNU
  36. #  General Public License gives permission to release a modified
  37. #  version without this exception; this exception also makes it
  38. #  possible to release a modified version which carries forward this
  39. #  exception.
  41. # To view a list of available tests to run with this script:
  42. # ns test-suite-smac.tcl
  44. #remove-all-packet-headers       ; # removes all except common
  45. #add-packet-header Flags IP TCP Diffusion ARP LL Mac  
  46. # hdrs reqd for validation test
  48. # FOR UPDATING GLOBAL DEFAULTS:
  49. Agent/TCP set precisionReduce_ false ;   # default changed on 2006/1/24.
  50. Agent/TCP set rtxcur_init_ 6.0 ;      # Default changed on 2006/01/21
  51. Agent/TCP set updated_rttvar_ false ;  # Variable added on 2006/1/21
  52. Agent/TCP set minrto_ 1
  53. # default changed on 10/14/2004.
  55. Class TestSuite
  57. Class Test/brdcast1 -superclass TestSuite
  58. # 2 nodes brdcast ping req/replies to one another
  60. Class Test/brdcast1_sync -superclass TestSuite
  62. Class Test/brdcast2 -superclass TestSuite
  63. # 3 node topology brdcasting ping req/rep that result in collision
  65. Class Test/brdcast2_sync -superclass TestSuite
  67. Class Test/unicast1 -superclass TestSuite
  68. # 2 node topology unicasting with RTS/CTS/DATA/ACK exchange
  70. Class Test/unicast1_sync -superclass TestSuite
  72. Class Test/unicast2 -superclass TestSuite
  73. # 3 node topology where node 0 & 1 unicast and node 2 brdcast.
  75. Class Test/unicast2_sync -superclass TestSuite
  77. Class Test/unicast3 -superclass TestSuite
  78. #3 node topolofy where node 2 is neighbor to the sender node. can hear RTS/DATA, not CTS
  80. Class Test/unicast3_sync -superclass TestSuite
  82. Class Test/unicast4 -superclass TestSuite
  83. #3 node topology where node 2 is neighbor to the recvr node. can hear CTS only.
  85. Class Test/unicast4_sync -superclass TestSuite
  87. Class Test/unicast5 -superclass TestSuite
  88. # 4 node topology. 2 sender-recvr pairs (0->1 & 3->2)
  89. #3 cannot hear 0 & 1. 2 can hear only sender 0.
  90.  
  91. Class Test/unicast5_sync -superclass TestSuite
  93. Class Test/unicast6 -superclass TestSuite
  94. # 4 node topology. 2 sender-recvr pairs (0->1 & 3->2)
  95. #3 cannot hear 0 & 1. 2 can hear only recvr 1.
  97. Class Test/unicast6_sync -superclass TestSuite
  99. Class Test/unicast7 -superclass TestSuite
  100. # 4 node topology. 2 sender-recvr pairs (0->1 & 2->3)
  101. #3 cannot hear 0 & 1. 2 can hear only sender 0.
  102.  
  103. Class Test/unicast7_sync -superclass TestSuite
  105. Class Test/unicast8 -superclass TestSuite
  106. # 4 node topology. 2 sender-recvr pairs (0->1 & 2->3)
  107. #3 cannot hear 0. 2 can hear only recvr 1.
  109. Class Test/unicast8_sync -superclass TestSuite
  111. Class Test/unicast9 -superclass TestSuite
  112. # 4 node topology. 2 sender-recvr pairs (0->1 & 2->3)
  113. #2 & 3 can hear 0 & 1 but cannot recv pkts correctly. a lot of delay
  115. Class Test/unicast9_sync -superclass TestSuite
  117. Class Test/unicast10 -superclass TestSuite
  118. # 4 node topology. 2 sender-recvr pairs (0->1 & 2->3)
  119. #2 & 3 cannot hear and recv from 0 & 1. can send simultaneously.
  121. Class Test/unicast10_sync -superclass TestSuite
  123. Class Test/unicast11 -superclass TestSuite
  124. # 3 node triangle topology.1->2,2->3,3->1.
  126. Class Test/unicast11_sync -superclass TestSuite
  128. Class Test/unicast12 -superclass TestSuite
  129. # 3 node triangle topology.1->2,2->3,3->1.with error model on every incoming interface
  130. # that randomly drops pkts
  132. Class Test/unicast12_sync -superclass TestSuite
  134. proc usage {} {
  135.     global argv0
  136.     puts stderr "usage: ns $argv0 <tests>"
  137.     puts "Valid tests: brdcast1"
  138. }
  140. proc default_options {} {
  141.     global opt
  142.     set opt(chan)           Channel/WirelessChannel    ;# channel type
  143.     set opt(prop)           Propagation/TwoRayGround   ;# radio-propagation model
  144.     set opt(netif)          Phy/WirelessPhy            ;# network interface type
  145.     set opt(mac)            Mac/SMAC                   ;# MAC type
  146.     #set opt(mac)            Mac/802_11                 ;# MAC type
  147.     set opt(ifq)            Queue/DropTail/PriQueue    ;# interface queue type
  148.     set opt(ll)             LL                         ;# link layer type
  149.     set opt(ant)            Antenna/OmniAntenna        ;# antenna model
  150.     set opt(ifqlen)         50                         ;# max packet in ifq
  151.     set opt(x)              800
  152.     set opt(y)              800
  153.     set opt(rp)             DumbAgent               ;# routing protocol
  154.     set opt(tr)             temp.rands
  155.     set opt(stop)           5.0
  156.     set opt(stop-sync)      100.0        ;# extended run time for sync simulations
  157.     set opt(seed)           1
  158. }
  160. TestSuite instproc init {} {
  161.     global opt node_
  162.     $self instvar ns_ topo_ tracefd_ testname_
  164.     set name [split $testname_ _]
  165.     puts "$name"
  166.     if { [lindex $name 1] == "sync" } {
  167. Mac/SMAC set syncFlag_ 1
  168.     }
  170.     set ns_         [new Simulator]
  171.     
  172.     puts "Seeding Random number generator with $opt(seed)n"
  173.     ns-random $opt(seed)
  174.     
  175.     set tracefd_ [open $opt(tr) w]
  176.     $ns_ trace-all $tracefd_
  177.     
  178.     set topo_     [new Topography]
  179.     $topo_ load_flatgrid $opt(x) $opt(y)
  180.     
  181.     create-god $opt(nn)
  183.     $ns_ node-config -adhocRouting $opt(rp) 
  184.                          -macType $opt(mac) 
  185.                          -llType $opt(ll) 
  186.  -ifqType $opt(ifq) 
  187.  -ifqLen $opt(ifqlen) 
  188.  -antType $opt(ant) 
  189.  -propType $opt(prop) 
  190.  -phyType $opt(netif) 
  191.  -channelType $opt(chan) 
  192.  -topoInstance $topo_ 
  193.  -agentTrace ON 
  194.  -routerTrace ON 
  195.  -macTrace ON
  197.     if {$testname_ == "unicast12" } {
  198. $ns_ node-config --IncomingErrProc $opt(err)
  199.     }
  200.     
  201. #    if { [lindex $name 1] == "sync" } {
  202. #$ns_ node-config -macTrace OFF
  203. #    }
  204.       
  205.     for {set i 0} {$i < $opt(nn) } {incr i} {
  206. set node_($i) [$ns_ node]
  207. $node_($i) random-motion 0 ;# disable random motion
  208.     }
  209. }
  212. TestSuite instproc run {} {
  213.     global opt node_
  214.     $self instvar ns_ testname_
  216.     set n [split $testname_ _]
  217.     if { [lindex $n 1] == "sync" } {
  218. set opt(stop) $opt(stop-sync)
  219.     }
  220.     puts "$opt(stop)"  
  221.     #
  222.     # Tell nodes when the simulation ends
  223.     #
  224.     for {set i 0} {$i < $opt(nn) } {incr i} {
  225. $ns_ at $opt(stop) "$node_($i) reset";
  226.     }
  227.     
  228.     $ns_ at $opt(stop) "$self finish"
  229.     $ns_ at $opt(stop) "puts "NS EXITING..." ; $ns_ halt"
  231.     puts "Starting Simulation..."
  232.     $ns_  run
  233. }
  235. Test/brdcast1 instproc init {} {
  236.     global opt node_
  237.     $self instvar ns_ testname_
  238.     
  239.     set testname_ brdcast1
  240.     set opt(nn) 2
  241.     $self next
  242.     
  243.     
  244.     $node_(0) set X_ 5.0
  245.     $node_(0) set Y_ 2.0
  246.     $node_(0) set Z_ 0.0
  247.     
  248.     $node_(1) set X_ 50.0
  249.     $node_(1) set Y_ 45.0
  250.     $node_(1) set Z_ 0.0
  251.     
  252.     # all scheduled to brdcast at same time
  253.     
  254.     set ping0 [new Agent/Ping]
  255.     $ns_ attach-agent $node_(0) $ping0
  256.     $ns_ at 1.0 "$ping0 start-WL-brdcast"
  257.     
  258.     set ping1 [new Agent/Ping]
  259.     $ns_ attach-agent $node_(1) $ping1
  260.     $ns_ at 1.0 "$ping1 start-WL-brdcast"
  261.     
  262. }
  264. Test/brdcast1 instproc run {} {
  265.     $self instvar ns_
  266.     $self next
  267. }
  269.     
  271. Test/brdcast1_sync instproc init {} {
  272.     global opt node_
  273.     $self instvar testname_ ns_
  274.     
  275.     set testname_ brdcast1_sync
  276.     set opt(nn) 2
  277.     $self next
  278.     
  279.     $node_(0) set X_ 5.0
  280.     $node_(0) set Y_ 2.0
  281.     $node_(0) set Z_ 0.0
  282.     
  283.     
  284.     $node_(1) set X_ 50.0
  285.     $node_(1) set Y_ 45.0
  286.     $node_(1) set Z_ 0.0
  288.     set ping0 [new Agent/Ping]
  289.     $ns_ attach-agent $node_(0) $ping0
  290.     $ns_ at 40.0 "$ping0 start-WL-brdcast"
  291.     
  292.     set ping1 [new Agent/Ping]
  293.     $ns_ attach-agent $node_(1) $ping1
  294.     $ns_ at 40.0 "$ping1 start-WL-brdcast"
  296. }
  298. Test/brdcast1_sync instproc run {} {
  299.     $self instvar ns_
  300.     $self next
  301. }
  303. Test/brdcast2 instproc init {} {
  304.     global opt node_
  305.     $self instvar ns_ net_ testname_ topo_ tracefd_
  306.     
  307.     set testname_ brdcast2
  308.     set opt(nn)  3
  309.     $self next
  310.     
  311.     $node_(0) set X_ 5.0
  312.     $node_(0) set Y_ 2.0
  313.     $node_(0) set Z_ 0.0
  314.     
  315.     $node_(1) set X_ 50.0
  316.     $node_(1) set Y_ 45.0
  317.     $node_(1) set Z_ 0.0
  318.     
  319.     $node_(2) set X_ 150.0
  320.     $node_(2) set Y_ 150.0
  321.     $node_(2) set Z_ 0.0
  322.     
  323.     # all scheduled to brdcast at same time
  324.     
  325.     set ping0 [new Agent/Ping]
  326.     $ns_ attach-agent $node_(0) $ping0
  327.     $ns_ at 1.0 "$ping0 start-WL-brdcast"
  328.     
  329.     set ping1 [new Agent/Ping]
  330.     $ns_ attach-agent $node_(1) $ping1
  331.     $ns_ at 1.0 "$ping1 start-WL-brdcast"
  333.     set ping2 [new Agent/Ping]
  334.     $ns_ attach-agent $node_(2) $ping2
  335.     $ns_ at 1.0 "$ping2 start-WL-brdcast"
  336. }
  338. Test/brdcast2 instproc run {} {
  339.     $self instvar ns_
  340.     $self next
  341. }
  343. Test/brdcast2_sync instproc init {} {
  344.     global opt node_
  345.     $self instvar ns_ testname_
  346.     
  347.     set testname_ brdcast2_sync
  348.     set opt(nn)  3
  349.     $self next
  350.     
  351.     $node_(0) set X_ 5.0
  352.     $node_(0) set Y_ 2.0
  353.     $node_(0) set Z_ 0.0
  354.     
  355.     $node_(1) set X_ 50.0
  356.     $node_(1) set Y_ 45.0
  357.     $node_(1) set Z_ 0.0
  358.     
  359.     $node_(2) set X_ 150.0
  360.     $node_(2) set Y_ 150.0
  361.     $node_(2) set Z_ 0.0
  362.     
  363.     # all scheduled to brdcast at same time
  364.     
  365.     set ping0 [new Agent/Ping]
  366.     $ns_ attach-agent $node_(0) $ping0
  367.     $ns_ at 40.0 "$ping0 start-WL-brdcast"
  368.     
  369.     set ping1 [new Agent/Ping]
  370.     $ns_ attach-agent $node_(1) $ping1
  371.     $ns_ at 41.0 "$ping1 start-WL-brdcast"
  373.     set ping2 [new Agent/Ping]
  374.     $ns_ attach-agent $node_(2) $ping2
  375.     $ns_ at 42.0 "$ping2 start-WL-brdcast"
  376. }
  378. Test/brdcast2_sync instproc run {} {
  379.     $self instvar ns_
  380.     $self next
  381. }
  384. Test/unicast1 instproc init {} {
  385.     global opt node_
  386.     $self instvar ns_ net_ testname_ topo_ tracefd_
  387.     
  388.     set testname_ unicast1
  389.     set opt(nn) 2
  390.     $self next
  392.     $node_(0) set X_ 5.0
  393.     $node_(0) set Y_ 2.0
  394.     $node_(0) set Z_ 0.0
  395.     
  396.     $node_(1) set X_ 50.0
  397.     $node_(1) set Y_ 45.0
  398.     $node_(1) set Z_ 0.0
  400.     set ping0 [new Agent/Ping]
  401.     $ns_ attach-agent $node_(0) $ping0
  402.     
  403.     set ping1 [new Agent/Ping]
  404.     $ns_ attach-agent $node_(1) $ping1
  405.     
  406.     # connect two agents
  407.     $ns_ connect $ping0 $ping1
  409.     $ns_ at 1.0 "$ping0 send"
  411. }
  414. Test/unicast1 instproc run {} {
  415.     $self instvar ns_
  416.     $self next
  417. }
  419. Test/unicast1_sync instproc init {} {
  420.     global opt node_
  421.     $self instvar ns_ net_ testname_ topo_ tracefd_
  422.     
  423.     set testname_ unicast1_sync
  424.     set opt(nn) 2
  425.     $self next
  427.     $node_(0) set X_ 5.0
  428.     $node_(0) set Y_ 2.0
  429.     $node_(0) set Z_ 0.0
  430.     
  431.     $node_(1) set X_ 50.0
  432.     $node_(1) set Y_ 45.0
  433.     $node_(1) set Z_ 0.0
  435.     set ping0 [new Agent/Ping]
  436.     $ns_ attach-agent $node_(0) $ping0
  437.     
  438.     set ping1 [new Agent/Ping]
  439.     $ns_ attach-agent $node_(1) $ping1
  440.     
  441.     # connect two agents
  442.     $ns_ connect $ping0 $ping1
  444.     $ns_ at 40.0 "$ping0 send"
  446. }
  449. Test/unicast1_sync instproc run {} {
  450.     $self instvar ns_
  451.     $self next
  452. }
  456. Test/unicast2 instproc init {} {
  457.     global opt node_
  458.     $self instvar ns_ net_ testname_ topo_ tracefd_
  459.     
  460.     set testname_ unicast2
  461.     set opt(nn) 3
  462.     $self next
  464.     $node_(0) set X_ 300.0
  465.     $node_(0) set Y_ 350.0
  466.     $node_(0) set Z_ 0.0
  467.     
  468.     $node_(1) set X_ 450.0
  469.     $node_(1) set Y_ 350.0
  470.     $node_(1) set Z_ 0.0
  471.     
  472.     # 2 can hear and recv from nodes 0 & 1 (sender and recvr)
  473.     $node_(2) set X_ 400.0
  474.     $node_(2) set Y_ 125.0
  475.     $node_(2) set Z_ 0.0
  476.     
  477.     set ping0 [new Agent/Ping]
  478.     $ns_ attach-agent $node_(0) $ping0
  479.     
  480.     set ping1 [new Agent/Ping]
  481.     $ns_ attach-agent $node_(1) $ping1
  483.     # connect two agents
  484.     $ns_ connect $ping0 $ping1
  485.     
  486.     set ping2 [new Agent/Ping]
  487.     $ns_ attach-agent $node_(2) $ping2
  488.     
  489.     # start times for connections
  490.     $ns_ at 0.1 "$ping0 send"
  492.     # ping2 sends brdcast overlapping with ping0
  493.     $ns_ at 0.2 "$ping2 start-WL-brdcast"
  495. }
  497. Test/unicast2 instproc run {} {
  498.     $self instvar ns_
  499.     $self next
  500. }
  502. Test/unicast2_sync instproc init {} {
  503.     global opt node_
  504.     $self instvar ns_ net_ testname_ topo_ tracefd_
  505.     
  506.     set testname_ unicast2_sync
  507.     set opt(nn) 3
  508.     $self next
  510.     $node_(0) set X_ 300.0
  511.     $node_(0) set Y_ 350.0
  512.     $node_(0) set Z_ 0.0
  513.     
  514.     $node_(1) set X_ 450.0
  515.     $node_(1) set Y_ 350.0
  516.     $node_(1) set Z_ 0.0
  517.     
  518.     # 2 can hear and recv from nodes 0 & 1 (sender and recvr)
  519.     $node_(2) set X_ 400.0
  520.     $node_(2) set Y_ 125.0
  521.     $node_(2) set Z_ 0.0
  522.     
  523.     set ping0 [new Agent/Ping]
  524.     $ns_ attach-agent $node_(0) $ping0
  525.     
  526.     set ping1 [new Agent/Ping]
  527.     $ns_ attach-agent $node_(1) $ping1
  529.     # connect two agents
  530.     $ns_ connect $ping0 $ping1
  531.     
  532.     set ping2 [new Agent/Ping]
  533.     $ns_ attach-agent $node_(2) $ping2
  534.     
  535.     # start times for connections
  536.     $ns_ at 40.1 "$ping0 send"
  538.     # ping2 sends brdcast overlapping with ping0
  539.     $ns_ at 40.2 "$ping2 start-WL-brdcast"
  541. }
  543. Test/unicast2_sync instproc run {} {
  544.     $self instvar ns_
  545.     $self next
  546. }
  549. Test/unicast3 instproc init {} {
  550.     global opt node_
  551.     $self instvar ns_ net_ testname_ topo_ tracefd_
  552.     
  553.     set testname_ unicast3
  554.     set opt(nn) 3
  555.     $self next
  556.     
  557.     $node_(0) set X_ 300.0
  558.     $node_(0) set Y_ 300.0
  559.     $node_(0) set Z_ 0.0
  560.     
  561.     $node_(1) set X_ 150.0
  562.     $node_(1) set Y_ 150.0
  563.     $node_(1) set Z_ 0.0
  564.     
  565.     $node_(2) set X_ 470.0
  566.     $node_(2) set Y_ 470.0
  567.     $node_(2) set Z_ 0.0
  569.     set ping0 [new Agent/Ping]
  570.     $ns_ attach-agent $node_(0) $ping0
  572.     set ping1 [new Agent/Ping]
  573.     $ns_ attach-agent $node_(1) $ping1
  575.     set ping2 [new Agent/Ping]
  576.     $ns_ attach-agent $node_(2) $ping2
  578.     # connect two agents
  579.     $ns_ connect $ping0 $ping1
  581.     # start times for connections
  582.     $ns_ at 0.1 "$ping0 send"
  583.     $ns_ at 0.2 "$ping2 start-WL-brdcast"
  584.     
  585. }
  587. Test/unicast3 instproc run {} {
  588.     $self instvar ns_
  589.     $self next
  590. }
  593. Test/unicast3_sync instproc init {} {
  594.     global opt node_
  595.     $self instvar ns_ net_ testname_ topo_ tracefd_
  596.     
  597.     set testname_ unicast3_sync
  598.     set opt(nn) 3
  599.     $self next
  600.     
  601.     $node_(0) set X_ 300.0
  602.     $node_(0) set Y_ 300.0
  603.     $node_(0) set Z_ 0.0
  604.     
  605.     $node_(1) set X_ 150.0
  606.     $node_(1) set Y_ 150.0
  607.     $node_(1) set Z_ 0.0
  608.     
  609.     $node_(2) set X_ 470.0
  610.     $node_(2) set Y_ 470.0
  611.     $node_(2) set Z_ 0.0
  613.     set ping0 [new Agent/Ping]
  614.     $ns_ attach-agent $node_(0) $ping0
  616.     set ping1 [new Agent/Ping]
  617.     $ns_ attach-agent $node_(1) $ping1
  619.     set ping2 [new Agent/Ping]
  620.     $ns_ attach-agent $node_(2) $ping2
  622.     # connect two agents
  623.     $ns_ connect $ping0 $ping1
  625.     # start times for connections
  626.     $ns_ at 40.1 "$ping0 send"
  627.     $ns_ at 45.2 "$ping2 start-WL-brdcast"
  628.     
  629. }
  631. Test/unicast3_sync instproc run {} {
  632.     $self instvar ns_
  633.     $self next
  634. }
  637. Test/unicast4 instproc init {} {
  638.     global opt node_
  639.     $self instvar ns_ net_ testname_ topo_ tracefd_
  640.     
  641.     set testname_ unicast4
  642.     set opt(nn) 3
  643.     $self next
  644.     
  645.     # can hear recvr, CTS only.
  646.     $node_(1) set X_ 300.0
  647.     $node_(1) set Y_ 300.0
  648.     $node_(1) set Z_ 0.0
  649.     
  650.     $node_(0) set X_ 150.0
  651.     $node_(0) set Y_ 150.0
  652.     $node_(0) set Z_ 0.0
  653.     
  654.     $node_(2) set X_ 470.0
  655.     $node_(2) set Y_ 470.0
  656.     $node_(2) set Z_ 0.0
  658.     set ping0 [new Agent/Ping]
  659.     $ns_ attach-agent $node_(0) $ping0
  661.     set ping1 [new Agent/Ping]
  662.     $ns_ attach-agent $node_(1) $ping1
  664.     set ping2 [new Agent/Ping]
  665.     $ns_ attach-agent $node_(2) $ping2
  667.     # connect two agents
  668.     $ns_ connect $ping0 $ping1
  670.     # start times for connections
  671.     $ns_ at 0.1 "$ping0 send"
  672.     $ns_ at 0.2 "$ping2 start-WL-brdcast"
  673.     
  674. }
  676. Test/unicast4 instproc run {} {
  677.     $self instvar ns_
  678.     $self next
  679. }
  681. Test/unicast4_sync instproc init {} {
  682.     global opt node_
  683.     $self instvar ns_ net_ testname_ topo_ tracefd_
  684.     
  685.     set testname_ unicast4_sync
  686.     set opt(nn) 3
  687.     $self next
  688.     
  689.     # can hear recvr, CTS only.
  690.     $node_(1) set X_ 300.0
  691.     $node_(1) set Y_ 300.0
  692.     $node_(1) set Z_ 0.0
  693.     
  694.     $node_(0) set X_ 150.0
  695.     $node_(0) set Y_ 150.0
  696.     $node_(0) set Z_ 0.0
  697.     
  698.     $node_(2) set X_ 470.0
  699.     $node_(2) set Y_ 470.0
  700.     $node_(2) set Z_ 0.0
  702.     set ping0 [new Agent/Ping]
  703.     $ns_ attach-agent $node_(0) $ping0
  705.     set ping1 [new Agent/Ping]
  706.     $ns_ attach-agent $node_(1) $ping1
  708.     set ping2 [new Agent/Ping]
  709.     $ns_ attach-agent $node_(2) $ping2
  711.     # connect two agents
  712.     $ns_ connect $ping0 $ping1
  714.     # start times for connections
  715.     $ns_ at 40.1 "$ping0 send"
  716.     $ns_ at 40.2 "$ping2 start-WL-brdcast"
  717.     
  718. }
  720. Test/unicast4_sync instproc run {} {
  721.     $self instvar ns_
  722.     $self next
  723. }
  726. Test/unicast5 instproc init {} {
  727.     global opt node_
  728.     $self instvar ns_ net_ testname_ topo_ tracefd_
  729.     
  730.     set testname_ unicast5
  731.     set opt(nn) 4
  732.     $self next
  734.     $node_(0) set X_ 300.0
  735.     $node_(0) set Y_ 300.0
  736.     $node_(0) set Z_ 0.0
  737.     
  738.     $node_(1) set X_ 150.0
  739.     $node_(1) set Y_ 150.0
  740.     $node_(1) set Z_ 0.0
  741.     
  742.     # node 2 can hear 0 & 3
  743.     $node_(2) set X_ 450.0
  744.     $node_(2) set Y_ 450.0
  745.     $node_(2) set Z_ 0.0
  747.     # node 3 hears only 2
  748.     $node_(3) set X_ 600.0
  749.     $node_(3) set Y_ 600.0
  750.     $node_(3) set Z_ 0.0
  752.     set ping0 [new Agent/Ping]
  753.     $ns_ attach-agent $node_(0) $ping0
  754.     set ping1 [new Agent/Ping]
  755.     $ns_ attach-agent $node_(1) $ping1
  756.     # connect two agents
  757.     $ns_ connect $ping0 $ping1
  758.     
  759.     
  760.     set ping2 [new Agent/Ping]
  761.     $ns_ attach-agent $node_(2) $ping2
  762.     set ping3 [new Agent/Ping]
  763.     $ns_ attach-agent $node_(3) $ping3
  764.     # connect two agents
  765.     $ns_ connect $ping2 $ping3
  766.     
  767.     # start times for both connections
  768.     $ns_ at 0.1 "$ping0 send"
  770.     #sender cannot hear other tx
  771.     $ns_ at 0.1 "$ping3 send"
  772.     
  773. }
  775. Test/unicast5 instproc run {} {
  776.     $self instvar ns_
  777.     $self next
  778. }
  780. Test/unicast5_sync instproc init {} {
  781.     global opt node_
  782.     $self instvar ns_ net_ testname_ topo_ tracefd_
  783.     
  784.     set testname_ unicast5_sync
  785.     set opt(nn) 4
  786.     $self next
  788.     $node_(0) set X_ 300.0
  789.     $node_(0) set Y_ 300.0
  790.     $node_(0) set Z_ 0.0
  791.     
  792.     $node_(1) set X_ 150.0
  793.     $node_(1) set Y_ 150.0
  794.     $node_(1) set Z_ 0.0
  795.     
  796.     # node 2 can hear 0 & 3
  797.     $node_(2) set X_ 450.0
  798.     $node_(2) set Y_ 450.0
  799.     $node_(2) set Z_ 0.0
  801.     # node 3 hears only 2
  802.     $node_(3) set X_ 600.0
  803.     $node_(3) set Y_ 600.0
  804.     $node_(3) set Z_ 0.0
  806.     set ping0 [new Agent/Ping]
  807.     $ns_ attach-agent $node_(0) $ping0
  808.     set ping1 [new Agent/Ping]
  809.     $ns_ attach-agent $node_(1) $ping1
  810.     # connect two agents
  811.     $ns_ connect $ping0 $ping1
  812.     
  813.     
  814.     set ping2 [new Agent/Ping]
  815.     $ns_ attach-agent $node_(2) $ping2
  816.     set ping3 [new Agent/Ping]
  817.     $ns_ attach-agent $node_(3) $ping3
  818.     # connect two agents
  819.     $ns_ connect $ping2 $ping3
  820.     
  821.     # start times for both connections
  822.     $ns_ at 40.1 "$ping0 send"
  824.     #sender cannot hear other tx
  825.     $ns_ at 40.1 "$ping3 send"
  826.     
  827. }
  829. Test/unicast5_sync instproc run {} {
  830.     $self instvar ns_
  831.     $self next
  832. }
  835. Test/unicast6 instproc init {} {
  836.     global opt node_
  837.     $self instvar ns_ net_ testname_ topo_ tracefd_
  838.     
  839.     set testname_ unicast6
  840.     set opt(nn) 4
  841.     $self next
  843.     $node_(1) set X_ 300.0
  844.     $node_(1) set Y_ 300.0
  845.     $node_(1) set Z_ 0.0
  846.     
  847.     $node_(0) set X_ 150.0
  848.     $node_(0) set Y_ 150.0
  849.     $node_(0) set Z_ 0.0
  850.     
  851.     # node 2 can hear 1 & 3
  852.     $node_(2) set X_ 450.0
  853.     $node_(2) set Y_ 450.0
  854.     $node_(2) set Z_ 0.0
  856.     # node 3 hears only 2
  857.     $node_(3) set X_ 600.0
  858.     $node_(3) set Y_ 600.0
  859.     $node_(3) set Z_ 0.0
  861.     set ping0 [new Agent/Ping]
  862.     $ns_ attach-agent $node_(0) $ping0
  863.     set ping1 [new Agent/Ping]
  864.     $ns_ attach-agent $node_(1) $ping1
  865.     # connect two agents
  866.     $ns_ connect $ping0 $ping1
  867.     
  868.     
  869.     set ping2 [new Agent/Ping]
  870.     $ns_ attach-agent $node_(2) $ping2
  871.     set ping3 [new Agent/Ping]
  872.     $ns_ attach-agent $node_(3) $ping3
  873.     # connect two agents
  874.     $ns_ connect $ping2 $ping3
  875.     
  876.     # start times for both connections
  877.     $ns_ at 0.1 "$ping0 send"
  879.     #sender cannot hear other tx
  880.     $ns_ at 0.1 "$ping3 send"
  881.     
  882. }
  884. Test/unicast6 instproc run {} {
  885.     $self instvar ns_
  886.     $self next
  887. }
  889. Test/unicast6_sync instproc init {} {
  890.     global opt node_
  891.     $self instvar ns_ net_ testname_ topo_ tracefd_
  892.     
  893.     set testname_ unicast6_sync
  894.     set opt(nn) 4
  895.     $self next
  897.     $node_(1) set X_ 300.0
  898.     $node_(1) set Y_ 300.0
  899.     $node_(1) set Z_ 0.0
  900.     
  901.     $node_(0) set X_ 150.0
  902.     $node_(0) set Y_ 150.0
  903.     $node_(0) set Z_ 0.0
  904.     
  905.     # node 2 can hear 1 & 3
  906.     $node_(2) set X_ 450.0
  907.     $node_(2) set Y_ 450.0
  908.     $node_(2) set Z_ 0.0
  910.     # node 3 hears only 2
  911.     $node_(3) set X_ 600.0
  912.     $node_(3) set Y_ 600.0
  913.     $node_(3) set Z_ 0.0
  915.     set ping0 [new Agent/Ping]
  916.     $ns_ attach-agent $node_(0) $ping0
  917.     set ping1 [new Agent/Ping]
  918.     $ns_ attach-agent $node_(1) $ping1
  919.     # connect two agents
  920.     $ns_ connect $ping0 $ping1
  921.     
  922.     
  923.     set ping2 [new Agent/Ping]
  924.     $ns_ attach-agent $node_(2) $ping2
  925.     set ping3 [new Agent/Ping]
  926.     $ns_ attach-agent $node_(3) $ping3
  927.     # connect two agents
  928.     $ns_ connect $ping2 $ping3
  929.     
  930.     # start times for both connections
  931.     $ns_ at 40.1 "$ping0 send"
  933.     #sender cannot hear other tx
  934.     # node 2 and 3 have perfectly sync'ed cycles
  935.     # due to collision discovers each other after about 60s.
  936.     $ns_ at 60.1 "$ping3 send"
  937.     
  938. }
  940. Test/unicast6_sync instproc run {} {
  941.     $self next
  942. }
  945. Test/unicast7 instproc init {} {
  946.     global opt node_
  947.     $self instvar ns_ net_ testname_ topo_ tracefd_
  948.     
  949.     set testname_ unicast7
  950.     set opt(nn) 4
  951.     $self next
  953.     $node_(1) set X_ 300.0
  954.     $node_(1) set Y_ 300.0
  955.     $node_(1) set Z_ 0.0
  956.     
  957.     $node_(0) set X_ 150.0
  958.     $node_(0) set Y_ 150.0
  959.     $node_(0) set Z_ 0.0
  960.     
  961.     # node 2 can hear 1 & 3
  962.     $node_(2) set X_ 450.0
  963.     $node_(2) set Y_ 450.0
  964.     $node_(2) set Z_ 0.0
  966.     # node 3 hears only 2
  967.     $node_(3) set X_ 600.0
  968.     $node_(3) set Y_ 600.0
  969.     $node_(3) set Z_ 0.0
  971.     set ping0 [new Agent/Ping]
  972.     $ns_ attach-agent $node_(0) $ping0
  973.     set ping1 [new Agent/Ping]
  974.     $ns_ attach-agent $node_(1) $ping1
  975.     # connect two agents
  976.     $ns_ connect $ping0 $ping1
  977.     
  978.     
  979.     set ping2 [new Agent/Ping]
  980.     $ns_ attach-agent $node_(2) $ping2
  981.     set ping3 [new Agent/Ping]
  982.     $ns_ attach-agent $node_(3) $ping3
  983.     # connect two agents
  984.     $ns_ connect $ping2 $ping3
  985.     
  986.     # start times for both connections
  987.     $ns_ at 0.1 "$ping0 send"
  989.     #sender cannot hear other tx
  990.     $ns_ at 0.1 "$ping2 send"
  991.     
  992. }
  994. Test/unicast7 instproc run {} {
  995.     $self next
  996. }
  998. Test/unicast7_sync instproc init {} {
  999.     global opt node_
  1000.     $self instvar ns_ net_ testname_ topo_ tracefd_
  1001.     
  1002.     set testname_ unicast7_sync
  1003.     set opt(nn) 4
  1004.     $self next
  1006.     $node_(1) set X_ 300.0
  1007.     $node_(1) set Y_ 300.0
  1008.     $node_(1) set Z_ 0.0
  1009.     
  1010.     $node_(0) set X_ 150.0
  1011.     $node_(0) set Y_ 150.0
  1012.     $node_(0) set Z_ 0.0
  1013.     
  1014.     # node 2 can hear 1 & 3
  1015.     $node_(2) set X_ 450.0
  1016.     $node_(2) set Y_ 450.0
  1017.     $node_(2) set Z_ 0.0
  1019.     # node 3 hears only 2
  1020.     $node_(3) set X_ 600.0
  1021.     $node_(3) set Y_ 600.0
  1022.     $node_(3) set Z_ 0.0
  1024.     set ping0 [new Agent/Ping]
  1025.     $ns_ attach-agent $node_(0) $ping0
  1026.     set ping1 [new Agent/Ping]
  1027.     $ns_ attach-agent $node_(1) $ping1
  1028.     # connect two agents
  1029.     $ns_ connect $ping0 $ping1
  1030.     
  1031.     
  1032.     set ping2 [new Agent/Ping]
  1033.     $ns_ attach-agent $node_(2) $ping2
  1034.     set ping3 [new Agent/Ping]
  1035.     $ns_ attach-agent $node_(3) $ping3
  1036.     # connect two agents
  1037.     $ns_ connect $ping2 $ping3
  1038.     
  1039.     # start times for both connections
  1040.     $ns_ at 40.1 "$ping0 send"
  1042.     #sender cannot hear other tx
  1043.     $ns_ at 60.1 "$ping2 send"
  1044.     
  1045. }
  1047. Test/unicast7_sync instproc run {} {
  1048.     $self next
  1049. }
  1052. Test/unicast8 instproc init {} {
  1053.     global opt node_
  1054.     $self instvar ns_ net_ testname_ topo_ tracefd_
  1055.     
  1056.     set testname_ unicast8
  1057.     set opt(nn) 4
  1058.     $self next
  1060.     $node_(1) set X_ 300.0
  1061.     $node_(1) set Y_ 300.0
  1062.     $node_(1) set Z_ 0.0
  1063.     
  1064.     $node_(0) set X_ 150.0
  1065.     $node_(0) set Y_ 150.0
  1066.     $node_(0) set Z_ 0.0
  1067.     
  1068.     # node 2 can hear 1 & 3
  1069.     $node_(2) set X_ 450.0
  1070.     $node_(2) set Y_ 450.0
  1071.     $node_(2) set Z_ 0.0
  1073.     # node 3 hears only 2
  1074.     $node_(3) set X_ 600.0
  1075.     $node_(3) set Y_ 600.0
  1076.     $node_(3) set Z_ 0.0
  1078.     set ping0 [new Agent/Ping]
  1079.     $ns_ attach-agent $node_(0) $ping0
  1080.     set ping1 [new Agent/Ping]
  1081.     $ns_ attach-agent $node_(1) $ping1
  1082.     # connect two agents
  1083.     $ns_ connect $ping0 $ping1
  1084.     
  1085.     
  1086.     set ping2 [new Agent/Ping]
  1087.     $ns_ attach-agent $node_(2) $ping2
  1088.     set ping3 [new Agent/Ping]
  1089.     $ns_ attach-agent $node_(3) $ping3
  1090.     # connect two agents
  1091.     $ns_ connect $ping2 $ping3
  1092.     
  1093.     # start times for both connections
  1094.     $ns_ at 0.1 "$ping1 send"
  1096.     #sender cannot hear other tx
  1097.     $ns_ at 0.1 "$ping2 send"
  1098.     
  1099. }
  1101. Test/unicast8 instproc run {} {
  1102.     $self next
  1103. }
  1105. Test/unicast8_sync instproc init {} {
  1106.     global opt node_
  1107.     $self instvar ns_ net_ testname_ topo_ tracefd_
  1108.     
  1109.     set testname_ unicast8_sync
  1110.     set opt(nn) 4
  1111.     $self next
  1113.     $node_(1) set X_ 300.0
  1114.     $node_(1) set Y_ 300.0
  1115.     $node_(1) set Z_ 0.0
  1116.     
  1117.     $node_(0) set X_ 150.0
  1118.     $node_(0) set Y_ 150.0
  1119.     $node_(0) set Z_ 0.0
  1120.     
  1121.     # node 2 can hear 1 & 3
  1122.     $node_(2) set X_ 450.0
  1123.     $node_(2) set Y_ 450.0
  1124.     $node_(2) set Z_ 0.0
  1126.     # node 3 hears only 2
  1127.     $node_(3) set X_ 600.0
  1128.     $node_(3) set Y_ 600.0
  1129.     $node_(3) set Z_ 0.0
  1131.     set ping0 [new Agent/Ping]
  1132.     $ns_ attach-agent $node_(0) $ping0
  1133.     set ping1 [new Agent/Ping]
  1134.     $ns_ attach-agent $node_(1) $ping1
  1135.     # connect two agents
  1136.     $ns_ connect $ping0 $ping1
  1137.     
  1138.     
  1139.     set ping2 [new Agent/Ping]
  1140.     $ns_ attach-agent $node_(2) $ping2
  1141.     set ping3 [new Agent/Ping]
  1142.     $ns_ attach-agent $node_(3) $ping3
  1143.     # connect two agents
  1144.     $ns_ connect $ping2 $ping3
  1145.     
  1146.     # start times for both connections
  1147.     $ns_ at 40.1 "$ping1 send"
  1149.     #sender cannot hear other tx
  1150.     $ns_ at 60.1 "$ping2 send"
  1151.     
  1152. }
  1154. Test/unicast8_sync instproc run {} {
  1155.     $self next
  1156. }
  1158. Test/unicast9 instproc init {} {
  1159.     global opt node_
  1160.     $self instvar ns_ net_ testname_ topo_ tracefd_
  1161.     
  1162.     set testname_ unicast9
  1163.     set opt(nn) 4
  1164.     $self next
  1166.     $node_(0) set X_ 300.0
  1167.     $node_(0) set Y_ 300.0
  1168.     $node_(0) set Z_ 0.0
  1169.     
  1170.     $node_(1) set X_ 150.0
  1171.     $node_(1) set Y_ 150.0
  1172.     $node_(1) set Z_ 0.0
  1173.     
  1174.     # node 2 & 3 cannot  hear 0 & 1
  1175.     $node_(2) set X_ 500.0
  1176.     $node_(2) set Y_ 550.0
  1177.     $node_(2) set Z_ 0.0
  1179.     $node_(3) set X_ 650.0
  1180.     $node_(3) set Y_ 680.0
  1181.     $node_(3) set Z_ 0.0
  1183.     set ping0 [new Agent/Ping]
  1184.     $ns_ attach-agent $node_(0) $ping0
  1185.     set ping1 [new Agent/Ping]
  1186.     $ns_ attach-agent $node_(1) $ping1
  1187.     # connect two agents
  1188.     $ns_ connect $ping0 $ping1
  1189.     
  1190.     
  1191.     set ping2 [new Agent/Ping]
  1192.     $ns_ attach-agent $node_(2) $ping2
  1193.     set ping3 [new Agent/Ping]
  1194.     $ns_ attach-agent $node_(3) $ping3
  1195.     # connect two agents
  1196.     $ns_ connect $ping2 $ping3
  1197.     
  1198.     # start times for both connections
  1199.     $ns_ at 0.1 "$ping0 send"
  1201.     #sender cannot hear other tx
  1202.     $ns_ at 0.1 "$ping3 send"
  1203.     
  1204. }
  1206. Test/unicast9 instproc run {} {
  1207.     $self next
  1208. }
  1211. Test/unicast9_sync instproc init {} {
  1212.     global opt node_
  1213.     $self instvar ns_ net_ testname_ topo_ tracefd_
  1214.     
  1215.     set testname_ unicast9_sync
  1216.     set opt(nn) 4
  1217.     $self next
  1219.     $node_(0) set X_ 300.0
  1220.     $node_(0) set Y_ 300.0
  1221.     $node_(0) set Z_ 0.0
  1222.     
  1223.     $node_(1) set X_ 150.0
  1224.     $node_(1) set Y_ 150.0
  1225.     $node_(1) set Z_ 0.0
  1226.     
  1227.     # node 2 & 3 cannot  hear 0 & 1
  1228.     $node_(2) set X_ 500.0
  1229.     $node_(2) set Y_ 550.0
  1230.     $node_(2) set Z_ 0.0
  1232.     $node_(3) set X_ 650.0
  1233.     $node_(3) set Y_ 680.0
  1234.     $node_(3) set Z_ 0.0
  1236.     set ping0 [new Agent/Ping]
  1237.     $ns_ attach-agent $node_(0) $ping0
  1238.     set ping1 [new Agent/Ping]
  1239.     $ns_ attach-agent $node_(1) $ping1
  1240.     # connect two agents
  1241.     $ns_ connect $ping0 $ping1
  1242.     
  1243.     
  1244.     set ping2 [new Agent/Ping]
  1245.     $ns_ attach-agent $node_(2) $ping2
  1246.     set ping3 [new Agent/Ping]
  1247.     $ns_ attach-agent $node_(3) $ping3
  1248.     # connect two agents
  1249.     $ns_ connect $ping2 $ping3
  1250.     
  1251.     # start times for both connections
  1252.     $ns_ at 40.1 "$ping0 send"
  1254.     #sender cannot hear other tx
  1255.     $ns_ at 60.1 "$ping3 send"
  1256.     
  1257. }
  1259. Test/unicast9_sync instproc run {} {
  1260.     $self next
  1261. }
  1263. Test/unicast10 instproc init {} {
  1264.     global opt node_
  1265.     $self instvar ns_ net_ testname_ topo_ tracefd_
  1266.     
  1267.     set testname_ unicast10
  1268.     set opt(nn) 4
  1269.     $self next
  1271.     $node_(0) set X_ 100.0
  1272.     $node_(0) set Y_ 100.0
  1273.     $node_(0) set Z_ 0.0
  1274.     
  1275.     $node_(1) set X_ 50.0
  1276.     $node_(1) set Y_ 50.0
  1277.     $node_(1) set Z_ 0.0
  1278.     
  1279.     # node 2 & 3 cannot  hear 0 & 1
  1280.     $node_(2) set X_ 500.0
  1281.     $node_(2) set Y_ 550.0
  1282.     $node_(2) set Z_ 0.0
  1284.     $node_(3) set X_ 650.0
  1285.     $node_(3) set Y_ 680.0
  1286.     $node_(3) set Z_ 0.0
  1288.     set ping0 [new Agent/Ping]
  1289.     $ns_ attach-agent $node_(0) $ping0
  1290.     set ping1 [new Agent/Ping]
  1291.     $ns_ attach-agent $node_(1) $ping1
  1292.     # connect two agents
  1293.     $ns_ connect $ping0 $ping1
  1294.     
  1295.     
  1296.     set ping2 [new Agent/Ping]
  1297.     $ns_ attach-agent $node_(2) $ping2
  1298.     set ping3 [new Agent/Ping]
  1299.     $ns_ attach-agent $node_(3) $ping3
  1300.     # connect two agents
  1301.     $ns_ connect $ping2 $ping3
  1302.     
  1303.     # start times for both connections
  1304.     $ns_ at 0.1 "$ping0 send"
  1306.     #sender cannot hear other tx
  1307.     $ns_ at 0.1 "$ping3 send"
  1308.     
  1309. }
  1311. Test/unicast10 instproc run {} {
  1312.     $self next
  1313. }
  1315. Test/unicast10_sync instproc init {} {
  1316.     global opt node_
  1317.     $self instvar ns_ net_ testname_ topo_ tracefd_
  1318.     
  1319.     set testname_ unicast10_sync
  1320.     set opt(nn) 4
  1321.     $self next
  1323.     $node_(0) set X_ 100.0
  1324.     $node_(0) set Y_ 100.0
  1325.     $node_(0) set Z_ 0.0
  1326.     
  1327.     $node_(1) set X_ 50.0
  1328.     $node_(1) set Y_ 50.0
  1329.     $node_(1) set Z_ 0.0
  1330.     
  1331.     # node 2 & 3 cannot  hear 0 & 1
  1332.     $node_(2) set X_ 500.0
  1333.     $node_(2) set Y_ 550.0
  1334.     $node_(2) set Z_ 0.0
  1336.     $node_(3) set X_ 650.0
  1337.     $node_(3) set Y_ 680.0
  1338.     $node_(3) set Z_ 0.0
  1340.     set ping0 [new Agent/Ping]
  1341.     $ns_ attach-agent $node_(0) $ping0
  1342.     set ping1 [new Agent/Ping]
  1343.     $ns_ attach-agent $node_(1) $ping1
  1344.     # connect two agents
  1345.     $ns_ connect $ping0 $ping1
  1346.     
  1347.     
  1348.     set ping2 [new Agent/Ping]
  1349.     $ns_ attach-agent $node_(2) $ping2
  1350.     set ping3 [new Agent/Ping]
  1351.     $ns_ attach-agent $node_(3) $ping3
  1352.     # connect two agents
  1353.     $ns_ connect $ping2 $ping3
  1354.     
  1355.     # start times for both connections
  1356.     $ns_ at 40.1 "$ping0 send"
  1358.     #sender cannot hear other tx
  1359.     $ns_ at 40.1 "$ping3 send"
  1360.     
  1361. }
  1363. Test/unicast10_sync instproc run {} {
  1364.     $self next
  1365. }
  1368. Test/unicast11 instproc init {} {
  1369.     global opt node_
  1370.     $self instvar ns_ net_ testname_ topo_ tracefd_
  1371.     
  1372.     set testname_ unicast11
  1373.     set opt(nn) 3
  1374.     $self next
  1376.     $node_(0) set X_ 100.0
  1377.     $node_(0) set Y_ 100.0
  1378.     $node_(0) set Z_ 0.0
  1379.     
  1380.     $node_(1) set X_ 200.0
  1381.     $node_(1) set Y_ 200.0
  1382.     $node_(1) set Z_ 0.0
  1383.     
  1384.     $node_(2) set X_ 300.0
  1385.     $node_(2) set Y_ 100.0
  1386.     $node_(2) set Z_ 0.0
  1389.     set ping0 [new Agent/Ping]
  1390.     $ns_ attach-agent $node_(0) $ping0
  1391.     set ping1 [new Agent/Ping]
  1392.     $ns_ attach-agent $node_(1) $ping1
  1393.     # connect two agents
  1394.     $ns_ connect $ping0 $ping1
  1395.     
  1396.     
  1397.     set ping2 [new Agent/Ping]
  1398.     $ns_ attach-agent $node_(1) $ping2
  1399.     set ping3 [new Agent/Ping]
  1400.     $ns_ attach-agent $node_(2) $ping3
  1401.     # connect two agents
  1402.     $ns_ connect $ping2 $ping3
  1404.     set ping4 [new Agent/Ping]
  1405.     $ns_ attach-agent $node_(2) $ping4
  1406.     set ping5 [new Agent/Ping]
  1407.     $ns_ attach-agent $node_(0) $ping5
  1408.     # connect two agents
  1409.     $ns_ connect $ping4 $ping5
  1410.     
  1411.     # start times for connections
  1412.     $ns_ at 0.1 "$ping0 send"
  1413.     $ns_ at 0.1 "$ping2 send"
  1414.     $ns_ at 0.1 "$ping4 send"
  1415.     
  1416. }
  1418. Test/unicast11 instproc run {} {
  1419.     $self next
  1420. }
  1422. Test/unicast11_sync instproc init {} {
  1423.     global opt node_
  1424.     $self instvar ns_ net_ testname_ topo_ tracefd_
  1425.     
  1426.     set testname_ unicast11_sync
  1427.     set opt(nn) 3
  1428.     $self next
  1430.     $node_(0) set X_ 100.0
  1431.     $node_(0) set Y_ 100.0
  1432.     $node_(0) set Z_ 0.0
  1433.     
  1434.     $node_(1) set X_ 200.0
  1435.     $node_(1) set Y_ 200.0
  1436.     $node_(1) set Z_ 0.0
  1437.     
  1438.     $node_(2) set X_ 300.0
  1439.     $node_(2) set Y_ 100.0
  1440.     $node_(2) set Z_ 0.0
  1443.     set ping0 [new Agent/Ping]
  1444.     $ns_ attach-agent $node_(0) $ping0
  1445.     set ping1 [new Agent/Ping]
  1446.     $ns_ attach-agent $node_(1) $ping1
  1447.     # connect two agents
  1448.     $ns_ connect $ping0 $ping1
  1449.     
  1450.     
  1451.     set ping2 [new Agent/Ping]
  1452.     $ns_ attach-agent $node_(1) $ping2
  1453.     set ping3 [new Agent/Ping]
  1454.     $ns_ attach-agent $node_(2) $ping3
  1455.     # connect two agents
  1456.     $ns_ connect $ping2 $ping3
  1458.     set ping4 [new Agent/Ping]
  1459.     $ns_ attach-agent $node_(2) $ping4
  1460.     set ping5 [new Agent/Ping]
  1461.     $ns_ attach-agent $node_(0) $ping5
  1462.     # connect two agents
  1463.     $ns_ connect $ping4 $ping5
  1464.     
  1465.     # start times for connections
  1466.     $ns_ at 40.1 "$ping0 send"
  1467.     $ns_ at 40.1 "$ping2 send"
  1468.     $ns_ at 40.1 "$ping4 send"
  1469.     
  1470. }
  1472. Test/unicast11_sync instproc run {} {
  1473.     $self next
  1474. }
  1477. Test/unicast12 instproc init {} {
  1478.     global opt node_
  1479.     $self instvar ns_ net_ testname_ topo_ tracefd_
  1480.     
  1481.     set testname_ unicast12
  1482.     set opt(nn) 3
  1483.     set opt(err)            UniformErrorProc
  1484.     set opt(FECstrength)    1
  1486.     ErrorModel set rate_ 0.1
  1487.     ErrorModel set bandwidth_ 1Kb
  1488.     
  1489.     $self next
  1491.     $node_(0) set X_ 100.0
  1492.     $node_(0) set Y_ 100.0
  1493.     $node_(0) set Z_ 0.0
  1494.     
  1495.     $node_(1) set X_ 200.0
  1496.     $node_(1) set Y_ 200.0
  1497.     $node_(1) set Z_ 0.0
  1498.     
  1499.     $node_(2) set X_ 300.0
  1500.     $node_(2) set Y_ 100.0
  1501.     $node_(2) set Z_ 0.0
  1504.     set ping0 [new Agent/Ping]
  1505.     $ns_ attach-agent $node_(0) $ping0
  1506.     set ping1 [new Agent/Ping]
  1507.     $ns_ attach-agent $node_(1) $ping1
  1508.     # connect two agents
  1509.     $ns_ connect $ping0 $ping1
  1510.     
  1511.     
  1512.     set ping2 [new Agent/Ping]
  1513.     $ns_ attach-agent $node_(1) $ping2
  1514.     set ping3 [new Agent/Ping]
  1515.     $ns_ attach-agent $node_(2) $ping3
  1516.     # connect two agents
  1517.     $ns_ connect $ping2 $ping3
  1519.     set ping4 [new Agent/Ping]
  1520.     $ns_ attach-agent $node_(2) $ping4
  1521.     set ping5 [new Agent/Ping]
  1522.     $ns_ attach-agent $node_(0) $ping5
  1523.     # connect two agents
  1524.     $ns_ connect $ping4 $ping5
  1525.     
  1526.     # start times for connections
  1527.     $ns_ at 0.1 "$ping0 send"
  1528.     $ns_ at 0.1 "$ping2 send"
  1529.     $ns_ at 0.1 "$ping4 send"
  1530.     
  1531. }
  1533. Test/unicast12 instproc run {} {
  1534.     $self next
  1535. }
  1537. Test/unicast12_sync instproc init {} {
  1538.     global opt node_
  1539.     $self instvar ns_ net_ testname_ topo_ tracefd_
  1540.     
  1541.     set testname_ unicast12_sync
  1542.     set opt(nn) 3
  1543.     set opt(err)            UniformErrorProc
  1544.     set opt(FECstrength)    1
  1546.     ErrorModel set rate_ 0.1
  1547.     ErrorModel set bandwidth_ 1Kb
  1548.     
  1549.     $self next
  1551.     $node_(0) set X_ 100.0
  1552.     $node_(0) set Y_ 100.0
  1553.     $node_(0) set Z_ 0.0
  1554.     
  1555.     $node_(1) set X_ 200.0
  1556.     $node_(1) set Y_ 200.0
  1557.     $node_(1) set Z_ 0.0
  1558.     
  1559.     $node_(2) set X_ 300.0
  1560.     $node_(2) set Y_ 100.0
  1561.     $node_(2) set Z_ 0.0
  1564.     set ping0 [new Agent/Ping]
  1565.     $ns_ attach-agent $node_(0) $ping0
  1566.     set ping1 [new Agent/Ping]
  1567.     $ns_ attach-agent $node_(1) $ping1
  1568.     # connect two agents
  1569.     $ns_ connect $ping0 $ping1
  1570.     
  1571.     
  1572.     set ping2 [new Agent/Ping]
  1573.     $ns_ attach-agent $node_(1) $ping2
  1574.     set ping3 [new Agent/Ping]
  1575.     $ns_ attach-agent $node_(2) $ping3
  1576.     # connect two agents
  1577.     $ns_ connect $ping2 $ping3
  1579.     set ping4 [new Agent/Ping]
  1580.     $ns_ attach-agent $node_(2) $ping4
  1581.     set ping5 [new Agent/Ping]
  1582.     $ns_ attach-agent $node_(0) $ping5
  1583.     # connect two agents
  1584.     $ns_ connect $ping4 $ping5
  1585.     
  1586.     # start times for connections
  1587.     $ns_ at 40.1 "$ping0 send"
  1588.     $ns_ at 40.1 "$ping2 send"
  1589.     $ns_ at 40.1 "$ping4 send"
  1590.     
  1591. }
  1593. Test/unicast12_sync instproc run {} {
  1594.     $self next
  1595. }
  1598. #Define a 'recv' function for the class 'Agent/Ping'
  1599. Agent/Ping instproc recv {from rtt} {
  1600.     $self instvar node_
  1601.     puts "node [$node_ id] received ping answer from 
  1602.               $from with round-trip-time $rtt ms."
  1603. }
  1606. TestSuite instproc finish {} {
  1607.     $self instvar ns_ tracefd_
  1608.     $ns_ flush-trace 
  1609.     close $tracefd_
  1610. }
  1613. proc runtest {arg} {
  1614.     global quiet
  1615.     set quiet 0
  1616.     
  1617.     set b [llength $arg]
  1618.     if {$b == 1} {
  1619. set test $arg
  1620.     } elseif {$b == 2} {
  1621. set test [lindex $arg 0]
  1622. if {[lindex $arg 1] == "QUIET"} {
  1623.     set quiet 1
  1624. }
  1625.     } else {
  1626. usage
  1627.     }
  1628.     set t [new Test/$test]
  1629.     $t run
  1630. }
  1632. global argv arg0
  1633. default_options
  1634. runtest $argv