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

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

通讯编程

开发平台：

Visual C++

test-suite-wireless-diffusion.tcl：源码内容
  1. # -*- Mode:tcl; tcl-indent-level:8; tab-width:8; indent-tabs-mode:t -*-
  2. Agent/TCP set tcpTick_ 0.1
  3. # The default for tcpTick_ is being changed to reflect a changing reality.
  4. Agent/TCP set rfc2988_ false
  5. # The default for rfc2988_ is being changed to true.
  6. # FOR UPDATING GLOBAL DEFAULTS:
  7. Agent/TCP set precisionReduce_ false ;   # default changed on 2006/1/24.
  8. Agent/TCP set rtxcur_init_ 6.0 ;      # Default changed on 2006/01/21
  9. Agent/TCP set updated_rttvar_ false ;  # Variable added on 2006/1/21
  10. Agent/TCP set minrto_ 1
  11. # default changed on 10/14/2004.
  12. Agent/TCP set windowInit_ 1
  13. # The default is being changed to 2.
  14. Agent/TCP set singledup_ 0
  15. # The default is being changed to 1
  16. Mac/802_11 set bugFix_timer_ false;     # default changed 2006/1/30
  18. #
  19. # Copyright (c) 1998,2000 University of Southern California.
  20. # All rights reserved.                                            
  21. #                                                                
  22. # Redistribution and use in source and binary forms are permitted
  23. # provided that the above copyright notice and this paragraph are
  24. # duplicated in all such forms and that any documentation, advertising
  25. # materials, and other materials related to such distribution and use
  26. # acknowledge that the software was developed by the University of
  27. # Southern California, Information Sciences Institute.  The name of the
  28. # University may not be used to endorse or promote products derived from
  29. # this software without specific prior written permission.
  30. # 
  31. # THIS SOFTWARE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
  32. # WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
  33. # MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
  34. # 
  35. # $Header: /cvsroot/nsnam/ns-2/tcl/test/test-suite-wireless-diffusion.tcl,v 1.10 2006/01/30 21:27:52 mweigle Exp $
  37. # To run all tests: test-all-wireless-diffusion
  38. # to run individual test:
  39. # ns test-suite-wireless-diffusion.tcl diff-rate-default
  40. # ns test-suite-wireless-diffusion.tcl diff-rate-other
  41. # ns test-suite-wireless-diffusion.tcl diff-prob
  42. # ns test-suite-wireless-diffusion.tcl omnimcast
  43. # ns test-suite-wireless-diffusion.tcl flooding
  44. #
  45. # To view a list of available test to run with this script:
  46. # ns test-suite-wireless-diffusion.tcl
  49. # ======================================================================
  50. # Define options
  51. # ======================================================================
  52. global opt
  53. set opt(chan) Channel/WirelessChannel
  54. set opt(prop) Propagation/TwoRayGround
  55. set opt(netif) Phy/WirelessPhy
  56. set opt(mac) Mac/802_11
  57. set opt(ifq) Queue/DropTail/PriQueue
  58. set opt(ll) LL
  59. set opt(ant)            Antenna/OmniAntenna
  61. set opt(ifqlen) 50 ;# max packet in ifq
  62. set opt(seed) 1
  63. set opt(tr) estudy.tr ;# trace file
  64. set opt(nam) temp.rands
  65. set opt(lm)             "off"           ;# log movement
  66. set opt(engmodel)       EnergyModel     ;
  67. set opt(initeng)        1.1               ;# Initial energy in Joules
  68. set opt(txPower)        0.660;
  69. set opt(rxPower)        0.395;
  70. set opt(idlePower)      0.035;
  71. set opt(x) 800 ;# X dimension of the topography
  72. set opt(y) 800     ;# Y dimension of the topography
  73. set opt(nn) 30 ;# number of nodes
  74. set opt(stop) 25 ;# simulation time
  75. set opt(prestop)        23      ;# time to prepare to stop
  77. # ======================================================================
  79. LL set mindelay_ 50us
  80. LL set delay_ 25us
  81. LL set bandwidth_ 0 ;# not used
  83. Agent/Null set sport_ 0
  84. Agent/Null set dport_ 0
  86. Agent/CBR set sport_ 0
  87. Agent/CBR set dport_ 0
  89. Agent/TCPSink set sport_ 0
  90. Agent/TCPSink set dport_ 0
  92. Agent/TCP set sport_ 0
  93. Agent/TCP set dport_ 0
  94. Agent/TCP set packetSize_ 1460
  96. Queue/DropTail/PriQueue set Prefer_Routing_Protocols    1
  98. # unity gain, omni-directional antennas
  99. # set up the antennas to be centered in the node and 1.5 meters above it
  100. Antenna/OmniAntenna set X_ 0
  101. Antenna/OmniAntenna set Y_ 0
  102. Antenna/OmniAntenna set Z_ 1.5
  103. Antenna/OmniAntenna set Gt_ 1.0
  104. Antenna/OmniAntenna set Gr_ 1.0
  106. # Initialize the SharedMedia interface with parameters to make
  107. # it work like the 914MHz Lucent WaveLAN DSSS radio interface
  108. Phy/WirelessPhy set CPThresh_ 10.0
  109. Phy/WirelessPhy set CSThresh_ 1.559e-11
  110. Phy/WirelessPhy set RXThresh_ 3.652e-10
  111. Phy/WirelessPhy set Rb_ 2*1e6
  112. Phy/WirelessPhy set Pt_ 0.2818
  113. Phy/WirelessPhy set freq_ 914e+6 
  114. Phy/WirelessPhy set L_ 1.0
  116. # ======================================================================
  118. proc usage {}  {
  119.         global argv0
  120. puts stderr "usage: ns $argv0 <tests> "
  121. puts "Valid <tests> : diff-rate-default diff-rate-other diff-prob omnicast flooding "
  122.         exit 1
  123. }
  126. proc getopt {argc argv} {
  127. global opt
  128. lappend optlist cp nn seed sc stop tr x y
  130. for {set i 0} {$i < $argc} {incr i} {
  131. set arg [lindex $argv $i]
  132. if {[string range $arg 0 0] != "-"} continue
  134. set name [string range $arg 1 end]
  135. set opt($name) [lindex $argv [expr $i+1]]
  136. }
  137. }
  139. Class TestSuite
  141. Class Test/diff-rate-default -superclass TestSuite
  142. Class Test/diff-rate-other -superclass TestSuite
  143. Class Test/diff-prob -superclass TestSuite
  144. Class Test/omnimcast -superclass TestSuite
  145. Class Test/flooding -superclass TestSuite
  147. TestSuite instproc init {} {
  148. global opt 
  149. $self instvar ns_ topo  god_
  151. set ns_ [new Simulator]
  153. puts "Seeding Random number generator with $opt(seed)n"
  154. ns-random $opt(seed)
  156. set topo [new Topography]
  158. #set god_         [new God]
  160. set tracefd [open $opt(tr) w]
  161. set namtrace    [open $opt(nam) w]
  163. $topo load_flatgrid $opt(x) $opt(y)
  165. $ns_ trace-all $tracefd
  166. $ns_ namtrace-all-wireless $namtrace $opt(x) $opt(y)
  168. set god_ [create-god $opt(nn)]
  169. }
  172. Test/diff-rate-default instproc init {} {
  173.    global opt
  174.    $self instvar ns_ topo god_
  176.     set opt(god)            on
  177.     set opt(traf) "sk-30-3-3-1-1-6-64.tcl"      ;# traffic file
  178.     set opt(topo) "scen-800x800-30-500-1.0-1"   ;# topology file
  179.     set opt(onoff)          ""                        ;# node on-off
  180.     set opt(adhocRouting)   DIFFUSION/RATE       
  181.     set opt(enablePos)      "true"
  182.     set opt(enableNeg)      "true"
  183.     set opt(subTxType)      BROADCAST
  184.     set opt(orgTxType)      UNICAST
  185.     set opt(posType)        ALL
  186.     set opt(posNodeType)    INTM
  187.     set opt(negWinType)     TIMER
  188.     set opt(negThrType)     ABSOLUTE
  189.     set opt(negMaxType)     FIXED
  190.     set opt(suppression)    "true"
  191.     set opt(duplicate)      "enable-duplicate"
  193.    $self next
  194. }
  195. Test/diff-rate-default instproc run {} {
  196.    global opt
  197.    $self instvar ns_ topo god_
  199.     $god_ $opt(god)
  200.     $god_ allow_to_stop
  201.     $god_ num_data_types 1
  202.     
  203.     $ns_ node-config -adhocRouting $opt(adhocRouting) 
  204.  -llType $opt(ll) 
  205.  -macType $opt(mac) 
  206.  -ifqType $opt(ifq) 
  207.  -ifqLen $opt(ifqlen) 
  208.  -antType $opt(ant) 
  209.  -propType $opt(prop) 
  210.  -phyType $opt(netif) 
  211.  -channel [new $opt(chan)] 
  212.  -topoInstance $topo 
  213.  -agentTrace ON 
  214.                  -routerTrace ON 
  215.                  -macTrace ON 
  216.  -energyModel $opt(engmodel) 
  217.  -initialEnergy $opt(initeng) 
  218.  -txPower  $opt(txPower) 
  219.  -rxPower  $opt(rxPower) 
  220.  -idlePower  $opt(idlePower)
  222.  
  223.     for {set i 0} {$i < $opt(nn) } {incr i} {
  224. set node_($i) [$ns_ node $i]
  225. $node_($i) random-motion 0 ;# disable random motion
  226.         $god_ new_node $node_($i)
  227.     }
  229.     if { $opt(topo) == "" } {
  230. puts "*** NOTE: no topology file specified."
  231.         set opt(topo) "none"
  232.     } else {
  233. puts "Loading topology file..."
  234. source $opt(topo)
  235. puts "Load complete..."
  236.     }
  238.     if { $opt(onoff) == "" } {
  239. puts "*** NOTE: no node-on-off file specified."
  240.         set opt(onoff) "none"
  241.     } else {
  242. puts "Loading node on-off file..."
  243. source $opt(onoff)
  244. puts "Load complete..."
  245.     }
  247.     if { $opt(traf) == "" } {
  248. puts "*** NOTE: no traffic file specified."
  249.         set opt(traf) "none"
  250.     } else {
  251. puts "Loading traffic file..."
  252. source $opt(traf)
  253. puts "Load complete..."
  254.     }
  256. #
  257. # Tell all the nodes when the simulation ends
  258. #
  260. $ns_ at $opt(prestop) "$ns_ prepare-to-stop"
  261. for {set i 0} {$i < $opt(nn) } {incr i} {
  262.     $ns_ at $opt(stop).000000001 "$node_($i) reset";
  263. }
  264. $ns_ at $opt(stop).00000001 "finish"
  267. # Define node initial position in nam
  269. for {set i 0} {$i < $opt(nn)} {incr i} {
  271.     # 20 defines the node size in nam, must adjust it according to your scenario
  272.     # The function must be called after mobility model is defined
  274.     $ns_ initial_node_pos $node_($i) 20
  275. }
  277. $ns_ run
  278. }
  281. Test/diff-rate-other instproc init {} {
  282.    global opt
  283.    $self instvar ns_ topo god_
  285.     set opt(god)            on
  286.     set opt(traf) "sk-30-3-3-1-1-6-64.tcl"      ;# traffic file
  287.     set opt(topo) "scen-800x800-30-500-1.0-1"   ;# topology file
  288.     set opt(onoff)      "onoff-30-3-3-1-1-500-10.tcl" ;# node on-off
  289.     set opt(adhocRouting)   DIFFUSION/RATE       
  290.     set opt(enablePos)      "true"
  291.     set opt(enableNeg)      "true"
  292.     set opt(subTxType)      BROADCAST
  293.     set opt(orgTxType)      UNICAST
  294.     set opt(posType)        LAST
  295.     set opt(posNodeType)    END
  296.     set opt(negWinType)     COUNTER
  297.     set opt(negThrType)     ABSOLUTE
  298.     set opt(negMaxType)     FIXED
  299.     set opt(suppression)    "false"
  300.     set opt(duplicate)      "disable-duplicate"
  302.    $self next
  303. }
  304. Test/diff-rate-other instproc run {} {
  305.    global opt
  306.    $self instvar ns_ topo god_
  308.     $god_ $opt(god)
  309.     $god_ allow_to_stop
  310.     $god_ num_data_types 1
  311.     
  312.     $ns_ node-config -adhocRouting $opt(adhocRouting) 
  313.  -llType $opt(ll) 
  314.  -macType $opt(mac) 
  315.  -ifqType $opt(ifq) 
  316.  -ifqLen $opt(ifqlen) 
  317.  -antType $opt(ant) 
  318.  -propType $opt(prop) 
  319.  -phyType $opt(netif) 
  320.  -channel [new $opt(chan)] 
  321.  -topoInstance $topo 
  322.  -agentTrace ON 
  323.                  -routerTrace ON 
  324.                  -macTrace ON 
  325.  -energyModel $opt(engmodel) 
  326.  -initialEnergy $opt(initeng) 
  327.  -txPower  $opt(txPower) 
  328.  -rxPower  $opt(rxPower) 
  329.  -idlePower  $opt(idlePower)
  331.  
  332.     for {set i 0} {$i < $opt(nn) } {incr i} {
  333. set node_($i) [$ns_ node $i]
  334. $node_($i) random-motion 0 ;# disable random motion
  335.         $god_ new_node $node_($i)
  336.     }
  338.     if { $opt(topo) == "" } {
  339. puts "*** NOTE: no topology file specified."
  340.         set opt(topo) "none"
  341.     } else {
  342. puts "Loading topology file..."
  343. source $opt(topo)
  344. puts "Load complete..."
  345.     }
  347.     if { $opt(onoff) == "" } {
  348. puts "*** NOTE: no node-on-off file specified."
  349.         set opt(onoff) "none"
  350.     } else {
  351. puts "Loading node on-off file..."
  352. source $opt(onoff)
  353. puts "Load complete..."
  354.     }
  356.     if { $opt(traf) == "" } {
  357. puts "*** NOTE: no traffic file specified."
  358.         set opt(traf) "none"
  359.     } else {
  360. puts "Loading traffic file..."
  361. source $opt(traf)
  362. puts "Load complete..."
  363.     }
  365. #
  366. # Tell all the nodes when the simulation ends
  367. #
  369. $ns_ at $opt(prestop) "$ns_ prepare-to-stop"
  370. for {set i 0} {$i < $opt(nn) } {incr i} {
  371.     $ns_ at $opt(stop).000000001 "$node_($i) reset";
  372. }
  373. $ns_ at $opt(stop).00000001 "finish"
  376. # Define node initial position in nam
  378. for {set i 0} {$i < $opt(nn)} {incr i} {
  380.     # 20 defines the node size in nam, must adjust it according to your scenario
  381.     # The function must be called after mobility model is defined
  383.     $ns_ initial_node_pos $node_($i) 20
  384. }
  386. $ns_ run
  387. }
  390. Test/diff-prob instproc init {} {
  391.     global opt
  392.     $self instvar ns_ topo god_
  394.     set opt(god)            on
  395.     set opt(traf) "sk-30-1-1-1-1-6-64.tcl"      ;# traffic file
  396.     set opt(topo) "scen-800x800-30-500-1.0-1"   ;# topology file
  397.     set opt(onoff)          ""                        ;# node on-off
  398.     set opt(adhocRouting)   DIFFUSION/PROB       
  399.     set opt(enablePos)      "true"
  400.     set opt(enableNeg)      "true"
  401.     set opt(duplicate)      "enable-duplicate"
  403.     $self next
  404. }
  406. Test/diff-prob instproc run {} {
  407.     global opt
  408.     $self instvar ns_ topo god_
  410.     $god_ $opt(god)
  411.     $god_ allow_to_stop
  412.     $god_ num_data_types 1
  413.     
  414.     $ns_ node-config -adhocRouting $opt(adhocRouting) 
  415.  -llType $opt(ll) 
  416.  -macType $opt(mac) 
  417.  -ifqType $opt(ifq) 
  418.  -ifqLen $opt(ifqlen) 
  419.  -antType $opt(ant) 
  420.  -propType $opt(prop) 
  421.  -phyType $opt(netif) 
  422.  -channel [new $opt(chan)] 
  423.  -topoInstance $topo 
  424.  -agentTrace ON 
  425.                  -routerTrace ON 
  426.                  -macTrace ON 
  427.  -energyModel $opt(engmodel) 
  428.  -initialEnergy $opt(initeng) 
  429.  -txPower  $opt(txPower) 
  430.  -rxPower  $opt(rxPower) 
  431.  -idlePower  $opt(idlePower)
  433.  
  434.     for {set i 0} {$i < $opt(nn) } {incr i} {
  435. set node_($i) [$ns_ node $i]
  436. $node_($i) random-motion 0 ;# disable random motion
  437.         $god_ new_node $node_($i)
  438.     }
  440.     if { $opt(topo) == "" } {
  441. puts "*** NOTE: no topology file specified."
  442.         set opt(topo) "none"
  443.     } else {
  444. puts "Loading topology file..."
  445. source $opt(topo)
  446. puts "Load complete..."
  447.     }
  449.     if { $opt(onoff) == "" } {
  450. puts "*** NOTE: no node-on-off file specified."
  451.         set opt(onoff) "none"
  452.     } else {
  453. puts "Loading node on-off file..."
  454. source $opt(onoff)
  455. puts "Load complete..."
  456.     }
  458.     if { $opt(traf) == "" } {
  459. puts "*** NOTE: no traffic file specified."
  460.         set opt(traf) "none"
  461.     } else {
  462. puts "Loading traffic file..."
  463. source $opt(traf)
  464. puts "Load complete..."
  465.     }
  467. #
  468. # Tell all the nodes when the simulation ends
  469. #
  471. $ns_ at $opt(prestop) "$ns_ prepare-to-stop"
  472. for {set i 0} {$i < $opt(nn) } {incr i} {
  473.     $ns_ at $opt(stop).000000001 "$node_($i) reset";
  474. }
  475. $ns_ at $opt(stop).00000001 "finish"
  478. # Define node initial position in nam
  480. for {set i 0} {$i < $opt(nn)} {incr i} {
  482.     # 20 defines the node size in nam, must adjust it according to your scenario
  483.     # The function must be called after mobility model is defined
  485.     $ns_ initial_node_pos $node_($i) 20
  486. }
  488. $ns_ run
  489. }
  492. Test/omnimcast instproc init {} {
  493.    global opt
  494.    $self instvar ns_ topo god_
  496.     set opt(god)            on
  497.     set opt(traf) "sk-30-3-3-1-1-6-64.tcl"      ;# traffic file
  498.     set opt(topo) "scen-800x800-30-500-1.0-1"   ;# topology file
  499.     set opt(onoff)          ""                        ;# node on-off
  500.     set opt(adhocRouting)   OMNIMCAST       
  501.     set opt(duplicate)      "enable-duplicate"
  503.    $self next
  504. }
  505. Test/omnimcast instproc run {} {
  506.    global opt
  507.    $self instvar ns_ topo god_
  509.     $god_ $opt(god)
  510.     $god_ allow_to_stop
  511.     $god_ num_data_types 1
  512.     
  513.     $ns_ node-config -adhocRouting $opt(adhocRouting) 
  514.  -llType $opt(ll) 
  515.  -macType $opt(mac) 
  516.  -ifqType $opt(ifq) 
  517.  -ifqLen $opt(ifqlen) 
  518.  -antType $opt(ant) 
  519.  -propType $opt(prop) 
  520.  -phyType $opt(netif) 
  521.  -channel [new $opt(chan)] 
  522.  -topoInstance $topo 
  523.  -agentTrace ON 
  524.                  -routerTrace ON 
  525.                  -macTrace ON 
  526.  -energyModel $opt(engmodel) 
  527.  -initialEnergy $opt(initeng) 
  528.  -txPower  $opt(txPower) 
  529.  -rxPower  $opt(rxPower) 
  530.  -idlePower  $opt(idlePower)
  532.  
  533.     for {set i 0} {$i < $opt(nn) } {incr i} {
  534. set node_($i) [$ns_ node $i]
  535. $node_($i) random-motion 0 ;# disable random motion
  536.         $god_ new_node $node_($i)
  537.     }
  539.     if { $opt(topo) == "" } {
  540. puts "*** NOTE: no topology file specified."
  541.         set opt(topo) "none"
  542.     } else {
  543. puts "Loading topology file..."
  544. source $opt(topo)
  545. puts "Load complete..."
  546.     }
  548.     if { $opt(onoff) == "" } {
  549. puts "*** NOTE: no node-on-off file specified."
  550.         set opt(onoff) "none"
  551.     } else {
  552. puts "Loading node on-off file..."
  553. source $opt(onoff)
  554. puts "Load complete..."
  555.     }
  557.     if { $opt(traf) == "" } {
  558. puts "*** NOTE: no traffic file specified."
  559.         set opt(traf) "none"
  560.     } else {
  561. puts "Loading traffic file..."
  562. source $opt(traf)
  563. puts "Load complete..."
  564.     }
  566. #
  567. # Tell all the nodes when the simulation ends
  568. #
  570. $ns_ at $opt(prestop) "$ns_ prepare-to-stop"
  571. for {set i 0} {$i < $opt(nn) } {incr i} {
  572.     $ns_ at $opt(stop).000000001 "$node_($i) reset";
  573. }
  574. $ns_ at $opt(stop).00000001 "finish"
  577. # Define node initial position in nam
  579. for {set i 0} {$i < $opt(nn)} {incr i} {
  581.     # 20 defines the node size in nam, must adjust it according to your scenario
  582.     # The function must be called after mobility model is defined
  584.     $ns_ initial_node_pos $node_($i) 20
  585. }
  587. $ns_ run
  588. }
  591. Test/flooding instproc init {} {
  592.    global opt
  593.    $self instvar ns_ topo god_
  595.     set opt(god)            on
  596.     set opt(traf) "sk-30-3-3-1-1-6-64.tcl"      ;# traffic file
  597.     set opt(topo) "scen-800x800-30-500-1.0-1"   ;# topology file
  598.     set opt(onoff)          ""                        ;# node on-off
  599.     set opt(adhocRouting)   FLOODING       
  600.     set opt(duplicate)      "enable-duplicate"
  602.    $self next
  603. }
  604. Test/flooding instproc run {} {
  605.    global opt
  606.    $self instvar ns_ topo god_
  608.     $god_ $opt(god)
  609.     $god_ allow_to_stop
  610.     $god_ num_data_types 1
  611.     
  612.     $ns_ node-config -adhocRouting $opt(adhocRouting) 
  613.  -llType $opt(ll) 
  614.  -macType $opt(mac) 
  615.  -ifqType $opt(ifq) 
  616.  -ifqLen $opt(ifqlen) 
  617.  -antType $opt(ant) 
  618.  -propType $opt(prop) 
  619.  -phyType $opt(netif) 
  620.  -channel [new $opt(chan)] 
  621.  -topoInstance $topo 
  622.  -agentTrace ON 
  623.                  -routerTrace ON 
  624.                  -macTrace ON 
  625.  -energyModel $opt(engmodel) 
  626.  -initialEnergy $opt(initeng) 
  627.  -txPower  $opt(txPower) 
  628.  -rxPower  $opt(rxPower) 
  629.  -idlePower  $opt(idlePower)
  631.  
  632.     for {set i 0} {$i < $opt(nn) } {incr i} {
  633. set node_($i) [$ns_ node $i]
  634. $node_($i) random-motion 0 ;# disable random motion
  635.         $god_ new_node $node_($i)
  636.     }
  638.     if { $opt(topo) == "" } {
  639. puts "*** NOTE: no topology file specified."
  640.         set opt(topo) "none"
  641.     } else {
  642. puts "Loading topology file..."
  643. source $opt(topo)
  644. puts "Load complete..."
  645.     }
  647.     if { $opt(onoff) == "" } {
  648. puts "*** NOTE: no node-on-off file specified."
  649.         set opt(onoff) "none"
  650.     } else {
  651. puts "Loading node on-off file..."
  652. source $opt(onoff)
  653. puts "Load complete..."
  654.     }
  656.     if { $opt(traf) == "" } {
  657. puts "*** NOTE: no traffic file specified."
  658.         set opt(traf) "none"
  659.     } else {
  660. puts "Loading traffic file..."
  661. source $opt(traf)
  662. puts "Load complete..."
  663.     }
  665. #
  666. # Tell all the nodes when the simulation ends
  667. #
  669. $ns_ at $opt(prestop) "$ns_ prepare-to-stop"
  670. for {set i 0} {$i < $opt(nn) } {incr i} {
  671.     $ns_ at $opt(stop).000000001 "$node_($i) reset";
  672. }
  673. $ns_ at $opt(stop).00000001 "finish"
  676. # Define node initial position in nam
  678. for {set i 0} {$i < $opt(nn)} {incr i} {
  680.     # 20 defines the node size in nam, must adjust it according to your scenario
  681.     # The function must be called after mobility model is defined
  683.     $ns_ initial_node_pos $node_($i) 20
  684. }
  686. $ns_ run
  687. }
  689. proc finish {} {
  690. puts "NS EXITING ..."
  692. set ns_ [Simulator instance]
  693. set god_ [God instance]
  695. $ns_ terminate-all-agents 
  696. $god_ dump_num_send
  698. $ns_ flush-trace
  699. exit 0
  700. }
  702. proc runtest {arg} {
  703.         global quiet
  704.         set quiet 0
  706. set b [llength $arg]
  707. if {$b == 1} {
  708.         set test $arg
  709.         } elseif {$b == 2} {
  710.         set test [lindex $arg 0]
  711.             if {[lindex $arg 1] == "QUIET"} {
  712.         set quiet 1
  713.             }
  714.         } else {
  715.         usage
  716.         }
  717. switch $test {
  718.         diff-rate-default -
  719.         diff-rate-other -
  720.         diff-prob -
  721.         omnimcast -
  722. flooding {
  723.                      set t [new Test/$test]
  724.                 }
  725.                 default {
  726.              stderr "Unknown test $test"
  727.      exit 1
  728.                 }
  729.          }
  730.  $t run
  731. }
  733. global argv arg0 
  734. runtest $argv