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

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

通讯编程

开发平台：

Visual C++

test-suite-pushback.tcl：源码内容
  1. #
  2. # Copyright (c) 2000  International Computer Science Institute
  3. # All rights reserved.
  4. # 
  5. # Redistribution and use in source and binary forms, with or without
  6. # modification, are permitted provided that the following conditions
  7. # are met:
  8. # 1. Redistributions of source code must retain the above copyright
  9. #    notice, this list of conditions and the following disclaimer.
  10. # 2. Redistributions in binary form must reproduce the above copyright
  11. #    notice, this list of conditions and the following disclaimer in the
  12. #    documentation and/or other materials provided with the distribution.
  13. # 3. All advertising materials mentioning features or use of this software
  14. #    must display the following acknowledgement:
  15. #      This product includes software developed by ACIRI, the AT&T
  16. #      Center for Internet Research at ICSI (the International Computer
  17. #      Science Institute).
  18. # 4. Neither the name of ACIRI nor of ICSI may be used
  19. #    to endorse or promote products derived from this software without
  20. #    specific prior written permission.
  21. # 
  22. # THIS SOFTWARE IS PROVIDED BY ICSI AND CONTRIBUTORS ``AS IS'' AND
  23. # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  24. # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  25. # ARE DISCLAIMED.  IN NO EVENT SHALL ICSI OR CONTRIBUTORS BE LIABLE
  26. # FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  27. # DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  28. # OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  29. # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  30. # LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  31. # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  32. # SUCH DAMAGE.
  33. #
  35. set dir [pwd]
  36. catch "cd tcl/test"
  37. source misc_simple.tcl
  38. Agent/TCP set tcpTick_ 0.1
  39. # The default for tcpTick_ is being changed to reflect a changing reality.
  40. Agent/TCP set rfc2988_ false
  41. # The default for rfc2988_ is being changed to true.
  42. # FOR UPDATING GLOBAL DEFAULTS:
  43. Agent/TCP set precisionReduce_ false ;   # default changed on 2006/1/24.
  44. Agent/TCP set rtxcur_init_ 6.0 ;      # Default changed on 2006/01/21
  45. Agent/TCP set updated_rttvar_ false ;  # Variable added on 2006/1/21
  46. Agent/TCP set minrto_ 1
  47. # default changed on 10/14/2004.
  48. Queue/RED set bytes_ false              
  49. # default changed on 10/11/2004.
  50. Queue/RED set queue_in_bytes_ false
  51. # default changed on 10/11/2004.
  52. Queue/RED set q_weight_ 0.002
  53. Queue/RED set thresh_ 5 
  54. Queue/RED set maxthresh_ 15
  55. # The RED parameter defaults are being changed for automatic configuration.
  56. Agent/TCP set useHeaders_ false
  57. # The default is being changed to useHeaders_ true.
  58. Agent/TCP set windowInit_ 1
  59. # The default is being changed to 2.
  60. Agent/TCP set singledup_ 0
  61. # The default is being changed to 1
  62. catch "cd $dir"
  63. Queue/RED set gentle_ true
  64. Agent/Pushback set verbose_ false
  65. #Agent/Pushback set verbose_ true
  67. Queue/RED/Pushback set rate_limiting_ 0
  68. Agent/Pushback set enable_pushback_ 0
  70. set flowfile fairflow.tr; # file where flow data is written
  71. set flowgraphfile fairflow.xgr; # file given to graph tool 
  73. TestSuite instproc finish file {
  74. global quiet PERL
  75. $self instvar ns_ tchan_ testName_ tmpschan_ maxAggregates_
  76. # was: -s 2 -d 3 
  77.         #exec $PERL ../../bin/getrc -s 12 -d 13 all.tr | 
  78.         #  $PERL ../../bin/raw2xg -a -s 0.01 -m 90 -t $file > temp2.rands
  79. #if {$quiet == "false"} {
  80.         # exec xgraph -bb -tk -nl -m -x time -y packets temp2.rands &
  81. #}
  82.         ## now use default graphing tool to make a data file
  83.         ## if so desired
  85. if { [info exists tchan_] && $quiet == "false" } {
  86. #$self plotQueue $testName_
  87. }
  88. if { [info exists tmpschan_]} {
  89. $self finishflows $testName_ $maxAggregates_
  90. close $tmpschan_
  91. }
  92. $ns_ halt
  93. }
  95. # display graph of results
  96. #
  97. # temp.s:
  98. # time: 4.000 LinkUtilThisTime  1.002 totalLinkUtil: 1.000 totalOQPkts: 1250
  99. # fid: 1 Util: 0.124 OQdroprate: 0.320 OQpkts: 155 OQdrops: 73
  100. #
  101. TestSuite instproc finishflows {testname maxAggregate} {
  102.         global quiet
  103.         $self instvar tmpschan_ tmpqchan_ topo_ node_ ns_
  104. $self instvar packetsize_
  105.         $topo_ instvar cbqlink_ bandwidth1_
  107.         set graphfile temp.rands
  108.         set maxbytes [expr $bandwidth1_ / 8.0]
  109. set maxpkts [expr 1.0 * $maxbytes / $packetsize_]
  111.         set awkCode  {
  112. {
  113. if ($1 == 0) {time=1; oldpkts=0;}
  114. if ($1 == "time:" && $3 == "LinkUtilThisTime") {
  115. time = $2
  116. }
  117. if ($1 == "fid:" && $2==flow) {
  118.   newpkts = $8;
  119.   pkts = newpkts - oldpkts;
  120.   print time, pkts/maxpkts;
  121.   oldpkts = newpkts
  122. }}
  123.         }
  124.         set awkCodeAll {
  125. {
  126. if ($1==0) {oldpkts=0}
  127. if ($1 == "time:" && $7 == "totalOQPkts:") {
  128. time = $2;
  129.    newpkts = $8;
  130.    pkts = newpkts - oldpkts;
  131.    print time, pkts/maxpkts;
  132.    oldpkts = newpkts
  133. }}
  134.         }
  135.         set awkCodeDrop {
  136. {
  137. if ($1==0) {oldpkts = 0; olddrops = 0; time=0;}
  138. if ($5~"totalOQDrops:"){
  139.   time = $2;
  140.   pkts = $4;
  141.   drops = $6;
  142.   newpkts = pkts - oldpkts;
  143.   newdrops = drops - olddrops;
  144.   print time, newdrops/newpkts;
  145.   oldpkts = pkts; olddrops = drops;
  146. }}
  147. }
  150.         if { [info exists tmpschan_] } {
  151.                 close $tmpschan_
  152.         }
  154.         set f [open $graphfile w]
  155.         puts $f "TitleText: $testname"
  156.         puts $f "Device: Postscript"
  158.         exec rm -f temp.p
  159.         exec touch temp.p
  160. for {set i 1} {$i < $maxAggregate + 1 } {incr i} {
  161.                 exec echo "n"flow $i" >> temp.p
  162.                 exec awk $awkCode flow=$i maxpkts=$maxpkts temp.s > flows$i
  163.                 exec cat flows$i >> temp.p
  164.                 exec echo " " >> temp.p
  165.         }
  167.         exec awk $awkCodeAll maxpkts=$maxpkts temp.s > all
  168.         exec echo "n"all " >> temp.p
  169.         exec cat all >> temp.p  
  171.         exec cat temp.p >@ $f
  172.         close $f
  173.         exec awk $awkCodeDrop temp.s > temp.droprate
  174.         if {$quiet == "false"} {
  175.                 exec xgraph -bb -tk -ly 0,1 -x time -y bandwidth $graphfile &
  176.         }
  177. #       exec csh gnuplotE.com $testname
  178. #       exec csh gnuplotF.com $testname
  180.         exit 0
  181. }
  183. Class Topology
  185. Topology instproc node? num {
  186.     $self instvar node_
  187.     return $node_($num)
  188. }
  190. Class Topology/net2 -superclass Topology
  191. Topology/net2 instproc init ns {
  192.     $self instvar node_ bandwidth_ bandwidth1_
  193.     set bandwidth_ 0.5Mb
  194.     set bandwidth1_ 500000
  195.     #the destinations; declared first 
  196.     for {set i 0} {$i < 2} {incr i} {
  197.         set node_(d$i) [$ns node]
  198.     }
  200.     #the routers
  201.     for {set i 0} {$i < 4} {incr i} {
  202.         set node_(r$i) [$ns node]
  203.         #$node_(r$i) add-pushback-agent
  204.     }
  205.     $node_(r0) add-pushback-agent
  207.     #the sources
  208.     for {set i 0} {$i < 4} {incr i} {
  209.         set node_(s$i) [$ns node]
  210.     }
  212.     $self next 
  214.     $ns duplex-link $node_(s0) $node_(r0) 10Mb 2ms DropTail
  215.     $ns duplex-link $node_(s1) $node_(r0) 10Mb 3ms DropTail
  216.     $ns pushback-simplex-link $node_(r0) $node_(r1) $bandwidth_ 10ms 
  217.     $ns simplex-link $node_(r1) $node_(r0) $bandwidth_ 10ms DropTail
  218.     $ns duplex-link $node_(d0) $node_(r1) 10Mb 2ms DropTail
  219.     $ns duplex-link $node_(d1) $node_(r1) 10Mb 2ms DropTail
  221.     $ns queue-limit $node_(r0) $node_(r1) 100
  222.     $ns queue-limit $node_(r1) $node_(r0) 100
  223. }   
  225. Class Topology/net3 -superclass Topology
  226. Topology/net3 instproc init ns {
  227.     $self next 
  228.     $self instvar node_ bandwidth_ bandwidth1_
  229.     set bandwidth_ 1.0Mb
  230.     set bandwidth1_ 1000000
  231.     #the destinations; declared first 
  232.     for {set i 0} {$i < 2} {incr i} {
  233.         set node_(d$i) [$ns node]
  234.     }
  236.     #the routers
  237.     for {set i 0} {$i < 4} {incr i} {
  238.         set node_(r$i) [$ns node]
  239. $node_(r$i) add-pushback-agent
  240.     }
  242.     #the sources
  243.     for {set i 0} {$i < 4} {incr i} {
  244.         set node_(s$i) [$ns node]
  245. set pushback($i) [$node_(s$i) add-pushback-agent]
  246.     }
  249.     $ns pushback-duplex-link $node_(s0) $node_(r2) 10Mb 2ms 
  250.     #$ns duplex-link $node_(s0) $node_(r2) 10Mb 2ms DropTail
  251.     $ns pushback-duplex-link $node_(s1) $node_(r2) 10Mb 3ms
  252.     #$ns duplex-link $node_(s1) $node_(r3) 10Mb 3ms DropTail
  253.     $ns pushback-duplex-link $node_(s2) $node_(r3) 10Mb 3ms
  254.     $ns pushback-duplex-link $node_(s3) $node_(r3) 10Mb 3ms
  255.     $ns pushback-duplex-link $node_(r0) $node_(r1) $bandwidth_ 10ms 
  256.     $ns pushback-duplex-link $node_(r2) $node_(r0) 10Mb 10ms 
  257.     $ns pushback-duplex-link $node_(r3) $node_(r0) 10Mb 10ms 
  258.     #
  259.     $ns pushback-simplex-link $node_(r1) $node_(d0) 10Mb 2ms
  260.     $ns simplex-link $node_(d0) $node_(r1) 10Mb 2ms DropTail
  261.     #$ns duplex-link $node_(d0) $node_(r1) 10Mb 2ms DropTail
  262.     #
  263.     $ns pushback-simplex-link $node_(r1) $node_(d1) 10Mb 2ms 
  264.     $ns simplex-link $node_(d1) $node_(r1) 10Mb 2ms DropTail
  265.     #$ns duplex-link $node_(d1) $node_(r1) 10Mb 2ms DropTail
  267.     $ns queue-limit $node_(r0) $node_(r1) 100
  268.     $ns queue-limit $node_(r1) $node_(r0) 100
  269. }   
  271. TestSuite instproc new-tcp {source dest size window fid startTime} {
  272.     $self instvar ns_
  274.     set tcp [$ns_ create-connection TCP/Sack1 $source TCPSink/Sack1 $dest $fid]
  275.     $tcp set window_ $window
  276.     $tcp set tcpTick_ 0.01
  278.     if {$size > 0}  {
  279.         $tcp set packetSize_ $size
  280.     }
  281.     set ftp [$tcp attach-source FTP]
  282.     #if {$maxPkts > 0} {$ftp set maxpkts_ $maxPkts}
  283.     $ns_ at $startTime "$ftp start"
  284. }
  286. TestSuite instproc new-cbr {src dst pktSize rate fid startTime {stopTime -1}} {
  287.     $self instvar ns_
  288.     set udp [$ns_ create-connection UDP $src Null $dst $fid]
  289.     set cbr [$udp attach-app Traffic/CBR]
  290.     $cbr set packetSize_ $pktSize
  291.     $cbr set rate_ $rate
  292.     $cbr set random_ 1
  294.     $ns_ at $startTime "$cbr start"
  295.     if {$stopTime != -1} {
  296.         $ns_ at $stopTime "$cbr set rate_ 1000"
  297.     }
  298.     return $cbr
  299. }
  301. #    
  302. # Arrange for time to be printed every
  303. # $interval seconds of simulation time
  304. #    
  305. TestSuite instproc statsDump { interval fmon packetsize oldpkts } {
  306.         global quiet 
  307.         $self instvar dump_inst_ ns_ tmpschan_ f
  308. $self instvar maxAggregates_
  309. set dumpfile temp.s
  310.         if ![info exists dump_inst_] {
  311. $self instvar tmpschan_ f
  312.                 set dump_inst_ 1
  313. set f [open $dumpfile w]
  314. set tmpschan_ $f
  315.                 $ns_ at 0.0 "$self statsDump $interval $fmon $packetsize $oldpkts"
  316.                 return
  317.         }
  318.         set time [$ns_ now]
  319.         puts $f "$time"
  320.         set newtime [expr [$ns_ now] + $interval]
  321. ## $quiet == "false"
  322.         if { $time > 0} {
  323.             set totalPkts [$fmon set pdepartures_]
  324.             set totalArrivals [$fmon set parrivals_]
  325.     set totalDrops [$fmon set pdrops_]
  326.             set packets [expr $totalPkts - $oldpkts]
  327.             set oldpkts $totalPkts
  328.          set linkBps [ expr 500000/8 ]
  329.          set recentUtil [expr (1.0*$packets*$packetsize)/($interval*$linkBps)]
  330.          set totalLinkUtil [expr (1.0*$totalPkts*$packetsize)/($time*$linkBps)]
  331.             set now [$ns_ now]
  332.     puts $f "time: [format %.3f $now] totalOQArrivals: $totalArrivals totalOQDrops: $totalDrops"
  333.          puts $f "time: [format %.3f $now] LinkUtilThisTime  [format %.3f $recentUtil] totalLinkUtil: [format %.3f $totalLinkUtil] totalOQPkts: $totalPkts" 
  334.          set fcl [$fmon classifier];
  335.     ## this 
  336.     for {set i 1} {$i < $maxAggregates_ + 1} {incr i} {
  337.              set flow [$fcl lookup auto 0 0 $i]
  338. if {$flow != "" } {
  339.   set flowpkts($flow) [$flow set pdepartures_]
  340.                set flowutil [expr (1.0*$flowpkts($flow)*$packetsize)/($time*$linkBps)]
  341.   set flowdrops($flow) [$flow set pdrops_]
  342.   if {$flowpkts($flow) + $flowdrops($flow) > 0} {
  343.                  set flowdroprate [expr (1.0*$flowdrops($flow)/($flowpkts($flow) + $flowdrops($flow)))] 
  344.                   } else { set flowdroprate 0 }
  345.   puts $f "fid: $i Util: [format %.3f $flowutil] OQdroprate: [format %.3f $flowdroprate] OQpkts: [format %d $flowpkts($flow)] OQdrops: [format %d $flowdrops($flow)]"
  346. }
  347.     }
  348.         }
  349.         $ns_ at $newtime "$self statsDump $interval $fmon $packetsize $oldpkts"
  350. }
  352. TestSuite instproc setup {} {
  353.     $self instvar ns_ node_ testName_ net_ topo_ cbr_ cbr2_ packetsize_
  354.     $self instvar maxAggregates_
  356.     set stoptime 100.0
  357.     #set stoptime 5.0
  358.     #set dumptime 5.0
  359.     set dumptime 1.0
  360.     set stoptime1 [expr $stoptime + 1.0]
  361.     set packetsize_ 200
  362.     Application/Traffic/CBR set random_ 0
  363.     Application/Traffic/CBR set packetSize_ $packetsize_
  365.     set slink [$ns_ link $node_(r0) $node_(r1)]; # link to collect stats on
  366.     set fmon [$ns_ makeflowmon Fid]
  367.     $ns_ attach-fmon $slink $fmon
  369.     set udp1 [$ns_ create-connection UDP $node_(s0) Null $node_(d0) 1]
  370.     set cbr1 [$udp1 attach-app Traffic/CBR]
  371.     $cbr1 set rate_ 0.12Mb
  372.     $cbr1 set random_ 0.005
  374.     set udp2 [$ns_ create-connection UDP $node_(s1) Null $node_(d1) 2]
  375.     set cbr2_ [$udp2 attach-app Traffic/CBR]
  376.     $cbr2_ set rate_ 0.08Mb
  377.     $cbr2_ set random_ 0.005
  379.     # bad traffic
  380.     set udp [$ns_ create-connection UDP $node_(s0) Null $node_(d1) 3]
  381.     set cbr_ [$udp attach-app Traffic/CBR]
  382.     $cbr_ set rate_ 0.5Mb
  383.     $cbr_ set random_ 0.001
  384.     $ns_ at 0.0 "$cbr_ start"
  386.     set udp4 [$ns_ create-connection UDP $node_(s1) Null $node_(d0) 4]
  387.     set cbr4 [$udp4 attach-app Traffic/CBR]
  388.     $cbr4 set rate_ 0.07Mb
  389.     $cbr4 set random_ 0.005
  391.     set udp5 [$ns_ create-connection UDP $node_(s0) Null $node_(d0) 5]
  392.     set cbr5 [$udp5 attach-app Traffic/CBR]
  393.     $cbr5 set rate_ 0.06Mb
  394.     $cbr5 set random_ 0.005
  396.     set udp6 [$ns_ create-connection UDP $node_(s0) Null $node_(d0) 6]
  397.     set cbr6 [$udp6 attach-app Traffic/CBR]
  398.     $cbr6 set rate_ 0.05Mb
  399.     $cbr6 set random_ 0.005
  402.     set maxAggregates_ 6
  404.     $ns_ at 0.2 "$cbr1 start"
  405.     $ns_ at 0.1 "$cbr2_ start"
  406.     $ns_ at 0.3 "$cbr4 start"
  407.     $ns_ at 0.4 "$cbr5 start"
  409.     $self statsDump $dumptime $fmon $packetsize_ 0
  410.     # trace only the bottleneck link
  411.     #$self traceQueues $node_(r1) [$self openTrace $stoptime $testName_]
  412.     $ns_ at $stoptime1 "$self cleanupAll $testName_"
  413. }
  415. #
  416. # one complete test with CBR flows only, no pushback and no ACC.
  417. #
  418. Class Test/cbrs -superclass TestSuite
  419. Test/cbrs instproc init {} {
  420.     $self instvar net_ test_
  421.     set net_ net2 
  422.     set test_ cbrs
  423.     $self next noTraceFiles
  424. }
  425. Test/cbrs instproc run {} {
  426.     $self instvar ns_ node_ testName_ net_ topo_
  427.     $self setTopo
  428.     $self setup
  429.     $ns_ run
  430. }
  432. #
  433. # one complete test with CBR flows only, with ACC.
  434. #
  435. Class Test/cbrs-acc -superclass TestSuite
  436. Test/cbrs-acc instproc init {} {
  437.     $self instvar net_ test_
  438.     set net_ net2 
  439.     set test_ cbrs-acc
  440.     Queue/RED/Pushback set rate_limiting_ 1
  441.     Test/cbrs-acc instproc run {} [Test/cbrs info instbody run]
  442.     $self next noTraceFiles
  443. }
  445. #
  446. # one complete test with CBR flows only, with no ACC
  447. # CBR flows flows starting and stopping 
  448. #
  449. Class Test/cbrs1 -superclass TestSuite
  450. Test/cbrs1 instproc init {} {
  451.     $self instvar net_ test_
  452.     set net_ net2 
  453.     set test_ cbrs1
  454.     $self next noTraceFiles
  455. }
  456. Test/cbrs1 instproc run {} {
  457.     $self instvar ns_ node_ testName_ net_ topo_ cbr_ cbr2_
  458.     $self setTopo
  459.     $self setup
  460.     $ns_ at 10.0 "$cbr_ set rate_ 0.1Mb"
  461.     $ns_ at 15.0 "$cbr2_ set rate_ 0.5Mb"
  462.     $ns_ run
  463. }
  465. #
  466. # one complete test with CBR flows only, with ACC 
  467. # CBR flows flows starting and stopping 
  468. #
  469. Class Test/cbrs-acc1 -superclass TestSuite
  470. Test/cbrs-acc1 instproc init {} {
  471.     $self instvar net_ test_
  472.     set net_ net2 
  473.     set test_ cbrs-acc1
  474.     Queue/RED/Pushback set rate_limiting_ 1
  475.     Test/cbrs-acc1 instproc run {} [Test/cbrs1 info instbody run]
  476.     $self next noTraceFiles
  477. }
  479. TestSuite instproc setup1 {} {
  480.     $self instvar ns_ node_ testName_ net_ topo_ cbr_ cbr2_ packetsize_
  481.     $self instvar maxAggregates_
  483.     set stoptime 50.0
  484.     #set dumptime 5.0
  485.     set dumptime 1.0
  486.     #set stoptime 5.0
  487.     set stoptime1 [expr $stoptime + 1.0]
  488.     set packetsize_ 200
  489.     Application/Traffic/CBR set random_ 0.001
  490.     Application/Traffic/CBR set packetSize_ $packetsize_
  492.     set slink [$ns_ link $node_(r0) $node_(r1)]; # link to collect stats on
  493.     set fmon [$ns_ makeflowmon Fid]
  494.     $ns_ attach-fmon $slink $fmon
  496.     $self new-cbr $node_(s0) $node_(d0) $packetsize_ 0.12Mb 1 0.1 
  497.     $self new-cbr $node_(s1) $node_(d1) $packetsize_ 0.08Mb 2 0.2
  498.     $self new-cbr $node_(s1) $node_(d1) $packetsize_ 0.07Mb 3 0.3
  499.     $self new-cbr $node_(s1) $node_(d1) $packetsize_ 0.06Mb 4 0.4
  500.     $self new-cbr $node_(s1) $node_(d1) $packetsize_ 0.04Mb 5 0.5
  502.     # bad traffic
  503.     set cbr_ [$self new-cbr $node_(s0) $node_(d1) $packetsize_ 0.09Mb 5 0.0]
  505.     set maxAggregates_ 5
  507.     $self new-cbr $node_(s0) $node_(d1) $packetsize_ 0.1Mb 5 13.0 39.0
  508.     $self new-cbr $node_(s0) $node_(d1) $packetsize_ 0.1Mb 5 14.0 38.0
  509.     $self new-cbr $node_(s0) $node_(d1) $packetsize_ 0.05Mb 5 15.0 37.0
  510.     $self new-cbr $node_(s0) $node_(d1) $packetsize_ 0.05Mb 5 16.0 36.0
  511.     $self new-cbr $node_(s0) $node_(d1) $packetsize_ 0.05Mb 5 17.0 35.0
  512.     $self new-cbr $node_(s0) $node_(d1) $packetsize_ 0.05Mb 5 18.0 34.0
  513.     $self new-cbr $node_(s0) $node_(d1) $packetsize_ 0.05Mb 5 19.0 33.0
  514.     $self new-cbr $node_(s0) $node_(d1) $packetsize_ 0.05Mb 5 20.0 32.0
  515.     $self new-cbr $node_(s0) $node_(d1) $packetsize_ 0.05Mb 5 21.0 31.0
  516.     $self new-cbr $node_(s0) $node_(d1) $packetsize_ 0.05Mb 5 22.0 30.0
  517.     $self new-cbr $node_(s0) $node_(d1) $packetsize_ 0.05Mb 5 23.0 29.0
  518.     $self new-cbr $node_(s0) $node_(d1) $packetsize_ 0.05Mb 5 24.0 28.0
  519.     $self new-cbr $node_(s0) $node_(d1) $packetsize_ 0.05Mb 5 25.0 27.0
  521.     $self statsDump $dumptime $fmon $packetsize_ 0
  522.     # trace only the bottleneck link
  523.     #$self traceQueues $node_(r1) [$self openTrace $stoptime $testName_]
  524.     $ns_ at $stoptime1 "$self cleanupAll $testName_"
  525. }
  527. #
  528. # one complete test with CBR flows only, no pushback and no ACC.
  529. # Slowly-growing bad CBR aggregate.
  530. #
  531. Class Test/slowgrow -superclass TestSuite
  532. Test/slowgrow instproc init {} {
  533.     $self instvar net_ test_
  534.     set net_ net2 
  535.     set test_ slowgrow
  536.     $self next noTraceFiles
  537. }
  538. Test/slowgrow instproc run {} {
  539.     $self instvar ns_ node_ testName_ net_ topo_
  540.     $self setTopo
  541.     $self setup1
  542.     $ns_ run
  543. }
  545. #
  546. # one complete test with CBR flows only, with ACC.
  547. # Slowly-growing bad CBR aggregate.
  548. #
  549. Class Test/slowgrow-acc -superclass TestSuite
  550. Test/slowgrow-acc instproc init {} {
  551.     $self instvar net_ test_
  552.     set net_ net2 
  553.     set test_ slowgrow-acc
  554.     Queue/RED/Pushback set rate_limiting_ 1
  555.     Test/slowgrow-acc instproc run {} [Test/slowgrow info instbody run]
  556.     $self next noTraceFiles
  557. }
  559. ######################################################33
  561. TestSuite instproc setup6 {} {
  562.     $self instvar ns_ node_ testName_ net_ topo_ cbr_ cbr2_ packetsize_
  563.     $self instvar maxAggregates_
  565.     set stoptime 50.0
  566.     #set dumptime 5.0
  567.     set dumptime 1.0
  568.     #set stoptime 5.0
  569.     set stoptime1 [expr $stoptime + 1.0]
  570.     set packetsize_ 500
  571.     Application/Traffic/CBR set random_ 0
  572.     Application/Traffic/CBR set packetSize_ $packetsize_
  574.     set slink [$ns_ link $node_(r0) $node_(r1)]; # link to collect stats on
  575.     set fmon [$ns_ makeflowmon Fid]
  576.     $ns_ attach-fmon $slink $fmon
  577.     Application/Traffic/CBR set random_ 0.001 
  579.     $self new-cbr $node_(s0) $node_(d0) 500 0.12Mb 1 0.1 
  580.     $self new-tcp $node_(s0) $node_(d0) 500 10 2 1.2
  581.     $self new-tcp $node_(s1) $node_(d1) 500 10 3 2.3
  582.     $self new-tcp $node_(s1) $node_(d1) 500 10 3 3.4
  583.     $self new-tcp $node_(s0) $node_(d1) 500 10 4 5.6
  584.     $self new-tcp $node_(s0) $node_(d1) 500 10 4 6.7
  585.     $self new-tcp $node_(s1) $node_(d0) 500 20 4 7.7
  587.     # bad traffic
  588.     set cbr_ [$self new-cbr $node_(s0) $node_(d1) 500 0.1Mb 5 0.0]
  589.     $cbr_ set random_ 0.001
  591.     set maxAggregates_ 6
  593.     $self new-cbr $node_(s0) $node_(d1) 500 0.05Mb 5 13.0 39.0
  594.     $self new-cbr $node_(s0) $node_(d1) 500 0.05Mb 5 14.0 38.0
  595.     $self new-cbr $node_(s0) $node_(d1) 500 0.05Mb 5 15.0 37.0
  596.     $self new-cbr $node_(s0) $node_(d1) 500 0.05Mb 5 16.0 36.0
  597.     $self new-cbr $node_(s0) $node_(d1) 500 0.05Mb 5 17.0 35.0
  598.     $self new-cbr $node_(s0) $node_(d1) 500 0.05Mb 5 18.0 34.0
  599.     $self new-cbr $node_(s0) $node_(d1) 500 0.05Mb 5 19.0 33.0
  600.     $self new-cbr $node_(s0) $node_(d1) 500 0.05Mb 5 20.0 32.0
  601.     $self new-cbr $node_(s0) $node_(d1) 500 0.05Mb 5 21.0 31.0
  602.     $self new-cbr $node_(s0) $node_(d1) 500 0.05Mb 5 22.0 30.0
  603.     $self new-cbr $node_(s0) $node_(d1) 500 0.05Mb 5 23.0 29.0
  604.     $self new-cbr $node_(s0) $node_(d1) 500 0.05Mb 5 24.0 28.0
  605.     $self new-cbr $node_(s0) $node_(d1) 500 0.05Mb 5 25.0 27.0
  607.     $self statsDump $dumptime $fmon $packetsize_ 0
  608.     # trace only the bottleneck link
  609.     #$self traceQueues $node_(r1) [$self openTrace $stoptime $testName_]
  610.     $ns_ at $stoptime1 "$self cleanupAll $testName_"
  611. }
  613. #
  614. # Slowly-growing bad CBR aggregate, competing TCP and CBR traffic, no ACC.
  615. #
  616. Class Test/demo -superclass TestSuite
  617. Test/demo instproc init {} {
  618.     $self instvar net_ test_
  619.     set net_ net2 
  620.     set test_ demo
  621.     $self next noTraceFiles
  622. }
  623. Test/demo instproc run {} {
  624.     $self instvar ns_ node_ testName_ net_ topo_
  625.     $self setTopo
  626.     $self setup6
  627.     $ns_ run
  628. }
  630. #
  631. # Slowly-growing bad CBR aggregate, competing TCP and CBR traffic, local ACC.
  632. #
  633. Class Test/demo-acc -superclass TestSuite
  634. Test/demo-acc instproc init {} {
  635.     $self instvar net_ test_
  636.     set net_ net2 
  637.     set test_ demo-acc
  638.     Queue/RED/Pushback set rate_limiting_ 1
  639.     Test/demo-acc instproc run {} [Test/demo info instbody run]
  640.     $self next noTraceFiles
  641. }
  643. ######################################################33
  645. TestSuite instproc manytcps {starttime} {
  646.     $self instvar ns_ node_
  647.     set tcp1 [$ns_ create-connection TCP/Sack1 $node_(s0) TCPSink/Sack1 $node_(d0) 1 ]
  648.     $tcp1 set window_ 10
  649.     set ftp1 [$tcp1 attach-app FTP]
  650.     $ns_ at $starttime.0 "$ftp1 start"
  652.     set tcp2 [$ns_ create-connection TCP/Sack1 $node_(s1) TCPSink/Sack1 $node_(d0) 2 ]
  653.     $tcp2 set window_ 12
  654.     set ftp2 [$tcp2 attach-app FTP]
  655.     $ns_ at $starttime.1 "$ftp2 start"
  657.     set tcp3 [$ns_ create-connection TCP/Sack1 $node_(s0) TCPSink/Sack1 $node_(d1) 3 ]
  658.     $tcp3 set window_ 15
  659.     set ftp3 [$tcp3 attach-app FTP]
  660.     $ns_ at $starttime.2 "$ftp3 start"
  662.     set tcp4 [$ns_ create-connection TCP/Sack1 $node_(s0) TCPSink/Sack1 $node_(d0) 4 ]
  663.     $tcp4 set window_ 8
  664.     set ftp4 [$tcp4 attach-app FTP]
  665.     $ns_ at $starttime.3 "$ftp4 start"
  667.     set tcp5 [$ns_ create-connection TCP/Sack1 $node_(s0) TCPSink/Sack1 $node_(d1) 5 ]
  668.     $tcp5 set window_ 4
  669.     set ftp5 [$tcp5 attach-app FTP]
  670.     $ns_ at $starttime.4 "$ftp5 start"
  671. }
  673. TestSuite instproc badtcps {} {
  674.     $self instvar ns_ node_
  675.     Agent/TCP set window_ 100
  676.     # bad traffic
  678.     set tcp [$ns_ create-connection TCP/Sack1 $node_(s1) TCPSink/Sack1 $node_(d0) 5 ]
  679.     $tcp set window_ 1000
  680.     set ftp [$tcp attach-app FTP]
  681.     $ns_ at 11.0 "$ftp start"
  682.     $ns_ at 50.0 "$ftp stop"
  684.     set tcp1 [$ns_ create-connection TCP/Sack1 $node_(s1) TCPSink/Sack1 $node_(d0) 5 ]
  685.     $tcp1 set window_ 1000
  686.     set ftp1 [$tcp attach-app FTP]
  687.     $ns_ at 12.0 "$ftp1 start"
  688.     $ns_ at 49.0 "$ftp1 stop"
  690.     set tcp2 [$ns_ create-connection TCP/Sack1 $node_(s1) TCPSink/Sack1 $node_(d0) 5 ]
  691.     $tcp2 set window_ 1000
  692.     set ftp2 [$tcp attach-app FTP]
  693.     $ns_ at 13.0 "$ftp2 start"
  694.     $ns_ at 48.0 "$ftp2 stop"
  696.     set tcp3 [$ns_ create-connection TCP/Sack1 $node_(s1) TCPSink/Sack1 $node_(d0) 5 ]
  697.     $tcp3 set window_ 1000
  698.     set ftp3 [$tcp attach-app FTP]
  699.     $ns_ at 14.0 "$ftp3 start"
  700.     $ns_ at 47.0 "$ftp3 stop"
  702.     set tcp4 [$ns_ create-connection TCP/Sack1 $node_(s1) TCPSink/Sack1 $node_(d0) 5 ]
  703.     $tcp4 set window_ 1000
  704.     set ftp4 [$tcp attach-app FTP]
  705.     $ns_ at 15.0 "$ftp4 start"
  706.     $ns_ at 46.0 "$ftp4 stop"
  708.     set tcp [$ns_ create-connection TCP/Sack1 $node_(s1) TCPSink/Sack1 $node_(d0) 5 ]
  709.     set ftp [$tcp attach-app FTP]
  710.     $ns_ at 16.0 "$ftp start"
  711.     $ns_ at 45.0 "$ftp stop"
  713.     set tcp1 [$ns_ create-connection TCP/Sack1 $node_(s1) TCPSink/Sack1 $node_(d0) 5 ]
  714.     set ftp1 [$tcp attach-app FTP]
  715.     $ns_ at 17.0 "$ftp1 start"
  716.     $ns_ at 44.0 "$ftp1 stop"
  718.     set tcp2 [$ns_ create-connection TCP/Sack1 $node_(s1) TCPSink/Sack1 $node_(d0) 5 ]
  719.     set ftp2 [$tcp attach-app FTP]
  720.     $ns_ at 18.0 "$ftp2 start"
  721.     $ns_ at 43.0 "$ftp2 stop"
  723.     set tcp3 [$ns_ create-connection TCP/Sack1 $node_(s1) TCPSink/Sack1 $node_(d0) 5 ]
  724.     set ftp3 [$tcp attach-app FTP]
  725.     $ns_ at 19.0 "$ftp3 start"
  726.     $ns_ at 42.0 "$ftp3 stop"
  728.     set tcp4 [$ns_ create-connection TCP/Sack1 $node_(s1) TCPSink/Sack1 $node_(d0) 5 ]
  729.     set ftp4 [$tcp attach-app FTP]
  730.     $ns_ at 20.0 "$ftp4 start"
  731.     $ns_ at 41.0 "$ftp4 stop"
  733.     set tcp [$ns_ create-connection TCP/Sack1 $node_(s1) TCPSink/Sack1 $node_(d0) 5 ]
  734.     $tcp set window_ 1000
  735.     set ftp [$tcp attach-app FTP]
  736.     $ns_ at 21.0 "$ftp start"
  737.     $ns_ at 40.0 "$ftp stop"
  739.     set tcp1 [$ns_ create-connection TCP/Sack1 $node_(s1) TCPSink/Sack1 $node_(d0) 5 ]
  740.     $tcp1 set window_ 1000
  741.     set ftp1 [$tcp attach-app FTP]
  742.     $ns_ at 22.0 "$ftp1 start"
  743.     $ns_ at 39.0 "$ftp1 stop"
  745.     set tcp2 [$ns_ create-connection TCP/Sack1 $node_(s1) TCPSink/Sack1 $node_(d0) 5 ]
  746.     $tcp2 set window_ 1000
  747.     set ftp2 [$tcp attach-app FTP]
  748.     $ns_ at 23.0 "$ftp2 start"
  749.     $ns_ at 38.0 "$ftp2 stop"
  751.     set tcp3 [$ns_ create-connection TCP/Sack1 $node_(s1) TCPSink/Sack1 $node_(d0) 5 ]
  752.     $tcp3 set window_ 1000
  753.     set ftp3 [$tcp attach-app FTP]
  754.     $ns_ at 24.0 "$ftp3 start"
  755.     $ns_ at 37.0 "$ftp3 stop"
  757.     set tcp4 [$ns_ create-connection TCP/Sack1 $node_(s1) TCPSink/Sack1 $node_(d0) 5 ]
  758.     $tcp4 set window_ 1000
  759.     set ftp4 [$tcp attach-app FTP]
  760.     $ns_ at 25.0 "$ftp4 start"
  761.     $ns_ at 36.0 "$ftp4 stop"
  763. }
  765. TestSuite instproc badcbr {} {
  766.     $self instvar ns_ node_
  768.     set udp [$ns_ create-connection UDP $node_(s0) Null $node_(d1) 5]
  769.     set cbr_ [$udp attach-app Traffic/CBR]
  770.     $cbr_ set rate_ 0.1Mb
  771.     $cbr_ set random_ 0.001
  773.     $ns_ at 0.0 "$cbr_ start"
  774.     $ns_ at 11.0 "$cbr_ set rate_ 0.15Mb"
  775.     $ns_ at 12.0 "$cbr_ set rate_ 0.2Mb"
  776.     $ns_ at 13.0 "$cbr_ set rate_ 0.25Mb"
  777.     $ns_ at 14.0 "$cbr_ set rate_ 0.3Mb"
  778.     $ns_ at 15.0 "$cbr_ set rate_ 0.35Mb"
  779.     $ns_ at 16.0 "$cbr_ set rate_ 0.4Mb"
  780.     $ns_ at 17.0 "$cbr_ set rate_ 0.45Mb"
  781.     $ns_ at 18.0 "$cbr_ set rate_ 0.5Mb"
  782.     $ns_ at 19.0 "$cbr_ set rate_ 0.55Mb"
  783.     $ns_ at 20.0 "$cbr_ set rate_ 0.6Mb"
  784.     $ns_ at 21.0 "$cbr_ set rate_ 0.65Mb"
  785.     $ns_ at 22.0 "$cbr_ set rate_ 0.7Mb"
  786.     $ns_ at 23.0 "$cbr_ set rate_ 0.75Mb"
  787.     $ns_ at 24.0 "$cbr_ set rate_ 0.8Mb"
  788.     $ns_ at 25.0 "$cbr_ set rate_ 0.855Mb"
  789.     $ns_ at 37.0 "$cbr_ set rate_ 0.8Mb"
  790.     $ns_ at 37.0 "$cbr_ set rate_ 0.75Mb"
  791.     $ns_ at 38.0 "$cbr_ set rate_ 0.7Mb"
  792.     $ns_ at 39.0 "$cbr_ set rate_ 0.65Mb"
  793.     $ns_ at 40.0 "$cbr_ set rate_ 0.6Mb"
  794.     $ns_ at 41.0 "$cbr_ set rate_ 0.55Mb"
  795.     $ns_ at 42.0 "$cbr_ set rate_ 0.5Mb"
  796.     $ns_ at 43.0 "$cbr_ set rate_ 0.45Mb"
  797.     $ns_ at 44.0 "$cbr_ set rate_ 0.4Mb"
  798.     $ns_ at 45.0 "$cbr_ set rate_ 0.35Mb"
  799.     $ns_ at 46.0 "$cbr_ set rate_ 0.3Mb"
  800.     $ns_ at 47.0 "$cbr_ set rate_ 0.25Mb"
  801.     $ns_ at 48.0 "$cbr_ set rate_ 0.2Mb"
  802.     $ns_ at 49.0 "$cbr_ set rate_ 0.15Mb"
  803.     $ns_ at 50.0 "$cbr_ set rate_ 0.1Mb"
  804. }
  806. TestSuite instproc setup4 {} {
  807.     $self instvar ns_ node_ testName_ net_ topo_ cbr_ cbr2_ packetsize_
  808.     $self instvar maxAggregates_
  810.     set stoptime 60.0
  811.     #set dumptime 5.0
  812.     set dumptime 1.0
  813.     #set stoptime 5.0
  814.     set stoptime1 [expr $stoptime + 1.0]
  815.     set packetsize_ 200
  816.     Application/Traffic/CBR set random_ 0
  817.     Application/Traffic/CBR set packetSize_ $packetsize_
  818.     Agent/TCP set packetSize_ $packetsize_
  820.     set slink [$ns_ link $node_(r0) $node_(r1)]; # link to collect stats on
  821.     set fmon [$ns_ makeflowmon Fid]
  822.     $ns_ attach-fmon $slink $fmon
  824.     $self manytcps 0
  825.     set maxAggregates_ 6
  826.     $self badcbr
  828.     $self statsDump $dumptime $fmon $packetsize_ 0
  829.     # trace only the bottleneck link
  830.     #$self traceQueues $node_(r1) [$self openTrace $stoptime $testName_]
  831.     $ns_ at $stoptime1 "$self cleanupAll $testName_"
  832. }
  834. #
  835. # Slowly-growing CBR aggregate competing against small TCP aggregates.  
  836. # No ACC.
  837. #
  838. Class Test/tcp -superclass TestSuite
  839. Test/tcp instproc init {} {
  840.     $self instvar net_ test_
  841.     set net_ net2 
  842.     set test_ tcp
  843.     $self next noTraceFiles
  844. }
  845. Test/tcp instproc run {} {
  846.     $self instvar ns_ node_ testName_ net_ topo_
  847.     $self setTopo
  848.     $self setup4
  849.     $ns_ run
  850. }
  852. #
  853. # Slowly-growing CBR aggregate competing against small TCP aggregates.  
  854. # No pushback, but with local ACC.
  855. #
  856. Class Test/tcp-acc -superclass TestSuite
  857. Test/tcp-acc instproc init {} {
  858.     $self instvar net_ test_
  859.     set net_ net2 
  860.     set test_ tcp-acc
  861.     Queue/RED/Pushback set rate_limiting_ 1
  862.     Test/tcp-acc instproc run {} [Test/tcp info instbody run]
  863.     $self next noTraceFiles
  864. }
  866. TestSuite instproc setup4a {} {
  867.     $self instvar ns_ node_ testName_ net_ topo_ cbr_ cbr2_ packetsize_
  868.     $self instvar maxAggregates_
  870.     set stoptime 60.0
  871.     #set dumptime 5.0
  872.     set dumptime 1.0
  873.     #set stoptime 5.0
  874.     set stoptime1 [expr $stoptime + 1.0]
  875.     set packetsize_ 200
  876.     Application/Traffic/CBR set random_ 0
  877.     Application/Traffic/CBR set packetSize_ $packetsize_
  878.     Agent/TCP set packetSize_ $packetsize_
  880.     set slink [$ns_ link $node_(r0) $node_(r1)]; # link to collect stats on
  881.     set fmon [$ns_ makeflowmon Fid]
  882.     $ns_ attach-fmon $slink $fmon
  884.     $self manytcps 0
  885.     $self manytcps 1
  886.     $self manytcps 2
  887.     $self manytcps 3
  888.     $self manytcps 4
  889.     $self manytcps 5
  891.     set maxAggregates_ 6
  892.     $self badcbr
  894.     $self statsDump $dumptime $fmon $packetsize_ 0
  895.     # trace only the bottleneck link
  896.     #$self traceQueues $node_(r1) [$self openTrace $stoptime $testName_]
  897.     $ns_ at $stoptime1 "$self cleanupAll $testName_"
  898. }
  900. #
  901. # Slowly-growing CBR aggregate competing against large TCP aggregates.  
  902. # No ACC.
  903. #
  904. Class Test/tcp1 -superclass TestSuite
  905. Test/tcp1 instproc init {} {
  906.     $self instvar net_ test_
  907.     set net_ net2 
  908.     set test_ tcp1
  909.     $self next noTraceFiles
  910. }
  911. Test/tcp1 instproc run {} {
  912.     $self instvar ns_ node_ testName_ net_ topo_
  913.     $self setTopo
  914.     $self setup4a
  915.     $ns_ run
  916. }
  918. #
  919. # Slowly-growing CBR aggregate competing against large TCP aggregates.
  920. # No pushback, but with local ACC.
  921. #
  922. Class Test/tcp1-acc -superclass TestSuite
  923. Test/tcp1-acc instproc init {} {
  924.     $self instvar net_ test_
  925.     set net_ net2 
  926.     set test_ tcp1-acc
  927.     Queue/RED/Pushback set rate_limiting_ 1
  928.     Test/tcp1-acc instproc run {} [Test/tcp1 info instbody run]
  929.     $self next noTraceFiles
  930. }
  932. TestSuite instproc setup4b {} {
  933.     $self instvar ns_ node_ testName_ net_ topo_ cbr_ cbr2_ packetsize_
  934.     $self instvar maxAggregates_
  936.     set stoptime 60.0
  937.     #set dumptime 5.0
  938.     set dumptime 1.0
  939.     #set stoptime 5.0
  940.     set stoptime1 [expr $stoptime + 1.0]
  941.     set packetsize_ 200
  942.     Application/Traffic/CBR set random_ 0
  943.     Application/Traffic/CBR set packetSize_ $packetsize_
  944.     Agent/TCP set packetSize_ $packetsize_
  946.     set slink [$ns_ link $node_(r0) $node_(r1)]; # link to collect stats on
  947.     set fmon [$ns_ makeflowmon Fid]
  948.     $ns_ attach-fmon $slink $fmon
  950.     $self manytcps 0
  951.     $self manytcps 1
  952.     $self manytcps 2
  953.     $self manytcps 3
  954.     $self manytcps 4
  955.     $self manytcps 5
  957.     set maxAggregates_ 6
  958.     $self badtcps
  959.     $self badtcps
  960.     $self badtcps
  961.     $self badtcps
  962.     $self badtcps
  963.     $self badtcps
  964.     $self badtcps
  965.     $self badtcps
  966.     $self badtcps
  967.     $self badtcps
  968.     $self badtcps
  970.     $self statsDump $dumptime $fmon $packetsize_ 0
  971.     # trace only the bottleneck link
  972.     #$self traceQueues $node_(r1) [$self openTrace $stoptime $testName_]
  973.     $ns_ at $stoptime1 "$self cleanupAll $testName_"
  974. }
  976. #
  977. # Slowly-growing TCP aggregate competing against large TCP aggregates.  
  978. # No ACC.
  979. #
  980. Class Test/tcp2 -superclass TestSuite
  981. Test/tcp2 instproc init {} {
  982.     $self instvar net_ test_
  983.     set net_ net2 
  984.     set test_ tcp2
  985.     $self next noTraceFiles
  986. }
  987. Test/tcp2 instproc run {} {
  988.     $self instvar ns_ node_ testName_ net_ topo_
  989.     $self setTopo
  990.     $self setup4b
  991.     $ns_ run
  992. }
  994. #
  995. # Slowly-growing TCP aggregate competing against large TCP aggregates.  
  996. # No pushback, but with local ACC.
  997. #
  998. Class Test/tcp2-acc -superclass TestSuite
  999. Test/tcp2-acc instproc init {} {
  1000.     $self instvar net_ test_
  1001.     set net_ net2 
  1002.     set test_ tcp2-acc
  1003.     Queue/RED/Pushback set rate_limiting_ 1
  1004.     Test/tcp2-acc instproc run {} [Test/tcp2 info instbody run]
  1005.     $self next noTraceFiles
  1006. }
  1008. ######################################################33
  1010. ## TestSuite instproc setup5 {} {
  1011. ##     $self instvar ns_ node_ testName_ net_ topo_ cbr_ cbr2_ packetsize_
  1012. ##     $self instvar maxAggregates_
  1013. ## 
  1014. ##     set stoptime 100.0
  1015. ##     #set stoptime 5.0
  1016. ##     #set dumptime 5.0
  1017. ##     set dumptime 1.0
  1018. ##     set stoptime1 [expr $stoptime + 1.0]
  1019. ##     set packetsize_ 200
  1020. ##     Application/Traffic/CBR set random_ 0
  1021. ##     Application/Traffic/CBR set packetSize_ $packetsize_
  1022. ## 
  1023. ##     set slink [$ns_ link $node_(r0) $node_(r1)]; # link to collect stats on
  1024. ##     set fmon [$ns_ makeflowmon Fid]
  1025. ##     $ns_ attach-fmon $slink $fmon
  1026. ## 
  1027. ##     set udp1 [$ns_ create-connection UDP $node_(s0) Null $node_(d0) 1]
  1028. ##     set cbr1 [$udp1 attach-app Traffic/CBR]
  1029. ##     $cbr1 set rate_ 0.12Mb
  1030. ##     $cbr1 set random_ 0.005
  1031. ## 
  1032. ##     set udp2 [$ns_ create-connection UDP $node_(s1) Null $node_(d1) 2]
  1033. ##     set cbr2 [$udp2 attach-app Traffic/CBR]
  1034. ##     $cbr2 set rate_ 0.08Mb
  1035. ##     $cbr2 set random_ 0.005
  1036. ## 
  1037. ##     # bad traffic
  1038. ##     set udp [$ns_ create-connection UDP $node_(s0) Null $node_(d1) 3]
  1039. ##     set cbr_ [$udp attach-app Traffic/CBR]
  1040. ##     $cbr_ set rate_ 0.5Mb
  1041. ##     $cbr_ set random_ 0.001
  1042. ##     $ns_ at 0.0 "$cbr_ start"
  1043. ## 
  1044. ##     set udp4 [$ns_ create-connection UDP $node_(s1) Null $node_(d0) 4]
  1045. ##     set cbr4 [$udp4 attach-app Traffic/CBR]
  1046. ##     $cbr4 set rate_ 0.07Mb
  1047. ##     $cbr4 set random_ 0.005
  1048. ## 
  1049. ##     set udp5 [$ns_ create-connection UDP $node_(s0) Null $node_(d0) 5]
  1050. ##     set cbr5 [$udp5 attach-app Traffic/CBR]
  1051. ##     $cbr5 set rate_ 0.06Mb
  1052. ##     $cbr5 set random_ 0.005
  1053. ## 
  1054. ##     set udp6 [$ns_ create-connection UDP $node_(s0) Null $node_(d0) 6]
  1055. ##     set cbr6 [$udp6 attach-app Traffic/CBR]
  1056. ##     $cbr6 set rate_ 0.05Mb
  1057. ##     $cbr6 set random_ 0.005
  1058. ## 
  1059. ## 
  1060. ##     set maxAggregates_ 6
  1061. ## 
  1062. ##     $ns_ at 0.2 "$cbr1 start"
  1063. ##     $ns_ at 0.1 "$cbr2 start"
  1064. ##     $ns_ at 0.3 "$cbr4 start"
  1065. ##     $ns_ at 0.4 "$cbr5 start"
  1066. ## 
  1067. ##     $self statsDump $dumptime $fmon $packetsize_ 0
  1068. ##     # trace only the bottleneck link
  1069. ##     #$self traceQueues $node_(r1) [$self openTrace $stoptime $testName_]
  1070. ##     $ns_ at $stoptime1 "$self cleanupAll $testName_"
  1071. ## }
  1072. ## 
  1073. ## #
  1074. ## #
  1075. ## Class Test/onoff -superclass TestSuite
  1076. ## Test/onoff instproc init {} {
  1077. ##     $self instvar net_ test_
  1078. ##     set net_ net2 
  1079. ##     set test_ onoff
  1080. ##     $self next noTraceFiles
  1081. ## }
  1082. ## Test/onoff instproc run {} {
  1083. ##     $self instvar ns_ node_ testName_ net_ topo_
  1084. ##     $self setTopo
  1085. ##     $self setup5
  1086. ##     $ns_ run
  1087. ## }
  1088. ## 
  1089. ## #
  1090. ## #
  1091. ## Class Test/onoff-acc -superclass TestSuite
  1092. ## Test/onoff-acc instproc init {} {
  1093. ##     $self instvar net_ test_
  1094. ##     set net_ net2 
  1095. ##     set test_ onoff-acc
  1096. ##     Queue/RED/Pushback set rate_limiting_ 1
  1097. ##     Test/onoff-acc instproc run {} [Test/onoff info instbody run]
  1098. ##     $self next noTraceFiles
  1099. ## }
  1100. ## 
  1102. ######################################################33
  1104. TestSuite instproc setup2 {} {
  1105.     $self instvar ns_ node_ testName_ net_ topo_ cbr_ cbr2_ packetsize_
  1106.     $self instvar maxAggregates_
  1108.     set stoptime 100.0
  1109.     set dumptime 1.0
  1110.     set stoptime1 [expr $stoptime + 1.0]
  1111.     set packetsize_ 200
  1112.     Application/Traffic/CBR set random_ 0
  1113.     Application/Traffic/CBR set packetSize_ $packetsize_
  1115.     set slink [$ns_ link $node_(r0) $node_(r1)]; # link to collect stats on
  1116.     set fmon [$ns_ makeflowmon Fid]
  1117.     $ns_ attach-fmon $slink $fmon
  1119.     set udp1 [$ns_ create-connection UDP $node_(s2) Null $node_(d0) 1]
  1120.     set cbr1 [$udp1 attach-app Traffic/CBR]
  1121.     $cbr1 set rate_ 0.2Mb
  1122.     $cbr1 set random_ 0.001
  1124.     set udp2 [$ns_ create-connection UDP $node_(s3) Null $node_(d0) 2]
  1125.     set cbr2_ [$udp2 attach-app Traffic/CBR]
  1126.     $cbr2_ set rate_ 0.2Mb
  1127.     $cbr2_ set random_ 0.001
  1129.     # bad traffic
  1130.     set udp [$ns_ create-connection UDP $node_(s0) Null $node_(d1) 3]
  1131.     set cbr_ [$udp attach-app Traffic/CBR]
  1132.     $cbr_ set rate_ 3.0Mb
  1133.     $cbr_ set random_ 0.001
  1134.     $ns_ at 0.0 "$cbr_ start"
  1136.     # poor traffic
  1137.     set udp6 [$ns_ create-connection UDP $node_(s1) Null $node_(d1) 3]
  1138.     set cbr6_ [$udp attach-app Traffic/CBR]
  1139.     $cbr6_ set rate_ 0.2Mb
  1140.     $cbr6_ set random_ 0.001
  1141.     $ns_ at 0.0 "$cbr6_ start"
  1143.     set maxAggregates_ 3
  1145.     $ns_ at 0.2 "$cbr1 start"
  1146.     $ns_ at 0.1 "$cbr2_ start"
  1148.     $self statsDump $dumptime $fmon $packetsize_ 0
  1149.     # trace only the bottleneck link
  1150.     #$self traceQueues $node_(r1) [$self openTrace $stoptime $testName_]
  1151.     $ns_ at $stoptime1 "$self cleanupAll $testName_"
  1152. }
  1155. #
  1156. # CBR flows only, no pushback and no local ACC
  1157. #
  1158. Class Test/A_noACC -superclass TestSuite
  1159. Test/A_noACC instproc init {} {
  1160.     $self instvar net_ test_
  1161.     set net_ net3 
  1162.     set test_ A_noACC
  1163.     $self next noTraceFiles
  1164. }
  1165. Test/A_noACC instproc run {} {
  1166.     $self instvar ns_ node_ testName_ net_ topo_
  1167.     $self setTopo
  1168.     $self setup2
  1169.     $ns_ run
  1170. }
  1172. #
  1173. # CBR flows only, local ACC
  1174. #
  1175. Class Test/A_ACC -superclass TestSuite
  1176. Test/A_ACC instproc init {} {
  1177.     $self instvar net_ test_
  1178.     set net_ net3 
  1179.     set test_ A_ACC
  1180.     Queue/RED/Pushback set rate_limiting_ 1
  1181.     Agent/Pushback set enable_pushback_ 0
  1182.     Test/A_ACC instproc run {} [Test/A_noACC info instbody run]
  1183.     $self next noTraceFiles
  1184. }
  1186. #
  1187. # CBR flows only, local and Pushback.
  1188. #
  1189. Class Test/A_Push -superclass TestSuite
  1190. Test/A_Push instproc init {} {
  1191.     $self instvar net_ test_
  1192.     set net_ net3 
  1193.     set test_ A_Push
  1194.     Queue/RED/Pushback set rate_limiting_ 1
  1195.     Agent/Pushback set enable_pushback_ 1
  1196.     Test/A_Push instproc run {} [Test/A_noACC info instbody run]
  1197.     $self next noTraceFiles
  1198. }
  1200. TestSuite runTest