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

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

通讯编程

开发平台：

Visual C++

test-suite-diffusion3.tcl：源码内容
  1. #
  2. # Copyright (c) 1998 University of Southern California.
  3. # All rights reserved.                                            
  4. #                                                                
  5. # Redistribution and use in source and binary forms are permitted
  6. # provided that the above copyright notice and this paragraph are
  7. # duplicated in all such forms and that any documentation, advertising
  8. # materials, and other materials related to such distribution and use
  9. # acknowledge that the software was developed by the University of
  10. # Southern California, Information Sciences Institute.  The name of the
  11. # University may not be used to endorse or promote products derived from
  12. # this software without specific prior written permission.
  13. # 
  14. # THIS SOFTWARE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
  15. # WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
  16. # MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  17. # 
  19. # To run all tests: test-all-diffusion3
  20. # to run individual test:
  21. # ns test-suite-diffusion3.tcl simple-ping
  23. # To view a list of available test to run with this script:
  24. # ns test-suite-diffusion3.tcl
  26. # This test validates a simple diffusion (ping) application
  28. remove-all-packet-headers       ; # removes all except common
  29. add-packet-header Flags IP TCP Diffusion ARP LL Mac 
  30. # hdrs reqd for validation test
  32. # FOR UPDATING GLOBAL DEFAULTS:
  33. Agent/TCP set precisionReduce_ false ;   # default changed on 2006/1/24.
  34. Agent/TCP set rtxcur_init_ 6.0 ;      # Default changed on 2006/01/21
  35. Agent/TCP set updated_rttvar_ false ;  # Variable added on 2006/1/21
  36. Agent/TCP set minrto_ 1
  37. # default changed on 10/14/2004.
  38. Queue/RED set bytes_ false
  39. # default changed on 10/11/2004.
  40. Queue/RED set queue_in_bytes_ false
  41. # default changed on 10/11/2004.
  42. Agent/TCP set tcpTick_ 0.1
  43. # The default for tcpTick_ is being changed to reflect a changing reality.
  44. Agent/TCP set rfc2988_ false
  45. # The default for rfc2988_ is being changed to true.
  46. Agent/TCP set exitFastRetrans_ false
  47. Mac/802_11 set bugFix_timer_ false;     # default changed 2006/1/30
  49. if {![TclObject is-class Agent/DiffusionRouting]} {
  50. puts "Diffusion3 module is not present; validation skipped"
  51. exit 2
  52. }
  54. # ======================================================================
  55. # Define options
  56. # ======================================================================
  57. global opt
  58. set opt(chan) Channel/WirelessChannel
  59. set opt(prop) Propagation/TwoRayGround
  60. set opt(netif) Phy/WirelessPhy
  61. set opt(mac) Mac/802_11
  62. set opt(ifq) Queue/DropTail/PriQueue
  63. set opt(ll) LL
  64. set opt(ant)            Antenna/OmniAntenna
  65. set opt(ifqlen) 50 ;# max packet in ifq
  66. set opt(seed) 0.0
  67. set opt(lm)             "off"           ;# log movement
  69. set opt(x) 670 ;# X dimension of the topography
  70. set opt(y) 670     ;# Y dimension of the topography
  71. set opt(stop) 300 ;# simulation time
  72. set opt(adhocRouting)   Directed_Diffusion
  73. # ======================================================================
  75. LL set mindelay_ 50us
  76. LL set delay_ 25us
  77. LL set bandwidth_ 0 ;# not used
  79. Agent/Null set sport_ 0
  80. Agent/Null set dport_ 0
  82. Agent/CBR set sport_ 0
  83. Agent/CBR set dport_ 0
  85. Agent/TCPSink set sport_ 0
  86. Agent/TCPSink set dport_ 0
  88. Agent/TCP set sport_ 0
  89. Agent/TCP set dport_ 0
  90. Agent/TCP set packetSize_ 1460
  92. Queue/DropTail/PriQueue set Prefer_Routing_Protocols    1
  94. # unity gain, omni-directional antennas
  95. # set up the antennas to be centered in the node and 1.5 meters above it
  96. Antenna/OmniAntenna set X_ 0
  97. Antenna/OmniAntenna set Y_ 0
  98. Antenna/OmniAntenna set Z_ 1.5
  99. Antenna/OmniAntenna set Gt_ 1.0
  100. Antenna/OmniAntenna set Gr_ 1.0
  102. # Initialize the SharedMedia interface with parameters to make
  103. # it work like the 914MHz Lucent WaveLAN DSSS radio interface
  104. Phy/WirelessPhy set CPThresh_ 10.0
  105. Phy/WirelessPhy set CSThresh_ 1.559e-11
  106. Phy/WirelessPhy set RXThresh_ 3.652e-10
  107. Phy/WirelessPhy set Rb_ 2*1e6
  108. Phy/WirelessPhy set Pt_ 0.2818
  109. Phy/WirelessPhy set freq_ 914e+6 
  110. Phy/WirelessPhy set L_ 1.0
  112. # ======================================================================
  114. Class TestSuite
  116. proc usage {} {
  117.     global argv0
  118.     puts stderr "usage: ns $argv0 <tests> "
  119.     puts "Valid Tests: simple-ping 2pp-5n-1s-1r 2pp-10n-4s-1r 2pp-10n-1s-4r
  120. push-5n-1s-1r push-10n-4s-1r push-10n-1s-4r 1pp-5n-1s-1r 1pp-10n-4s-1r 1pp-10n-1s-4r gear-2pp-10n-4s-1r gear-push-10n-1s-4r"
  121.     puts " "
  122.     exit 1
  123. }
  125. TestSuite instproc init {} {
  126.     global opt tracefd quiet
  127.     $self instvar ns_
  128.     set ns_ [new Simulator]
  129.     set tracefd [open temp.rands w]
  130.     $ns_ trace-all $tracefd
  131.     # stealing seed from another test-suite
  132.     ns-random 188312339
  133. } 
  136. Class Test/simple-ping -superclass TestSuite
  138. Test/simple-ping instproc init {} {
  139.     global opt
  140.     set opt(nn) 3
  141.     set opt(filters) GradientFilter
  142.     $self instvar ns_ testName_
  143.     set testName_ simple-ping
  144.     $self next
  145. }
  147. Test/simple-ping instproc run {} {
  148.     global opt
  149.     $self instvar ns_ topo god_
  151.     set topo [new Topography]
  152.     $topo load_flatgrid $opt(x) $opt(y)
  153.     set god_ [create-god $opt(nn)]
  155.     $ns_ node-config -adhocRouting $opt(adhocRouting) 
  156.  -llType $opt(ll) 
  157.  -macType $opt(mac) 
  158.  -ifqType $opt(ifq) 
  159.  -ifqLen $opt(ifqlen) 
  160.  -antType $opt(ant) 
  161.  -propType $opt(prop) 
  162.  -phyType $opt(netif) 
  163.  -channelType $opt(chan) 
  164.  -topoInstance $topo 
  165.          -diffusionFilter $opt(filters) 
  166.  -agentTrace ON 
  167.                  -routerTrace ON 
  168.                  -macTrace OFF 
  169.              
  170.     for {set i 0} {$i < $opt(nn) } {incr i} {
  171. set node_($i) [$ns_ node $i]
  172.         $node_($i) color black
  173. $node_($i) random-motion 0 ;# disable random motion
  174.         $god_ new_node $node_($i)
  175.     }
  177. # defining node positions
  178.     $node_(0) set X_ 500.716707738489
  179.     $node_(0) set Y_ 620.707335765875
  180.     $node_(0) set Z_ 0.000000000000
  181.     
  182.     $node_(1) set X_ 320.192740186325
  183.     $node_(1) set Y_ 450.384818286195
  184.     $node_(1) set Z_ 0.000000000000
  186.     #3rd node NOT in hearing range of other two
  187.     $node_(2) set X_ 177.438972165239
  188.     $node_(2) set Y_ 245.843469852367
  189.     $node_(2) set Z_ 0.000000000000
  191.     #Diffusion application - ping src
  192.     set src_(0) [new Application/DiffApp/PingSender/TPP]
  193.     $ns_ attach-diffapp $node_(0) $src_(0)
  194.     $ns_ at 0.123 "$src_(0) publish"
  196.     #Diffusion application - ping sink
  197.     set snk_(0) [new Application/DiffApp/PingReceiver/TPP]
  198.     $ns_ attach-diffapp $node_(2) $snk_(0)
  199.     $ns_ at 1.456 "$snk_(0) subscribe"
  201.     #
  202.     # Tell nodes when the simulation ends
  203.     #
  204.     for {set i 0} {$i < $opt(nn) } {incr i} {
  205. $ns_ at $opt(stop).000000001 "$node_($i) reset";
  206.     }
  207.     $ns_ at  $opt(stop).000000001 "puts "NS EXITING..." ; $ns_ halt"
  208.     $ns_ run
  209. }
  211. Class Test/2pp-5n-1s-1r -superclass TestSuite
  213. Test/2pp-5n-1s-1r instproc init {} {
  214.      global opt
  215.      set opt(nn) 5
  216.      set opt(filters) GradientFilter
  217.      $self instvar ns_ testName_
  218.      set testName_ 2pp-5n-1s-1r
  219.      $self next
  220.  }
  222. Test/2pp-5n-1s-1r instproc run {} {
  223.      global opt
  224.      $self instvar ns_ topo god_
  226.      set topo [new Topography]
  227.      $topo load_flatgrid $opt(x) $opt(y)
  228.      set god_ [create-god $opt(nn)]
  230.      $ns_ node-config -adhocRouting $opt(adhocRouting) 
  231.  -llType $opt(ll) 
  232.  -macType $opt(mac) 
  233.  -ifqType $opt(ifq) 
  234.  -ifqLen $opt(ifqlen) 
  235.  -antType $opt(ant) 
  236.  -propType $opt(prop) 
  237.  -phyType $opt(netif) 
  238.  -channelType $opt(chan) 
  239.  -topoInstance $topo 
  240.  -diffusionFilter $opt(filters) 
  241.  -agentTrace ON 
  242.  -routerTrace ON 
  243.  -macTrace OFF
  244.              
  245.      for {set i 0} {$i < $opt(nn) } {incr i} {
  246.  set node_($i) [$ns_ node $i]
  247.  $node_($i) color black
  248.  $node_($i) random-motion 0 ;# disable random motion
  249.  $god_ new_node $node_($i)
  250.      }
  252.      # defining node positions
  253.      $node_(0) set X_ 618.716707738489
  254.      $node_(0) set Y_ 620.707335765875
  255.      $node_(0) set Z_ 0.000000000000
  256.     
  257.      $node_(1) set X_ 524.192740186325
  258.      $node_(1) set Y_ 540.384818286195
  259.      $node_(1) set Z_ 0.000000000000
  260.     
  261.      $node_(2) set X_ 406.438972165239
  262.      $node_(2) set Y_ 425.843469852367
  263.      $node_(2) set Z_ 0.000000000000
  264.     
  265.      $node_(3) set X_ 320.192740186325
  266.      $node_(3) set Y_ 350.384818286195
  267.      $node_(3) set Z_ 0.000000000000
  268.     
  269.      $node_(4) set X_ 177.438972165239
  270.      $node_(4) set Y_ 145.843469852367
  271.      $node_(4) set Z_ 0.000000000000
  272.     
  273.      #Diffusion application - ping sender
  274.      set src_(0) [new Application/DiffApp/PingSender/TPP]
  275.      $ns_ attach-diffapp $node_(0) $src_(0)
  276.      $ns_ at 0.123 "$src_(0) publish"
  278.      #Diffusion application - ping receiver
  279.      set snk_(0) [new Application/DiffApp/PingReceiver/TPP]
  280.      $ns_ attach-diffapp $node_(2) $snk_(0)
  281.      $ns_ at 1.456 "$snk_(0) subscribe"
  283. #     #
  284. #     # Tell nodes when the simulation ends
  285. #     #
  286.      for {set i 0} {$i < $opt(nn) } {incr i} {
  287.  $ns_ at $opt(stop).000000001 "$node_($i) reset";
  288.      }
  289.      $ns_ at  $opt(stop).000000001 "puts "NS EXITING..." ; $ns_ halt"
  290.      $ns_ run
  291.  }
  293. Class Test/2pp-10n-4s-1r -superclass TestSuite
  295.  Test/2pp-10n-4s-1r instproc init {} {
  296.      global opt
  297.      set opt(nn) 10
  298.      set opt(sndr) 4
  299.      set opt(rcvr) 1
  300.      set opt(filters) GradientFilter
  301.      $self instvar ns_ testName_
  302.      set testName_ 2pp-10n-4s-1r
  303.      $self next
  304.  }
  306.  Test/2pp-10n-4s-1r instproc run {} {
  307.      global opt
  308.      $self instvar ns_ topo god_
  310.      set topo [new Topography]
  311.      $topo load_flatgrid $opt(x) $opt(y)
  312.      set god_ [create-god $opt(nn)]
  314.      $ns_ node-config -adhocRouting $opt(adhocRouting) 
  315.    -llType $opt(ll) 
  316.    -macType $opt(mac) 
  317.    -ifqType $opt(ifq) 
  318.    -ifqLen $opt(ifqlen) 
  319.    -antType $opt(ant) 
  320.    -propType $opt(prop) 
  321.    -phyType $opt(netif) 
  322.    -channelType $opt(chan) 
  323.    -topoInstance $topo 
  324.            -diffusionFilter $opt(filters) 
  325.    -agentTrace ON 
  326.                   -routerTrace OFF 
  327.                   -macTrace OFF
  328.              
  329.      for {set i 0} {$i < $opt(nn) } {incr i} {
  330.   set node_($i) [$ns_ node $i]
  331.          $node_($i) color black
  332.   $node_($i) random-motion 0 ;# disable random motion
  333.          $god_ new_node $node_($i)
  334.      }
  336.      # defining node positions
  337.      $node_(0) set X_ 18.587605569735
  338.      $node_(0) set Y_ 401.886827012678
  339.      $node_(0) set Z_ 0.000000000000
  340.      $node_(1) set X_ 11.901958617639
  341.      $node_(1) set Y_ 36.218497218617
  342.      $node_(1) set Z_ 0.000000000000
  343.      $node_(2) set X_ 224.282785411393
  344.      $node_(2) set Y_ 20.774608253697
  345.      $node_(2) set Z_ 0.000000000000
  346.      $node_(3) set X_ 158.840938304009
  347.      $node_(3) set Y_ 139.650216383776
  348.      $node_(3) set Z_ 0.000000000000
  349.      $node_(4) set X_ 101.186886005903
  350.      $node_(4) set Y_ 147.993190973633
  351.      $node_(4) set Z_ 0.000000000000
  352.      $node_(5) set X_ 321.560825121175
  353.      $node_(5) set Y_ 472.788096833600
  354.      $node_(5) set Z_ 0.000000000000
  355.      $node_(6) set X_ 149.543901734330
  356.      $node_(6) set Y_ 384.356581531832
  357.      $node_(6) set Z_ 0.000000000000
  358.      $node_(7) set X_ 381.066146464027
  359.      $node_(7) set Y_ 78.723958958779
  360.      $node_(7) set Z_ 0.000000000000
  361.      $node_(8) set X_ 113.578290026963
  362.      $node_(8) set Y_ 410.320583900348
  363.      $node_(8) set Z_ 0.000000000000
  364.      $node_(9) set X_ 258.053977148981
  365.      $node_(9) set Y_ 113.194171851670
  366.      $node_(9) set Z_ 0.000000000000
  367.     
  368.      # 4 ping senders
  369.      for {set i 0} {$i < $opt(sndr)} {incr i} {
  370.  set src_($i) [new Application/DiffApp/PingSender/TPP]
  371.  $ns_ attach-diffapp $node_([expr $i+2]) $src_($i)
  372.  $ns_ at [expr 0.123 * $i] "$src_($i) publish"
  373.      }
  375. #     # 1 ping receiver
  376.      set snk_(0) [new Application/DiffApp/PingReceiver/TPP]
  377.      $ns_ attach-diffapp $node_(9) $snk_(0)
  378.      $ns_ at 1.456 "$snk_(0) subscribe"
  379.      
  380.      #     #
  381.      #     # Tell nodes when the simulation ends
  382.      #     #
  383.      for {set i 0} {$i < $opt(nn) } {incr i} {
  384.  $ns_ at $opt(stop).000000001 "$node_($i) reset";
  385.      }
  386.      $ns_ at  $opt(stop).000000001 "puts "NS EXITING..." ; $ns_ halt"
  387.      $ns_ run
  388.  }
  391. Class Test/2pp-10n-1s-4r -superclass TestSuite
  393. Test/2pp-10n-1s-4r instproc init {} {
  394.     global opt
  395.     set opt(nn) 10
  396.     set opt(sndr) 1
  397.     set opt(rcvr) 4
  398.     set opt(filters) GradientFilter
  399.     $self instvar ns_ testName_
  400.     set testName_ 2pp-10n-1s-4r
  401.     $self next
  402. }
  404. Test/2pp-10n-1s-4r instproc run {} {
  405.     global opt
  406.     $self instvar ns_ topo god_
  407.     
  408.     set topo [new Topography]
  409.     $topo load_flatgrid $opt(x) $opt(y)
  410.     set god_ [create-god $opt(nn)]
  411.     
  412.     $ns_ node-config -adhocRouting $opt(adhocRouting) 
  413. -llType $opt(ll) 
  414. -macType $opt(mac) 
  415. -ifqType $opt(ifq) 
  416. -ifqLen $opt(ifqlen) 
  417. -antType $opt(ant) 
  418. -propType $opt(prop) 
  419. -phyType $opt(netif) 
  420. -channelType $opt(chan) 
  421. -topoInstance $topo 
  422. -diffusionFilter $opt(filters) 
  423. -agentTrace ON 
  424. -routerTrace OFF 
  425. -macTrace OFF 
  426.     
  427.     for {set i 0} {$i < $opt(nn) } {incr i} {
  428.   set node_($i) [$ns_ node $i]
  429.          $node_($i) color black
  430.   $node_($i) random-motion 0 ;# disable random motion
  431.          $god_ new_node $node_($i)
  432.     }
  434.      # defining node positions
  435.      $node_(0) set X_ 18.587605569735
  436.      $node_(0) set Y_ 401.886827012678
  437.      $node_(0) set Z_ 0.000000000000
  438.      $node_(1) set X_ 11.901958617639
  439.      $node_(1) set Y_ 36.218497218617
  440.      $node_(1) set Z_ 0.000000000000
  441.      $node_(2) set X_ 224.282785411393
  442.      $node_(2) set Y_ 20.774608253697
  443.      $node_(2) set Z_ 0.000000000000
  444.      $node_(3) set X_ 158.840938304009
  445.      $node_(3) set Y_ 139.650216383776
  446.      $node_(3) set Z_ 0.000000000000
  447.      $node_(4) set X_ 101.186886005903
  448.      $node_(4) set Y_ 147.993190973633
  449.      $node_(4) set Z_ 0.000000000000
  450.      $node_(5) set X_ 321.560825121175
  451.      $node_(5) set Y_ 472.788096833600
  452.      $node_(5) set Z_ 0.000000000000
  453.      $node_(6) set X_ 149.543901734330
  454.      $node_(6) set Y_ 384.356581531832
  455.      $node_(6) set Z_ 0.000000000000
  456.      $node_(7) set X_ 381.066146464027
  457.      $node_(7) set Y_ 78.723958958779
  458.      $node_(7) set Z_ 0.000000000000
  459.      $node_(8) set X_ 113.578290026963
  460.      $node_(8) set Y_ 410.320583900348
  461.      $node_(8) set Z_ 0.000000000000
  462.      $node_(9) set X_ 258.053977148981
  463.      $node_(9) set Y_ 113.194171851670
  464.      $node_(9) set Z_ 0.000000000000
  465.     
  466.     # 1 ping sender
  467.     for {set i 0} {$i < $opt(sndr)} {incr i} {
  468.   set src_($i) [new Application/DiffApp/PingSender/TPP]
  469. $ns_ attach-diffapp $node_([expr $i+2]) $src_($i)
  470.   $ns_ at [expr 0.123 * [expr 1+$i]] "$src_($i) publish"
  471.     }
  473.      # 4 ping receiver
  474.      for {set i 0} {$i < $opt(rcvr)} {incr i} {
  475.   set snk_($i) [new Application/DiffApp/PingReceiver/TPP]
  476.   $ns_ attach-diffapp $node_([expr $opt(nn)-1 -$i]) $snk_($i)
  477.   $ns_ at [expr 1.1*[expr 1+$i]] "$snk_($i) subscribe"
  478.      }
  479.      #
  480.      # Tell nodes when the simulation ends
  481.      #
  482.     for {set i 0} {$i < $opt(nn) } {incr i} {
  483. $ns_ at $opt(stop).000000001 "$node_($i) reset";
  484.     }
  485.     $ns_ at  $opt(stop).000000001 "puts "NS EXITING..." ; $ns_ halt"
  486.     $ns_ run
  487. }
  489. Class Test/push-5n-1s-1r -superclass TestSuite
  491. Test/push-5n-1s-1r instproc init {} {
  492.     global opt
  493.     set opt(nn) 5
  494.      set opt(filters) GradientFilter
  495.      $self instvar ns_ testName_
  496.      set testName_ push-5n-1s-1r
  497.     $self next
  498. }
  500. Test/push-5n-1s-1r instproc run {} {
  501.      global opt
  502.      $self instvar ns_ topo god_
  504.      set topo [new Topography]
  505.      $topo load_flatgrid $opt(x) $opt(y)
  506.      set god_ [create-god $opt(nn)]
  508.     $ns_ node-config -adhocRouting $opt(adhocRouting) 
  509.  -llType $opt(ll) 
  510.  -macType $opt(mac) 
  511.     -ifqType $opt(ifq) 
  512.    -ifqLen $opt(ifqlen) 
  513.    -antType $opt(ant) 
  514.    -propType $opt(prop) 
  515.    -phyType $opt(netif) 
  516.    -channelType $opt(chan) 
  517.    -topoInstance $topo 
  518.            -diffusionFilter $opt(filters) 
  519.    -agentTrace ON 
  520.                   -routerTrace ON 
  521.                   -macTrace OFF 
  522.              
  523.     for {set i 0} {$i < $opt(nn) } {incr i} {
  524. set node_($i) [$ns_ node $i]
  525. $node_($i) color black
  526. $node_($i) random-motion 0 ;# disable random motion
  527. $god_ new_node $node_($i)
  528.     }
  529.     
  530.      # defining node positions
  531.      $node_(0) set X_ 618.716707738489
  532.      $node_(0) set Y_ 620.707335765875
  533.      $node_(0) set Z_ 0.000000000000
  534.     
  535.      $node_(1) set X_ 524.192740186325
  536.      $node_(1) set Y_ 540.384818286195
  537.      $node_(1) set Z_ 0.000000000000
  538.     
  539.      $node_(2) set X_ 406.438972165239
  540.      $node_(2) set Y_ 425.843469852367
  541.      $node_(2) set Z_ 0.000000000000
  542.     
  543.      $node_(3) set X_ 320.192740186325
  544.      $node_(3) set Y_ 350.384818286195
  545.      $node_(3) set Z_ 0.000000000000
  546.     
  547.      $node_(4) set X_ 177.438972165239
  548.      $node_(4) set Y_ 145.843469852367
  549.      $node_(4) set Z_ 0.000000000000
  550.     
  551.      #Diffusion application - ping sender
  552.      set src_(0) [new Application/DiffApp/PushSender]
  553.      $ns_ attach-diffapp $node_(0) $src_(0)
  554.      $ns_ at 0.123 "$src_(0) publish"
  556.      #Diffusion application - ping receiver
  557.      set snk_(0) [new Application/DiffApp/PushReceiver]
  558.      $ns_ attach-diffapp $node_(2) $snk_(0)
  559.      $ns_ at 1.456 "$snk_(0) subscribe"
  561.      #
  562.      # Tell nodes when the simulation ends
  563.      #
  564.      for {set i 0} {$i < $opt(nn) } {incr i} {
  565.   $ns_ at $opt(stop).000000001 "$node_($i) reset";
  566.      }
  567.      $ns_ at  $opt(stop).000000001 "puts "NS EXITING..." ; $ns_ halt"
  568.      $ns_ run
  569. }
  571. Class Test/push-10n-1s-4r -superclass TestSuite
  573.  Test/push-10n-1s-4r instproc init {} {
  574.      global opt
  575.      set opt(nn) 10
  576.      set opt(sndr) 1
  577.      set opt(rcvr) 4
  578.      set opt(filters) GradientFilter
  579.      $self instvar ns_ testName_
  580.      set testName_ push-10n-1s-4r
  581.      $self next
  582.  }
  584. Test/push-10n-1s-4r instproc run {} {
  585.      global opt
  586.      $self instvar ns_ topo god_
  588.      set topo [new Topography]
  589.      $topo load_flatgrid $opt(x) $opt(y)
  590.      set god_ [create-god $opt(nn)]
  592.      $ns_ node-config -adhocRouting $opt(adhocRouting) 
  593.  -llType $opt(ll) 
  594.  -macType $opt(mac) 
  595.  -ifqType $opt(ifq) 
  596.  -ifqLen $opt(ifqlen) 
  597.  -antType $opt(ant) 
  598.  -propType $opt(prop) 
  599.  -phyType $opt(netif) 
  600.  -channelType $opt(chan) 
  601.  -topoInstance $topo 
  602.  -diffusionFilter $opt(filters) 
  603.  -agentTrace ON 
  604.  -routerTrace OFF 
  605.  -macTrace OFF 
  606.              
  607.      for {set i 0} {$i < $opt(nn) } {incr i} {
  608.  set node_($i) [$ns_ node $i]
  609.          $node_($i) color black
  610.  $node_($i) random-motion 0 ;# disable random motion
  611.          $god_ new_node $node_($i)
  612.      }
  614.      # defining node positions
  615.      $node_(0) set X_ 18.587605569735
  616.      $node_(0) set Y_ 401.886827012678
  617.      $node_(0) set Z_ 0.000000000000
  618.      $node_(1) set X_ 11.901958617639
  619.      $node_(1) set Y_ 36.218497218617
  620.      $node_(1) set Z_ 0.000000000000
  621.      $node_(2) set X_ 224.282785411393
  622.      $node_(2) set Y_ 20.774608253697
  623.      $node_(2) set Z_ 0.000000000000
  624.      $node_(3) set X_ 158.840938304009
  625.      $node_(3) set Y_ 139.650216383776
  626.      $node_(3) set Z_ 0.000000000000
  627.      $node_(4) set X_ 101.186886005903
  628.      $node_(4) set Y_ 147.993190973633
  629.      $node_(4) set Z_ 0.000000000000
  630.      $node_(5) set X_ 321.560825121175
  631.      $node_(5) set Y_ 472.788096833600
  632.      $node_(5) set Z_ 0.000000000000
  633.      $node_(6) set X_ 149.543901734330
  634.      $node_(6) set Y_ 384.356581531832
  635.      $node_(6) set Z_ 0.000000000000
  636.      $node_(7) set X_ 381.066146464027
  637.      $node_(7) set Y_ 78.723958958779
  638.      $node_(7) set Z_ 0.000000000000
  639.      $node_(8) set X_ 113.578290026963
  640.      $node_(8) set Y_ 410.320583900348
  641.      $node_(8) set Z_ 0.000000000000
  642.      $node_(9) set X_ 258.053977148981
  643.      $node_(9) set Y_ 113.194171851670
  644.      $node_(9) set Z_ 0.000000000000
  645.     
  646.      # 1 ping sender
  647.      for {set i 0} {$i < $opt(sndr)} {incr i} {
  648.   set src_($i) [new Application/DiffApp/PushSender]
  649.   $ns_ attach-diffapp $node_([expr $i+2]) $src_($i)
  650.   $ns_ at [expr 0.123 * [expr 1+$i]] "$src_($i) publish"
  651.      }
  653.      # 4 ping receiver
  654.      for {set i 0} {$i < $opt(rcvr)} {incr i} {
  655.   set snk_($i) [new Application/DiffApp/PushReceiver]
  656.   $ns_ attach-diffapp $node_([expr $opt(nn)-1 -$i]) $snk_($i)
  657.   $ns_ at [expr 1.1*[expr 1+$i]] "$snk_($i) subscribe"
  658.      }
  659.      #
  660.      # Tell nodes when the simulation ends
  661.      #
  662.      for {set i 0} {$i < $opt(nn) } {incr i} {
  663.   $ns_ at $opt(stop).000000001 "$node_($i) reset";
  664.      }
  665.      $ns_ at  $opt(stop).000000001 "puts "NS EXITING..." ; $ns_ halt"
  666.      $ns_ run
  667.  }
  669. Class Test/push-10n-4s-1r -superclass TestSuite
  671. Test/push-10n-4s-1r instproc init {} {
  672.     global opt
  673.     set opt(nn) 10
  674.     set opt(sndr) 4
  675.     set opt(rcvr) 1
  676.     set opt(filters) GradientFilter
  677.     $self instvar ns_ testName_
  678.     set testName_ push-10n-4s-1r
  679.     $self next
  680. }
  682. Test/push-10n-4s-1r instproc run {} {
  683.      global opt
  684.      $self instvar ns_ topo god_
  686.      set topo [new Topography]
  687.      $topo load_flatgrid $opt(x) $opt(y)
  688.      set god_ [create-god $opt(nn)]
  690.      $ns_ node-config -adhocRouting $opt(adhocRouting) 
  691.  -llType $opt(ll) 
  692.  -macType $opt(mac) 
  693.  -ifqType $opt(ifq) 
  694.  -ifqLen $opt(ifqlen) 
  695.  -antType $opt(ant) 
  696.  -propType $opt(prop) 
  697.  -phyType $opt(netif) 
  698.  -channelType $opt(chan) 
  699.  -topoInstance $topo 
  700.  -diffusionFilter $opt(filters) 
  701.  -agentTrace ON 
  702.  -routerTrace OFF 
  703.  -macTrace OFF 
  704.              
  705.     for {set i 0} {$i < $opt(nn) } {incr i} {
  706.  set node_($i) [$ns_ node $i]
  707.          $node_($i) color black
  708.   $node_($i) random-motion 0 ;# disable random motion
  709.          $god_ new_node $node_($i)
  710.     }
  712.      # defining node positions
  713.      $node_(0) set X_ 18.587605569735
  714.      $node_(0) set Y_ 401.886827012678
  715.      $node_(0) set Z_ 0.000000000000
  716.      $node_(1) set X_ 11.901958617639
  717.      $node_(1) set Y_ 36.218497218617
  718.      $node_(1) set Z_ 0.000000000000
  719.      $node_(2) set X_ 224.282785411393
  720.      $node_(2) set Y_ 20.774608253697
  721.      $node_(2) set Z_ 0.000000000000
  722.      $node_(3) set X_ 158.840938304009
  723.      $node_(3) set Y_ 139.650216383776
  724.      $node_(3) set Z_ 0.000000000000
  725.      $node_(4) set X_ 101.186886005903
  726.      $node_(4) set Y_ 147.993190973633
  727.      $node_(4) set Z_ 0.000000000000
  728.      $node_(5) set X_ 321.560825121175
  729.      $node_(5) set Y_ 472.788096833600
  730.      $node_(5) set Z_ 0.000000000000
  731.      $node_(6) set X_ 149.543901734330
  732.      $node_(6) set Y_ 384.356581531832
  733.      $node_(6) set Z_ 0.000000000000
  734.      $node_(7) set X_ 381.066146464027
  735.      $node_(7) set Y_ 78.723958958779
  736.      $node_(7) set Z_ 0.000000000000
  737.      $node_(8) set X_ 113.578290026963
  738.      $node_(8) set Y_ 410.320583900348
  739.      $node_(8) set Z_ 0.000000000000
  740.      $node_(9) set X_ 258.053977148981
  741.      $node_(9) set Y_ 113.194171851670
  742.      $node_(9) set Z_ 0.000000000000
  743.    
  744.      # 4 ping sender
  745.      for {set i 0} {$i < $opt(sndr)} {incr i} {
  746.   set src_($i) [new Application/DiffApp/PushSender]
  747.   $ns_ attach-diffapp $node_([expr $i+2]) $src_($i)
  748.   $ns_ at [expr 0.123 * [expr 1+$i]] "$src_($i) publish"
  749.      }
  751.      # 1 ping receiver
  752.      for {set i 0} {$i < $opt(rcvr)} {incr i} {
  753.   set snk_($i) [new Application/DiffApp/PushReceiver]
  754.   $ns_ attach-diffapp $node_([expr $opt(nn)-1 -$i]) $snk_($i)
  755.   $ns_ at [expr 1.1*[expr 1+$i]] "$snk_($i) subscribe"
  756.      }
  757.      #
  758.      # Tell nodes when the simulation ends
  759.      #
  760.      for {set i 0} {$i < $opt(nn) } {incr i} {
  761.   $ns_ at $opt(stop).000000001 "$node_($i) reset";
  762.      }
  763.      $ns_ at  $opt(stop).000000001 "puts "NS EXITING..." ; $ns_ halt"
  764.      $ns_ run
  765. }
  767. Class Test/1pp-5n-1s-1r -superclass TestSuite
  769. Test/1pp-5n-1s-1r instproc init {} {
  770.      global opt
  771.      set opt(nn) 5
  772.      set opt(sndr) 1
  773.      set opt(rcvr) 1
  774.      set opt(filters) OnePhasePullFilter
  775.      $self instvar ns_ testName_
  776.      set testName_ 1pp-5n-1s-1r
  777.      $self next
  778. }
  780. Test/1pp-5n-1s-1r instproc run {} {
  781.     global opt
  782.     $self instvar ns_ topo god_
  784.     set topo [new Topography]
  785.     $topo load_flatgrid $opt(x) $opt(y)
  786.      set god_ [create-god $opt(nn)]
  788.      $ns_ node-config -adhocRouting $opt(adhocRouting) 
  789.    -llType $opt(ll) 
  790.    -macType $opt(mac) 
  791.    -ifqType $opt(ifq) 
  792.    -ifqLen $opt(ifqlen) 
  793.    -antType $opt(ant) 
  794.    -propType $opt(prop) 
  795.    -phyType $opt(netif) 
  796.    -channelType $opt(chan) 
  797.    -topoInstance $topo 
  798.            -diffusionFilter $opt(filters) 
  799.    -agentTrace ON 
  800.                   -routerTrace ON 
  801.                   -macTrace OFF 
  802.              
  803.      for {set i 0} {$i < $opt(nn) } {incr i} {
  804.   set node_($i) [$ns_ node $i]
  805.          $node_($i) color black
  806.   $node_($i) random-motion 0 ;# disable random motion
  807.          $god_ new_node $node_($i)
  808.      }
  810.      # defining node positions
  811.      $node_(0) set X_ 18.587605569735
  812.      $node_(0) set Y_ 401.886827012678
  813.      $node_(0) set Z_ 0.000000000000
  814.      $node_(1) set X_ 11.901958617639
  815.      $node_(1) set Y_ 36.218497218617
  816.      $node_(1) set Z_ 0.000000000000
  817.      $node_(2) set X_ 224.282785411393
  818.      $node_(2) set Y_ 20.774608253697
  819.      $node_(2) set Z_ 0.000000000000
  820.      $node_(3) set X_ 158.840938304009
  821.      $node_(3) set Y_ 139.650216383776
  822.      $node_(3) set Z_ 0.000000000000
  823.      $node_(4) set X_ 101.186886005903
  824.      $node_(4) set Y_ 147.993190973633
  825.      $node_(4) set Z_ 0.000000000000
  826.     
  827.      # 1 ping sender
  828.      for {set i 0} {$i < $opt(sndr)} {incr i} {
  829.   set src_($i) [new Application/DiffApp/PingSender/OPP]
  830.   $ns_ attach-diffapp $node_([expr $i+1]) $src_($i)
  831.   $ns_ at [expr 0.123 * [expr 1+$i]] "$src_($i) publish"
  832.      }
  834.     # 1 ping receiver
  835.      for {set i 0} {$i < $opt(rcvr)} {incr i} {
  836.   set snk_($i) [new Application/DiffApp/PingReceiver/OPP]
  837.   $ns_ attach-diffapp $node_([expr $opt(nn)-1 -$i]) $snk_($i)
  838.   $ns_ at [expr 1.1*[expr 1+$i]] "$snk_($i) subscribe"
  839.      }
  840.      #
  841.      # Tell nodes when the simulation ends
  842.      #
  843.      for {set i 0} {$i < $opt(nn) } {incr i} {
  844.   $ns_ at $opt(stop).000000001 "$node_($i) reset";
  845.      }
  846.      $ns_ at  $opt(stop).000000001 "puts "NS EXITING..." ; $ns_ halt"
  847.      $ns_ run
  848. }
  850. Class Test/1pp-10n-4s-1r -superclass TestSuite
  852. Test/1pp-10n-4s-1r instproc init {} {
  853.      global opt
  854.      set opt(nn) 10
  855.      set opt(sndr) 4
  856.      set opt(rcvr) 1
  857.      set opt(filters) OnePhasePullFilter
  858.      $self instvar ns_ testName_
  859.      set testName_ 1pp-10n-4s-1r
  860.      $self next
  861. }
  863. Test/1pp-10n-4s-1r instproc run {} {
  864.      global opt
  865.      $self instvar ns_ topo god_
  867.      set topo [new Topography]
  868.      $topo load_flatgrid $opt(x) $opt(y)
  869.      set god_ [create-god $opt(nn)]
  871.      $ns_ node-config -adhocRouting $opt(adhocRouting) 
  872.    -llType $opt(ll) 
  873.    -macType $opt(mac) 
  874.    -ifqType $opt(ifq) 
  875.    -ifqLen $opt(ifqlen) 
  876.    -antType $opt(ant) 
  877.    -propType $opt(prop) 
  878.    -phyType $opt(netif) 
  879.    -channelType $opt(chan) 
  880.    -topoInstance $topo 
  881.            -diffusionFilter $opt(filters) 
  882.    -agentTrace ON 
  883.                   -routerTrace OFF 
  884.                   -macTrace OFF 
  885.              
  886.      for {set i 0} {$i < $opt(nn) } {incr i} {
  887.   set node_($i) [$ns_ node $i]
  888.          $node_($i) color black
  889.   $node_($i) random-motion 0 ;# disable random motion
  890.          $god_ new_node $node_($i)
  891.      }
  893.      # defining node positions
  894.      $node_(0) set X_ 18.587605569735
  895.      $node_(0) set Y_ 401.886827012678
  896.      $node_(0) set Z_ 0.000000000000
  897.      $node_(1) set X_ 11.901958617639
  898.      $node_(1) set Y_ 36.218497218617
  899.      $node_(1) set Z_ 0.000000000000
  900.      $node_(2) set X_ 224.282785411393
  901.      $node_(2) set Y_ 20.774608253697
  902.      $node_(2) set Z_ 0.000000000000
  903.      $node_(3) set X_ 158.840938304009
  904.      $node_(3) set Y_ 139.650216383776
  905.      $node_(3) set Z_ 0.000000000000
  906.      $node_(4) set X_ 101.186886005903
  907.      $node_(4) set Y_ 147.993190973633
  908.      $node_(4) set Z_ 0.000000000000
  909.      $node_(5) set X_ 321.560825121175
  910.      $node_(5) set Y_ 472.788096833600
  911.      $node_(5) set Z_ 0.000000000000
  912.      $node_(6) set X_ 149.543901734330
  913.      $node_(6) set Y_ 384.356581531832
  914.      $node_(6) set Z_ 0.000000000000
  915.      $node_(7) set X_ 381.066146464027
  916.      $node_(7) set Y_ 78.723958958779
  917.      $node_(7) set Z_ 0.000000000000
  918.      $node_(8) set X_ 113.578290026963
  919.      $node_(8) set Y_ 410.320583900348
  920.      $node_(8) set Z_ 0.000000000000
  921.      $node_(9) set X_ 258.053977148981
  922.      $node_(9) set Y_ 113.194171851670
  923.      $node_(9) set Z_ 0.000000000000
  924.     
  925.      # 4 ping senders
  926.      for {set i 0} {$i < $opt(sndr)} {incr i} {
  927.   set src_($i) [new Application/DiffApp/PingSender/OPP]
  928.   $ns_ attach-diffapp $node_([expr $i+2]) $src_($i)
  929.   $ns_ at [expr 0.123 * $i] "$src_($i) publish"
  930.      }
  932.      # 1 ping receiver
  933.      set snk_(0) [new Application/DiffApp/PingReceiver/OPP]
  934.      $ns_ attach-diffapp $node_(9) $snk_(0)
  935.      $ns_ at 1.456 "$snk_(0) subscribe"
  937.      #
  938.      # Tell nodes when the simulation ends
  939.      #
  940.      for {set i 0} {$i < $opt(nn) } {incr i} {
  941.   $ns_ at $opt(stop).000000001 "$node_($i) reset";
  942.      }
  943.      $ns_ at  $opt(stop).000000001 "puts "NS EXITING..." ; $ns_ halt"
  944.      $ns_ run
  945. }
  948. Class Test/1pp-10n-1s-4r -superclass TestSuite
  950. Test/1pp-10n-1s-4r instproc init {} {
  951.      global opt
  952.      set opt(nn) 10
  953.      set opt(sndr) 1
  954.      set opt(rcvr) 4
  955.      set opt(filters) OnePhasePullFilter
  956.      $self instvar ns_ testName_
  957.      set testName_ 1pp-10n-1s-4r
  958.      $self next
  959. }
  961. Test/1pp-10n-1s-4r instproc run {} {
  962.      global opt
  963.      $self instvar ns_ topo god_
  964.     
  965.     set topo [new Topography]
  966.     $topo load_flatgrid $opt(x) $opt(y)
  967.     set god_ [create-god $opt(nn)]
  968.     
  969.     $ns_ node-config -adhocRouting $opt(adhocRouting) 
  970.  -llType $opt(ll) 
  971.  -macType $opt(mac) 
  972.  -ifqType $opt(ifq) 
  973.  -ifqLen $opt(ifqlen) 
  974.  -antType $opt(ant) 
  975.  -propType $opt(prop) 
  976.  -phyType $opt(netif) 
  977.  -channelType $opt(chan) 
  978.  -topoInstance $topo 
  979.  -diffusionFilter $opt(filters) 
  980.  -agentTrace ON 
  981.  -routerTrace OFF 
  982.  -macTrace OFF 
  983.              
  984.      for {set i 0} {$i < $opt(nn) } {incr i} {
  985.   set node_($i) [$ns_ node $i]
  986.          $node_($i) color black
  987.   $node_($i) random-motion 0 ;# disable random motion
  988.          $god_ new_node $node_($i)
  989.      }
  991.      # defining node positions
  992.      $node_(0) set X_ 18.587605569735
  993.      $node_(0) set Y_ 401.886827012678
  994.      $node_(0) set Z_ 0.000000000000
  995.      $node_(1) set X_ 11.901958617639
  996.      $node_(1) set Y_ 36.218497218617
  997.      $node_(1) set Z_ 0.000000000000
  998.      $node_(2) set X_ 224.282785411393
  999.      $node_(2) set Y_ 20.774608253697
  1000.      $node_(2) set Z_ 0.000000000000
  1001.      $node_(3) set X_ 158.840938304009
  1002.      $node_(3) set Y_ 139.650216383776
  1003.      $node_(3) set Z_ 0.000000000000
  1004.      $node_(4) set X_ 101.186886005903
  1005.      $node_(4) set Y_ 147.993190973633
  1006.      $node_(4) set Z_ 0.000000000000
  1007.      $node_(5) set X_ 321.560825121175
  1008.      $node_(5) set Y_ 472.788096833600
  1009.      $node_(5) set Z_ 0.000000000000
  1010.      $node_(6) set X_ 149.543901734330
  1011.      $node_(6) set Y_ 384.356581531832
  1012.      $node_(6) set Z_ 0.000000000000
  1013.      $node_(7) set X_ 381.066146464027
  1014.      $node_(7) set Y_ 78.723958958779
  1015.      $node_(7) set Z_ 0.000000000000
  1016.      $node_(8) set X_ 113.578290026963
  1017.      $node_(8) set Y_ 410.320583900348
  1018.      $node_(8) set Z_ 0.000000000000
  1019.      $node_(9) set X_ 258.053977148981
  1020.      $node_(9) set Y_ 113.194171851670
  1021.      $node_(9) set Z_ 0.000000000000
  1022.     
  1023.      # 1 ping sender
  1024.      for {set i 0} {$i < $opt(sndr)} {incr i} {
  1025.   set src_($i) [new Application/DiffApp/PingSender/OPP]
  1026.   $ns_ attach-diffapp $node_([expr $i+2]) $src_($i)
  1027.   $ns_ at [expr 0.123 * [expr 1+$i]] "$src_($i) publish"
  1028.      }
  1030.      # 4 ping receiver
  1031.      for {set i 0} {$i < $opt(rcvr)} {incr i} {
  1032.   set snk_($i) [new Application/DiffApp/PingReceiver/OPP]
  1033.   $ns_ attach-diffapp $node_([expr $opt(nn)-1 -$i]) $snk_($i)
  1034.   $ns_ at [expr 1.1*[expr 1+$i]] "$snk_($i) subscribe"
  1035.      }
  1036.      #
  1037.      # Tell nodes when the simulation ends
  1038.      #
  1039.      for {set i 0} {$i < $opt(nn) } {incr i} {
  1040.   $ns_ at $opt(stop).000000001 "$node_($i) reset";
  1041.      }
  1042.      $ns_ at  $opt(stop).000000001 "puts "NS EXITING..." ; $ns_ halt"
  1043.      $ns_ run
  1044. }
  1046. Class Test/gear-2pp-5n-1s-1r -superclass TestSuite
  1048. Test/gear-2pp-5n-1s-1r instproc init {} {
  1049.      global opt
  1050.      set opt(nn) 5
  1051.      set opt(filters) GradientFilter/GeoRoutingFilter
  1052.      $self instvar ns_ testName_
  1053.      set testName_ gear-2pp-5n-1s-1r
  1054.      $self next
  1055. }
  1057. Test/gear-2pp-5n-1s-1r instproc run {} {
  1058.      global opt
  1059.      $self instvar ns_ topo god_
  1060.      set topo [new Topography]
  1061.      $topo load_flatgrid $opt(x) $opt(y)
  1062.      set god_ [create-god $opt(nn)]
  1064.      $ns_ node-config -adhocRouting $opt(adhocRouting) 
  1065.    -llType $opt(ll) 
  1066.    -macType $opt(mac) 
  1067.    -ifqType $opt(ifq) 
  1068.    -ifqLen $opt(ifqlen) 
  1069.    -antType $opt(ant) 
  1070.    -propType $opt(prop) 
  1071.    -phyType $opt(netif) 
  1072.    -channelType $opt(chan) 
  1073.    -topoInstance $topo 
  1074.            -diffusionFilter $opt(filters) 
  1075.    -agentTrace ON 
  1076.                   -routerTrace OFF 
  1077.                   -macTrace OFF 
  1078.              
  1079.      for {set i 0} {$i < $opt(nn) } {incr i} {
  1080.   set node_($i) [$ns_ node $i]
  1081.          $node_($i) color black
  1082.   $node_($i) random-motion 0 ;# disable random motion
  1083.          $god_ new_node $node_($i)
  1084.      }
  1086.      # defining node positions
  1087.      $node_(0) set X_ 618.716707738489
  1088.      $node_(0) set Y_ 620.707335765875
  1089.      $node_(0) set Z_ 0.000000000000
  1090.     
  1091.      $node_(1) set X_ 524.192740186325
  1092.      $node_(1) set Y_ 540.384818286195
  1093.      $node_(1) set Z_ 0.000000000000
  1094.    
  1095.      $node_(2) set X_ 406.438972165239
  1096.      $node_(2) set Y_ 425.843469852367
  1097.      $node_(2) set Z_ 0.000000000000
  1098.     
  1099.      $node_(3) set X_ 320.192740186325
  1100.      $node_(3) set Y_ 350.384818286195
  1101.      $node_(3) set Z_ 0.000000000000
  1102.     
  1103.      $node_(4) set X_ 177.438972165239
  1104.      $node_(4) set Y_ 145.843469852367
  1105.      $node_(4) set Z_ 0.000000000000
  1106.     
  1107.     for {set i 0} {$i < $opt(nn)} {incr i} {
  1108.  set gearf($i) [new Application/DiffApp/GeoRoutingFilter 
  1109.      [$node_($i) get-dr]]
  1110.  $gearf($i) start
  1111.      }
  1113.      # 1 gear sender
  1114.      set src_(0) [new Application/DiffApp/GearSenderApp]
  1115.      $ns_ attach-diffapp $node_(0) $src_(0)
  1116.      $src_(0) push-pull-options pull point 618.716 620.707
  1117.      $ns_ at 0.123 "$src_(0) publish"
  1119.      #Diffusion application - ping receiver
  1120.      set snk_(0) [new Application/DiffApp/GearReceiverApp]
  1121.      $ns_ attach-diffapp $node_(4) $snk_(0)
  1122.      $snk_(0) push-pull-options pull region 600 650 600 650
  1123.      $ns_ at 1.456 "$snk_(0) subscribe"
  1125.      #
  1126.      # Tell nodes when the simulation ends
  1127.      #
  1128.      for {set i 0} {$i < $opt(nn) } {incr i} {
  1129.   $ns_ at $opt(stop).000000001 "$node_($i) reset";
  1130.      }
  1131.      $ns_ at  $opt(stop).000000001 "puts "NS EXITING..." ; $ns_ halt"
  1132.      $ns_ run
  1133. }
  1134.  
  1135. Class Test/gear-2pp-10n-4s-1r -superclass TestSuite
  1137. Test/gear-2pp-10n-4s-1r instproc init {} {
  1138.      global opt
  1139.      set opt(nn) 10
  1140.      set opt(filters) GradientFilter/GeoRoutingFilter
  1141.      $self instvar ns_ testName_
  1142.      set testName_ gear-2pp-10n-4s-1r
  1143.      $self next
  1144.  }
  1146. Test/gear-2pp-10n-4s-1r instproc run {} {
  1147.      global opt
  1148.      $self instvar ns_ topo god_
  1150.      set topo [new Topography]
  1151.      $topo load_flatgrid $opt(x) $opt(y)
  1152.      set god_ [create-god $opt(nn)]
  1154.      $ns_ node-config -adhocRouting $opt(adhocRouting) 
  1155.   -llType $opt(ll) 
  1156.   -macType $opt(mac) 
  1157.   -ifqType $opt(ifq) 
  1158.   -ifqLen $opt(ifqlen) 
  1159.   -antType $opt(ant) 
  1160.   -propType $opt(prop) 
  1161.   -phyType $opt(netif) 
  1162.   -channelType $opt(chan) 
  1163.   -topoInstance $topo 
  1164.   -diffusionFilter $opt(filters) 
  1165.   -agentTrace ON 
  1166.   -routerTrace OFF 
  1167.   -macTrace OFF 
  1168.     
  1169.      for {set i 0} {$i < $opt(nn) } {incr i} {
  1170.   set node_($i) [$ns_ node $i]
  1171.          $node_($i) color black
  1172.   $node_($i) random-motion 0 ;# disable random motion
  1173.          $god_ new_node $node_($i)
  1174.      }
  1176.      # defining node positions
  1177.      $node_(0) set X_ 180.587605569735
  1178.      $node_(0) set Y_ 401.886827012678
  1179.      $node_(0) set Z_ 0.000000000000
  1180.      $node_(1) set X_ 11.901958617639
  1181.      $node_(1) set Y_ 36.218497218617
  1182.      $node_(1) set Z_ 0.000000000000
  1183.      $node_(2) set X_ 224.282785411393
  1184.      $node_(2) set Y_ 20.774608253697
  1185.      $node_(2) set Z_ 0.000000000000
  1186.      $node_(3) set X_ 158.840938304009
  1187.      $node_(3) set Y_ 139.650216383776
  1188.      $node_(3) set Z_ 0.000000000000
  1189.      $node_(4) set X_ 101.186886005903
  1190.      $node_(4) set Y_ 147.993190973633
  1191.      $node_(4) set Z_ 0.000000000000
  1192.      $node_(5) set X_ 321.560825121175
  1193.      $node_(5) set Y_ 472.788096833600
  1194.      $node_(5) set Z_ 0.000000000000
  1195.      $node_(6) set X_ 149.543901734330
  1196.      $node_(6) set Y_ 384.356581531832
  1197.      $node_(6) set Z_ 0.000000000000
  1198.      $node_(7) set X_ 381.066146464027
  1199.      $node_(7) set Y_ 78.723958958779
  1200.      $node_(7) set Z_ 0.000000000000
  1201.      $node_(8) set X_ 113.578290026963
  1202.      $node_(8) set Y_ 410.320583900348
  1203.      $node_(8) set Z_ 0.000000000000
  1204.      $node_(9) set X_ 258.053977148981
  1205.      $node_(9) set Y_ 113.194171851670
  1206.      $node_(9) set Z_ 0.000000000000
  1207.     
  1208.      # starting gear filter separately- this will go away once gear has 
  1209.      # callbacks for updating node positions
  1210.      for {set i 0} {$i < $opt(nn)} {incr i} {
  1211.   set gearf($i) [new Application/DiffApp/GeoRoutingFilter 
  1212.      [$node_($i) get-dr]]
  1213.   $gearf($i) start
  1214.      }
  1216.      # 4 gear sender
  1217.      set src_(0) [new Application/DiffApp/GearSenderApp]
  1218.      $ns_ attach-diffapp $node_(0) $src_(0)
  1219.      $src_(0) push-pull-options pull point 180.587 401.886
  1220.      $ns_ at 0.123 "$src_(0) publish"
  1221.     
  1222.      set src_(1) [new Application/DiffApp/GearSenderApp]
  1223.      $ns_ attach-diffapp $node_(1) $src_(1)
  1224.      $src_(1) push-pull-options pull point 11.901 36.218
  1225.      $ns_ at 0.23 "$src_(1) publish"
  1226.     
  1227.      set src_(2) [new Application/DiffApp/GearSenderApp]
  1228.      $ns_ attach-diffapp $node_(2) $src_(2)
  1229.      $src_(2) push-pull-options pull point 224.282 20.774
  1230.      $ns_ at 0.3 "$src_(2) publish"
  1231.     
  1232.      set src_(3) [new Application/DiffApp/GearSenderApp]
  1233.      $ns_ attach-diffapp $node_(3) $src_(3)
  1234.      $src_(3) push-pull-options pull point 158.840 139.650
  1235.      $ns_ at 0.4 "$src_(3) publish"
  1236.     
  1237.      # 1 ping receiver
  1238.      set snk_(0) [new Application/DiffApp/GearReceiverApp]
  1239.      $ns_ attach-diffapp $node_(7) $snk_(0)
  1240.      $snk_(0) push-pull-options pull region 10 300 10 450
  1241.      $ns_ at 1.456 "$snk_(0) subscribe"
  1242.     
  1243.      #
  1244.      # Tell nodes when the simulation ends
  1245.      #
  1246.      for {set i 0} {$i < $opt(nn) } {incr i} {
  1247.   $ns_ at $opt(stop).000000001 "$node_($i) reset";
  1248.      }
  1249.      $ns_ at  $opt(stop).000000001 "puts "NS EXITING..." ; $ns_ halt"
  1250.      $ns_ run
  1251. }
  1253. Class Test/gear-push-10n-1s-4r -superclass TestSuite
  1255. Test/gear-push-10n-1s-4r instproc init {} {
  1256.      global opt
  1257.      set opt(nn) 10
  1258.      set opt(filters) GradientFilter/GeoRoutingFilter
  1259.      $self instvar ns_ testName_
  1260.      set testName_ gear-push-10n-1s-4r
  1261.      $self next
  1262. }
  1264. Test/gear-push-10n-1s-4r instproc run {} {
  1265.      global opt
  1266.     $self instvar ns_ topo god_
  1268.      set topo [new Topography]
  1269.     $topo load_flatgrid $opt(x) $opt(y)
  1270.      set god_ [create-god $opt(nn)]
  1272.      $ns_ node-config -adhocRouting $opt(adhocRouting) 
  1273.   -llType $opt(ll) 
  1274.   -macType $opt(mac) 
  1275.   -ifqType $opt(ifq) 
  1276.   -ifqLen $opt(ifqlen) 
  1277.   -antType $opt(ant) 
  1278.   -propType $opt(prop) 
  1279.   -phyType $opt(netif) 
  1280.   -channelType $opt(chan) 
  1281.   -topoInstance $topo 
  1282.   -diffusionFilter $opt(filters) 
  1283.   -agentTrace ON 
  1284.   -routerTrace OFF 
  1285.   -macTrace OFF 
  1286.     
  1287.      for {set i 0} {$i < $opt(nn) } {incr i} {
  1288.   set node_($i) [$ns_ node $i]
  1289.          $node_($i) color black
  1290.   $node_($i) random-motion 0 ;# disable random motion
  1291.          $god_ new_node $node_($i)
  1292.      }
  1294.      # defining node positions
  1295.      $node_(0) set X_ 180.587605569735
  1296.      $node_(0) set Y_ 401.886827012678
  1297.      $node_(0) set Z_ 0.000000000000
  1298.      $node_(1) set X_ 11.901958617639
  1299.      $node_(1) set Y_ 36.218497218617
  1300.      $node_(1) set Z_ 0.000000000000
  1301.      $node_(2) set X_ 224.282785411393
  1302.      $node_(2) set Y_ 20.774608253697
  1303.      $node_(2) set Z_ 0.000000000000
  1304.      $node_(3) set X_ 158.840938304009
  1305.      $node_(3) set Y_ 139.650216383776
  1306.      $node_(3) set Z_ 0.000000000000
  1307.      $node_(4) set X_ 101.186886005903
  1308.      $node_(4) set Y_ 147.993190973633
  1309.      $node_(4) set Z_ 0.000000000000
  1310.      $node_(5) set X_ 321.560825121175
  1311.      $node_(5) set Y_ 472.788096833600
  1312.      $node_(5) set Z_ 0.000000000000
  1313.      $node_(6) set X_ 149.543901734330
  1314.      $node_(6) set Y_ 384.356581531832
  1315.      $node_(6) set Z_ 0.000000000000
  1316.      $node_(7) set X_ 381.066146464027
  1317.      $node_(7) set Y_ 78.723958958779
  1318.      $node_(7) set Z_ 0.000000000000
  1319.      $node_(8) set X_ 113.578290026963
  1320.      $node_(8) set Y_ 410.320583900348
  1321.      $node_(8) set Z_ 0.000000000000
  1322.      $node_(9) set X_ 258.053977148981
  1323.      $node_(9) set Y_ 113.194171851670
  1324.      $node_(9) set Z_ 0.000000000000
  1325.     
  1326.      # starting gear filter separately- this will go away once gear has 
  1327.      # callbacks for updating node positions
  1328.      for {set i 0} {$i < $opt(nn)} {incr i} {
  1329.   set gearf($i) [new Application/DiffApp/GeoRoutingFilter 
  1330.      [$node_($i) get-dr]]
  1331.  $gearf($i) start
  1332.      }
  1334.     # 1 push sender
  1335.     set src_(0) [new Application/DiffApp/GearSenderApp]
  1336.     $ns_ attach-diffapp $node_(6) $src_(0)
  1337.     $src_(0) push-pull-options push region 100 650 100 650
  1338.     $ns_ at 0.123 "$src_(0) publish"
  1339.     
  1340.     # 4 push receiver
  1341.     set snk_(0) [new Application/DiffApp/GearReceiverApp]
  1342.     $ns_ attach-diffapp $node_(8) $snk_(0)
  1343.     $snk_(0) push-pull-options push point 101.186 147.993
  1344.     $ns_ at 1.256 "$snk_(0) subscribe"
  1345.     
  1346.     set snk_(1) [new Application/DiffApp/GearReceiverApp]
  1347.     $ns_ attach-diffapp $node_(9) $snk_(1)
  1348.      $snk_(1) push-pull-options push point 258.053 113.194
  1349.      $ns_ at 1.456 "$snk_(1) subscribe"
  1350.     
  1351.      set snk_(2) [new Application/DiffApp/GearReceiverApp]
  1352.      $ns_ attach-diffapp $node_(7) $snk_(2)
  1353.      $snk_(2) push-pull-options push point 321.560 472.788
  1354.      $ns_ at 1.56 "$snk_(2) subscribe"
  1355.     
  1356.      set snk_(3) [new Application/DiffApp/GearReceiverApp]
  1357.      $ns_ attach-diffapp $node_(1) $snk_(3)
  1358.      $snk_(3) push-pull-options push point 158.840 139.650
  1359.      $ns_ at 1.73 "$snk_(3) subscribe"
  1360.     
  1361.      #
  1362.      # Tell nodes when the simulation ends
  1363.      #
  1364.      for {set i 0} {$i < $opt(nn) } {incr i} {
  1365.   $ns_ at $opt(stop).000000001 "$node_($i) reset";
  1366.      }
  1367.      $ns_ at  $opt(stop).000000001 "puts "NS EXITING..." ; $ns_ halt"
  1368.      $ns_ run
  1369. }
  1371. proc runtest {arg} {
  1372.   global quiet
  1373.   set quiet 0
  1375.   set b [llength $arg]
  1376.   if {$b == 1} {
  1377.   set test $arg
  1378.   } elseif {$b == 2} {
  1379.   set test [lindex $arg 0]
  1380.       if {[lindex $arg 1] == "QUIET"} {
  1381.   set quiet 1
  1382.       }
  1383.   } else {
  1384.   usage
  1385.   }
  1386.   set t [new Test/$test]
  1387.   $t run
  1388.  }
  1390.  global argv arg0
  1391.  runtest $argv