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

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

通讯编程

开发平台：

Visual C++

traffic.tcl：源码内容
  1. Class Traffic/Mix -superclass TestSuite
  2. TestSuite instproc trafficMix {} {
  3.     $self instvar node_
  4.     
  5.     set fid 1
  6.     for {set i 0} {$i< 3} {incr i} {
  7. for {set j 0} {$j< 3} {incr j} {
  8. #$self new_Tcp $startTime $src $dst $rwnd $fid $dump $pktSize $type $maxPkts 
  9. $self new_Tcp [$self rnd 10] $node_(s$i) $node_(d$j) 50 $fid 1 1000 sack 0
  10. incr fid
  11. }
  12.     }
  14.     #50% of the link bandwidth
  15.     $self new_Cbr [$self rnd 10] $node_(s0) $node_(d0) 1000 .0016 $fid 0   
  16.     incr fid
  18. #    $self new_Cbr [$self rnd 10] $node_(s0) $node_(d0) 500 .0008 $fid 0   
  19. #    incr fid
  21.     #45% of the link
  22. #    $self new_Cbr [$self rnd 10] $node_(s1) $node_(d1) 1000 .0018 $fid 0   
  23. #    incr fid
  25.     #40% of the link
  26. #    $self new_Cbr [$self rnd 10] $node_(s2) $node_(d2) 1000 .0021 $fid 0   
  27. #    incr fid
  29.     #35% of the link bandwidth
  30. #    $self new_Cbr [$self rnd 10] $node_(s2) $node_(s5) 1000 .0023 $fid 0   
  31. #    incr fid 
  33.     #30% of the link bandwidth
  34.     $self new_Cbr [$self rnd 10] $node_(s1) $node_(d1) 1000  .0026 $fid 0   
  35.     incr fid 
  37.     #20% of the link bandwidth
  38. #     $self new_Cbr [$self rnd 10] $node_(s2) $node_(d2) 1000 .004 $fid 0   
  39. #     incr fid
  40.     
  41. #     $self new_Cbr [$self rnd 10] $node_(s2) $node_(d2) 1000 .004 $fid 0   
  42. #     incr fid
  43.     
  44. #     $self new_Cbr [$self rnd 10] $node_(s2) $node_(d2) 500 .002 $fid 0   
  45. #     incr fid
  47. #     $self new_Cbr [$self rnd 10] $node_(s2) $node_(d2) 500 .002 $fid 0   
  48. #     incr fid
  49.    
  50.     #15% of the link bandwidth
  51. #     $self new_Cbr [$self rnd 10] $node_(s2) $node_(d2) 1000 .0052 $fid 0   
  52. #     incr fid
  53. #     $self new_Cbr [$self rnd 10] $node_(s2) $node_(d2) 1000 .0052 $fid 0   
  54. #     incr fid
  55. #    $self new_Cbr [$self rnd 10] $node_(s2) $node_(d2) 1000 .0052 $fid 0   
  56. #    incr fid
  57.   
  58.   
  59.     #10% of the link bandwidth
  60. $self new_Cbr [$self rnd 10] $node_(s2) $node_(d2) 1000 .008 $fid 0   
  61.     incr fid
  63. #     $self new_Cbr [$self rnd 10] $node_(s3) $node_(s6) 1000 .008 $fid 0   
  64. #     incr fid
  65. #     $self new_Cbr [$self rnd 10] $node_(s3) $node_(s6) 1000 .008 $fid 0   
  66. #     incr fid
  67. #     $self new_Cbr [$self rnd 10] $node_(s3) $node_(s6) 1000 .008 $fid 0   
  68. #     incr fid
  69. #     $self new_Cbr [$self rnd 10] $node_(s3) $node_(s6) 1000 .008 $fid 0   
  70. #     incr fid
  71. #     $self new_Cbr [$self rnd 10] $node_(s3) $node_(s6) 1000 .008 $fid 0   
  72. #     incr fid
  73.     
  74.     #2% of link bandwidth
  75. #    $self new_Cbr [$self rnd 10] $node_(s3) $node_(s6) 1000 .04 $fid 0   
  76. #    incr fid
  77.     
  78.     #4% of link bandwidth
  79. #    $self new_Cbr [$self rnd 10] $node_(s3) $node_(s6) 1000 .02 $fid 0   
  80. #    incr fid
  82.     #varying cbr 0.25*f(R,p) -> 4*f(R,p)
  83. #     $self new_VaryingCbr [$self rnd 10] $node_(s2) $node_(d2) 1000 0.02262742 $fid 0   
  85. }
  87. Class Traffic/Varying -superclass TestSuite
  88. TestSuite instproc trafficVarying {} {
  89.     $self instvar node_
  90.     
  91.     set fid 1
  92.     for {set i 0} {$i< 3} {incr i} {
  93. for {set j 0} {$j< 3} {incr j} {
  94. #$self new_Tcp $startTime $src $dst $rwnd $fid $dump $pktSize $type $maxPkts 
  95. $self new_Tcp [$self rnd 10] $node_(s$i) $node_(d$j) 50 $fid 1 1000 sack 0
  96. incr fid
  97. }
  98.     }
  100.     #varying cbr 0.25Mbps -> 4Mbps
  101. $self new_VaryingCbr [$self rnd 10] $node_(s2) $node_(d2) 1000 0.032 $fid 0   
  103. }
  105. Class Traffic/AllTCP -superclass TestSuite
  106. TestSuite instproc trafficAllTCP {} {
  107.     $self instvar node_
  108.     
  109.     set fid 1
  110.     for {set i 0} {$i< 4} {incr i} {
  111. for {set j 0} {$j< 2} {incr j} {
  112. #$self new_Tcp $startTime $src $dst $rwnd $fid $dump $pktSize $type $maxPkts 
  113. $self new_Tcp [$self rnd 10] $node_(s$i) $node_(d$j) 50 $fid 1 1000 sack 0
  114. incr fid
  115. if {$i == 3 } {
  116. for {set k 0} {$k < 3} {incr k} {
  117. $self new_Tcp [$self rnd 10] $node_(s$i) $node_(d$j) 50 $fid 1 1000 sack 0
  118. incr fid
  119. }
  120. }
  121. }
  122. }
  123. }
  125. Class Traffic/AllUDP -superclass TestSuite
  126. TestSuite instproc trafficAllUDP {} {
  128.     $self instvar node_ 
  129.     
  130.     set fid 1
  131.     
  132.     #1% of the link 
  133.     $self new_Cbr [$self rnd 10] $node_(s0) $node_(d0) 1000 .08 $fid 0   
  134.     incr fid 
  136.     #5% of the link 
  137.     $self new_Cbr [$self rnd 10] $node_(s0) $node_(d0) 1000 .016 $fid 0   
  138.     incr fid 
  139.     
  140.     #10% of the link bandwidth
  141.     $self new_Cbr [$self rnd 10] $node_(s0) $node_(d0) 1000 .008 $fid 0   
  142.     incr fid 
  143.     
  144.     #15% of the link bandwidth
  145.     $self new_Cbr [$self rnd 10] $node_(s0) $node_(d0) 1000 .0053 $fid 0   
  146.     incr fid
  148.     #20% of the link bandwidth
  149.     $self new_Cbr [$self rnd 10] $node_(s0) $node_(d0) 1000 .004 $fid 0   
  150.     incr fid 
  151.     
  152.     #25% of the link bandwidth
  153.     $self new_Cbr [$self rnd 10] $node_(s0) $node_(d0) 1000 .0032 $fid 0   
  154.     incr fid 
  155.     
  156.     #30% of the link bandwidth
  157.     $self new_Cbr [$self rnd 10] $node_(s0) $node_(d0) 1000 .0026 $fid 0   
  158.     incr fid 
  159.     
  160.     #35% of the link bandwidth
  161.     $self new_Cbr [$self rnd 10] $node_(s0) $node_(d0) 1000 .0023 $fid 0   
  162.     incr fid 
  164.     #40% of the link
  165.     $self new_Cbr [$self rnd 10] $node_(s0) $node_(d0) 1000 .002 $fid 0   
  166.     incr fid
  168.     #45% of the link
  169.     $self new_Cbr [$self rnd 10] $node_(s0) $node_(d0) 1000 .0018 $fid 0   
  170.     incr fid
  172.     #50% of the link
  173.     $self new_Cbr [$self rnd 10] $node_(s0) $node_(d0) 1000 .0016 $fid 0   
  174.     incr fid
  175. }
  177. Class Traffic/TestIdent -superclass TestSuite
  178. TestSuite instproc trafficTestIdent {} {
  180.     $self instvar node_  topo_
  181.     $topo_ instvar redpdq_
  183.     global traf_para1_ target_rtt_ traf_para2_
  184.     set fid 1
  186.     switch -exact $traf_para1_ {
  187. "tcp" {
  188.     for {set i 0} {$i< 5} {incr i} {
  189. #$self new_Tcp $startTime $src $dst $rwnd $fid $dump $pktSize $type $maxPkts 
  190. $self new_Tcp [$self rnd 10] $node_(s$i) $node_(d0) 50 $fid 1 1000 sack 0
  191. incr fid
  192.     }
  193. }
  194. "cbr" { 
  195.     set p [$redpdq_ set P_testFRp_]
  196.     set frp [expr sqrt(1.5)/($target_rtt_*sqrt($p))]
  197.     set rate [expr {1.0/($traf_para2_*$frp)}]
  198.     
  199.     for {set i 0} {$i< 5} {incr i} {
  200. $self new_Cbr [$self rnd 1] $node_(s$i) $node_(d0) 1000 $rate $fid 0   
  201. incr fid
  202.     }
  203. }
  204. default {
  205.     puts stderr "Unknown Traffic Type"
  206.     exit 1
  207. }
  208.     }
  209. }
  211. Class Traffic/Web -superclass TestSuite
  212. TestSuite instproc trafficWeb {} {
  214.     $self instvar node_
  215.     
  216.     Agent/TCP set packetSize_ 500
  217.     Agent/UDP set packetSize_ 500
  218.     
  219.     PagePool/WebTraf set TCPTYPE_ Sack1
  220.     PagePool/WebTraf set TCPSINKTYPE_ TCPSink/Sack1
  221.     PagePool/WebTraf set FID_ASSIGNING_MODE_ 1
  222. PagePool/WebTraf set VERBOSE_ 1
  224.    set fid 1
  225.     
  226.     for {set i 0} {$i<5} {incr i} {
  227. #$self new_Tcp $startTime $src $dst $rwnd $fid $dump $pktSize $type $maxPkts
  228. $self new_Tcp [$self rnd 10] $node_(s$i) $node_(d$i) 50 $fid 1 500 sack 0
  229. incr fid
  231. $self new_Tcp [$self rnd 10] $node_(s$i) $node_(d[expr ($i+1)%5]) 50 $fid 1 500 sack 0
  232. incr fid
  234. #reverse
  235. # $self new_Tcp [$self rnd 10] $node_(s$j) $node_(s$i) 50 $fid 0 1000 sack 0
  236. # incr fid
  237.     }
  239.     #20% of the link bandwidth
  240.     $self new_Cbr [$self rnd 10] $node_(s3) $node_(d3) 500 .002 $fid 0   
  241.     incr fid 
  242.     
  243.     set pool [new PagePool/WebTraf]
  244.     $pool instvar maxFid_
  246.     set maxFid_ $fid
  248.     #something like this should have been there 
  249.     # instead of the ugly hack I put in place in tcl/webcache/webtraf.tcl
  250.     # WebPage set LASTOBJ_ 10
  252.     $pool set-num-client 5
  253.     $pool set-num-server 5
  255.     for {set i 0} {$i < 5} {incr i} {
  256. $pool set-server $i $node_(s$i)
  257.     }
  259.     for {set i 0} {$i < 5} {incr i} {
  260. $pool set-client $i $node_(d$i)
  261.     }
  263.     set numSession 50
  264.     $pool set-num-session $numSession
  265.     
  266.     set interSession [new RandomVariable/Exponential]
  267.     $interSession set avg_ 1
  268.     
  269.     set sessionSize [new RandomVariable/Constant]
  270.     $sessionSize set val_ 100
  271.     
  272.     set launchTime 0
  273.     for {set i 0} {$i < $numSession} {incr i} {
  275.     #number of pages in a session
  276.     set numPage [$sessionSize value]
  277.     
  278.     #time between requesting various pages
  279.     set interPage [new RandomVariable/Exponential]
  280.     $interPage set avg_ 10
  281.     #set interPage [new RandomVariable/Constant]
  282.     #$interPage set val_ 10
  283.     
  284.     # number of objects in a page
  285.     set pageSize [new RandomVariable/Exponential]
  286.     $pageSize set avg_ 10
  287.     #set pageSize [new RandomVariable/Constant]
  288.     #$pageSize set val_ 10
  289.     
  290.     # the time between requesting various objects
  291.     set interObj [new RandomVariable/Exponential]
  292.     $interObj set avg_ 0.01
  293.     #set interObj [new RandomVariable/Constant]
  294.     #$interObj set val_ 0.01
  295.     
  296.     #the size of objects being requested
  297.     set objSize [new RandomVariable/ParetoII]
  298.     $objSize set avg_ 24
  299.     $objSize set shape_ 1.2
  300.     #set objSize [new RandomVariable/Constant]
  301.     #$objSize set val_ 24
  302.     
  303.     
  304.     $pool create-session $i $numPage [expr $launchTime + 0.1] 
  305. $interPage $pageSize $interObj $objSize
  306.     set launchTime [expr $launchTime + [$interSession value]]
  307.     
  308.     }
  311. }
  313. Class Traffic/Multi -superclass TestSuite
  314. TestSuite instproc trafficMulti {noLinks_} {
  315. $self instvar node_ 
  317. set fid 1
  319. for {set link 0} {$link < $noLinks_} {incr link} {
  320.     for {set i 0} {$i < 2} {incr i} {
  322. $self new_Tcp [$self rnd 10] $node_(s$link) $node_(d$link) 50 $fid 1 1000 sack 0
  323. incr fid
  325.   $self new_Tcp [$self rnd 10] $node_(s1$link) $node_(d$link) 50 $fid 1 1000 sack 0
  326.   incr fid
  328.   $self new_Tcp [$self rnd 10] $node_(s2$link) $node_(d$link) 50 $fid 1 1000 sack 0
  329.   incr fid
  331. $self new_Tcp [$self rnd 10] $node_(s3$link) $node_(d$link) 50 $fid 1 1000 sack 0
  332. incr fid
  333. }
  335.       for {set i 0} {$i < 2} {incr i} {
  336. #4.0 Mbps
  337. $self new_Cbr [$self rnd 10] $node_(s$link) $node_(d$link) 1000 .0020 $fid 0   
  338. incr fid
  339.       }
  340. }
  342. global traf_para1_
  343. switch -exact $traf_para1_ {
  344. "cbr" {
  345. #1.0 Mbps
  346. $self new_Cbr [$self rnd 10] $node_(source) $node_(sink) 1000 .008 $fid 0 
  347. incr fid
  348. }
  349. "tcp" {
  350. $self new_Tcp [$self rnd 10] $node_(source) $node_(sink) 50 $fid 1 1000 sack 0
  351. incr fid
  352. }
  353. default {
  354. puts stderr "Unknown flow type"
  355. exit 1
  356. }
  357. }
  358. }
  360. Class Traffic/TFRC -superclass TestSuite
  361. TestSuite instproc trafficTFRC {} {
  362.     $self instvar node_
  363. global traf_para1_
  365. set noFlows [expr $traf_para1_/4]
  366. if {$traf_para1_ <=0 || [expr $noFlows*4] != $traf_para1_} {
  367. puts stderr "Invalid number of flows $traf_para1_ specified. Has to be a multiple of 4"
  368. } 
  370. set fid 1
  371.     for {set i 0} {$i<2} {incr i} {
  372. for {set j 0} {$j < $noFlows} {incr j} {
  373. #new_TFRC startTime source dest fid pktSize
  374. $self new_TFRC [$self rnd 10] $node_(s$i) $node_(d$j) $fid 1000 
  375. incr fid
  377. $self new_Tcp [$self rnd 10] $node_(s$i) $node_(d$j) 50 $fid 1 1000 sack 0
  378. incr fid
  380. }
  381.     }
  382. }
  384. Class Traffic/TestFRp -superclass TestSuite
  385. TestSuite instproc trafficTestFRp {} {
  387.     $self instvar node_ topo_
  388.     $topo_ instvar redpdq_
  390.     set fid 1
  392.     global target_rtt_ traf_para1_ traf_para2_    
  393.     
  394.     switch -exact $traf_para1_ { 
  395. "tcp" { 
  396.     $self new_Tcp [$self rnd 10] $node_(s0) $node_(d0) 50 $fid 1 1000 sack 0
  397.     incr fid
  398. } 
  399. "cbr" {
  400.     set p [$redpdq_ set P_testFRp_]
  401.     set frp [expr sqrt(1.5)/($target_rtt_*sqrt($p))]
  402.     set rate [expr {1.0/($traf_para2_*$frp)}]
  403.     
  404.     $self new_Cbr [$self rnd 1] $node_(s0) $node_(d0) 1000 $rate $fid 0   
  405.     incr fid
  406. }
  407. default {
  408.     puts stderr "Unknown Traffic Type"
  409.     exit 1
  410. }
  411.     }
  413. }
  415. Class Traffic/Response -superclass TestSuite
  416. TestSuite instproc trafficResponse {} {
  418.     $self instvar node_ topo_
  419.     $topo_ instvar redpdq_
  421.     set fid 1
  423.     global target_rtt_
  424.     set p [$redpdq_ set P_testFRp_]
  425.     set frp [expr sqrt(1.5)/($target_rtt_*sqrt($p))]
  426.     set rate [expr {1.0/(0.25*$frp)}]
  429.     #varying cbr 30->15->7.5->15->30. changes every 50s starting at 30s.
  430.     $self new_VaryingCbr [$self rnd 10] $node_(s0) $node_(d0) 1000 $rate $fid 0 
  431.     incr fid
  433.     for {set i 0} {$i < [expr $traf_para1_ - 1]} {incr i} {
  434. $self new_VaryingCbr [$self rnd 10] $node_(s0) $node_(d0) 1000 [expr $rate*(2+2*0)] $fid 0 
  435. incr fid
  436.     }
  437. }
  439. Class Traffic/PktsVsBytes -superclass TestSuite
  440. TestSuite instproc trafficPktsVsBytes {} {
  442.     $self instvar node_
  443.     global traf_para1_
  445.     set noFlows [expr $traf_para1_/4]
  446.     if {$traf_para1_ <=0 || [expr $noFlows*4] != $traf_para1_} {
  447. puts stderr "Invalid number of flows $traf_para1_ specified. Has to be a multiple of 4"
  448.     } 
  450.     set fid 1
  451.     for {set i 0} {$i < 2} {incr i} { 
  452. for {set j 0} {$j < $noFlows} {incr j} {
  453.     
  454.     $self new_Tcp [$self rnd 10] $node_(s$i) $node_(d$j) 50 $fid 1 1000 sack 0
  455.     incr fid
  456.     
  457.     $self new_Tcp [$self rnd 10] $node_(s$i) $node_(d$j) 50 $fid 1 500 sack 0
  458.     incr fid
  459.     
  460. }
  461.     }
  462.     
  463.     
  464.     
  465.     #20% of the link bandwidth
  466. #    $self new_Cbr [$self rnd 10] $node_(s0) $node_(d0) 1000 .002 $fid 0   
  467. #    incr fid 
  468.     
  469.     #20% of the link bandwidth
  470. #    $self new_Cbr [$self rnd 10] $node_(s0) $node_(d0) 500 .001 $fid 0   
  471. #    incr fid 
  472.            
  473. }