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

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

通讯编程

开发平台：

Visual C++

isitopo.tcl：源码内容
  1. #
  2. # Copyright (C) 2001 by USC/ISI
  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. #
  20. # Maintainer: Kun-chan Lan <kclan@isi.edu>
  21. # Version Date: $Date: 2002/01/29 01:03:01 $
  22. #
  23. #
  24. # Unbalanced dumbell topology
  25. # Used by isigen.tcl
  26. #
  27. #         ISI hosts      remote hosts
  28. #
  29. #      [ISI clients]
  30. #                        
  31. #       s+11 s+10                2 3 4 [2,3,4,5: web servers]
  32. #           |                    |/ 
  33. #            1 ---9------------X---0 --6-[web clients]
  34. #          / |  [isi svr]         /|
  35. #        s+8 s+9                 5 7 8
  36. #                                  |  
  37. #                                  |  [ftp clients]
  38. #                               [ftp server]
  39. #
  41. proc my-duplex-link {ns n1 n2 bw delay queue_method queue_length} {
  43.        $ns duplex-link $n1 $n2 $bw $delay $queue_method
  44.        $ns queue-limit $n1 $n2 $queue_length
  45.        $ns queue-limit $n2 $n1 $queue_length
  46. }
  48. proc create_topology {} {
  49. global ns n verbose num_node num_nonisi_web_client num_isi_server num_ftp_client
  51. set num_web_server 40        
  52. set num_web_client 960      
  53. set num_isi_client 160     
  54. set num_isi_server 1           
  55. set num_isi_lan 4
  56. set num_ftp_server 10    
  57. set num_ftp_client 100     
  58. set queue_method RED
  59. set queue_length 50
  60. set num_nonisi_web_client [expr $num_web_client - $num_isi_client]
  61. set num_node [expr 15 + [expr $num_web_client + $num_web_server + $num_ftp_server + $num_ftp_client]]
  62. set num_isi_client_per_lan [expr $num_isi_client/$num_isi_lan]
  64. set wwwInDelay [new RandomVariable/Empirical]
  65. $wwwInDelay loadCDF cdf/2pm.dump.www.inbound.delay.cdf
  66. set wwwOutDelay [new RandomVariable/Empirical]
  67. $wwwOutDelay loadCDF cdf/2pm.dump.www.outbound.delay.cdf
  68. set WWWinBW [new RandomVariable/Empirical]
  69. $WWWinBW loadCDF cdf/2pm.dump.www.inbound.BW.cdf
  70. set WWWoutBW [new RandomVariable/Empirical]
  71. $WWWoutBW loadCDF cdf/2pm.dump.www.outbound.BW.cdf
  73. set ftpInDelay [new RandomVariable/Empirical]
  74. $ftpInDelay loadCDF cdf/2pm.dump.ftp.inbound.delay.cdf
  75. set ftpOutDelay [new RandomVariable/Empirical]
  76. $ftpOutDelay loadCDF cdf/2pm.dump.ftp.outbound.delay.cdf
  77. set FTPinBW [new RandomVariable/Empirical]
  78. $FTPinBW loadCDF cdf/2pm.dump.ftp.inbound.BW.cdf
  79. set FTPoutBW [new RandomVariable/Empirical]
  80. $FTPoutBW loadCDF cdf/2pm.dump.ftp.outbound.BW.cdf
  82. if {$verbose} { puts "Creating dumbell topology..." }
  84. for {set i 0} {$i < $num_node} {incr i} {
  85. set n($i) [$ns node]
  86. }
  88. # EDGES (from-node to-node length a b):
  89. # node 0 connects to the non-isi server and client pools
  90. # node 9 is the isi web/ftp server
  91. # node 1 connects to the isi client pool
  92. my-duplex-link $ns $n(0) $n([expr $num_node - 1]) 100Mb 1ms $queue_method $queue_length
  93. my-duplex-link $ns $n([expr $num_node - 1]) $n(9) 100Mb 1ms $queue_method $queue_length
  94. my-duplex-link $ns $n(9) $n(1) 100Mb 0.5ms $queue_method $queue_length
  96. my-duplex-link $ns $n(0) $n(2) 50Mb 2ms $queue_method $queue_length
  97. my-duplex-link $ns $n(0) $n(3) 50Mb 2ms $queue_method $queue_length
  98. my-duplex-link $ns $n(0) $n(4) 50Mb 2ms $queue_method $queue_length
  99. my-duplex-link $ns $n(0) $n(5) 50Mb 2ms $queue_method $queue_length
  100. my-duplex-link $ns $n(0) $n(6) 2Mb 10ms $queue_method $queue_length
  101. my-duplex-link $ns $n(0) $n(7) 100Mb 2ms $queue_method $queue_length
  102. my-duplex-link $ns $n(0) $n(8) 2Mb 10ms $queue_method $queue_length
  104. set remote_host [expr $num_web_server + $num_nonisi_web_client + $num_ftp_server + $num_ftp_client]
  106. my-duplex-link $ns $n(1) $n([expr $remote_host + 10]) 100Mb 500us $queue_method $queue_length
  107. my-duplex-link $ns $n(1) $n([expr $remote_host + 11]) 100Mb 500us $queue_method $queue_length
  108. my-duplex-link $ns $n(1) $n([expr $remote_host + 12]) 100Mb 500us $queue_method $queue_length
  109. my-duplex-link $ns $n(1) $n([expr $remote_host + 13]) 100Mb 500us $queue_method $queue_length
  111. for {set i 0} {$i < $num_web_server} {incr i} {
  112.     set base [expr $i / 10]
  113.     set delay [$wwwInDelay value]
  114.     set bandwidth [$WWWinBW value]
  116.     my-duplex-link $ns $n([expr $base + 2]) $n([expr $i + 10]) [expr $bandwidth * 1000000] [expr $delay * 0.001] $queue_method $queue_length
  117.     if {$verbose} {puts "$ns duplex-link $n([expr $base + 2]) $n([expr $i + 10]) [expr $bandwidth * 1000000] [expr $delay * 0.001] $queue_method"}
  119.     #setup manual routes
  121.     [$n([expr $i + 10]) get-module "Manual"] add-route-to-adj-node -default $n([expr $base + 2])
  123.     [$n([expr $remote_host + 10]) get-module "Manual"] add-route [$n([expr $i + 10]) set address_]  [[$ns link $n([expr $remote_host + 10]) $n(1)] head]
  124.     [$n([expr $remote_host + 11]) get-module "Manual"] add-route [$n([expr $i + 10]) set address_]  [[$ns link $n([expr $remote_host + 11]) $n(1)] head]
  125.     [$n([expr $remote_host + 12]) get-module "Manual"] add-route [$n([expr $i + 10]) set address_]  [[$ns link $n([expr $remote_host + 12]) $n(1)] head]
  126.     [$n([expr $remote_host + 13]) get-module "Manual"] add-route [$n([expr $i + 10]) set address_]  [[$ns link $n([expr $remote_host + 13]) $n(1)] head]
  128.     [$n(1) get-module "Manual"] add-route [$n([expr $i + 10]) set address_]  [[$ns link $n(1) $n(9)] head]
  129.     [$n(9) get-module "Manual"] add-route [$n([expr $i + 10]) set address_]  [[$ns link $n(9) $n([expr $num_node - 1])] head]
  130.     [$n([expr $num_node - 1]) get-module "Manual"] add-route [$n([expr $i + 10]) set address_]  [[$ns link $n([expr $num_node - 1]) $n(0)] head]
  131.     [$n(0) get-module "Manual"] add-route [$n([expr $i + 10]) set address_]  [[$ns link $n(0) $n([expr $base + 2])] head]
  132.     [$n([expr $base + 2]) get-module "Manual"] add-route [$n([expr $i + 10]) set address_]  [[$ns link $n([expr $base + 2]) $n([expr $i + 10])] head]
  135. }
  136. if {$verbose} {puts "done creating web server"}
  139. for {set i 0} {$i < $num_nonisi_web_client} {incr i} {
  140.      set delay [$wwwOutDelay value]
  141.      set bandwidth [$WWWoutBW value]
  143.      set c [expr $i + $num_web_server + 10]
  145.      my-duplex-link $ns $n(6) $n($c) [expr $bandwidth * 1000000 ] [expr $delay * 0.001] $queue_method $queue_length
  146.      if {$verbose} {puts "$ns duplex-link $n(6) $n($c) [expr $bandwidth * 1000000] [expr $delay * 0.001] $queue_method"}
  148.     #setup manual routes
  150.     [$n($c) get-module "Manual"] add-route-to-adj-node -default $n(6)
  152.     [$n(9) get-module "Manual"] add-route [$n($c) set address_]  [[$ns link $n(9) $n([expr $num_node - 1])] head]
  153.     [$n([expr $num_node - 1]) get-module "Manual"] add-route [$n($c) set address_]  [[$ns link $n([expr $num_node - 1]) $n(0)] head]
  154.     [$n(0) get-module "Manual"] add-route [$n($c) set address_]  [[$ns link $n(0) $n(6)] head]
  155.     [$n(6) get-module "Manual"] add-route [$n($c) set address_]  [[$ns link $n(6) $n($c)] head]
  157. }
  158. if {$verbose} {puts "done creating non-isi web clients"}
  163. for {set i 0} {$i < $num_ftp_server} {incr i} {
  164.      set delay [$ftpInDelay value]
  165.      set bandwidth [$FTPinBW value]
  167.      set s [expr $i + $num_web_server + $num_nonisi_web_client + 10]
  169.      my-duplex-link $ns $n(7) $n($s) [expr $bandwidth * 1000000 ] [expr $delay * 0.001] $queue_method $queue_length
  170.      if {$verbose} {puts "$ns duplex-link $n(7) $n($s) [expr $bandwidth * 1000000] [expr $delay * 0.001] $queue_method"}
  172.     #setup manual routes
  174.     [$n($s) get-module "Manual"] add-route-to-adj-node -default $n(7)
  176.     [$n([expr $remote_host + 10]) get-module "Manual"] add-route [$n($s) set address_]  [[$ns link $n([expr $remote_host + 10]) $n(1)] head]
  177.     [$n([expr $remote_host + 11]) get-module "Manual"] add-route [$n($s) set address_]  [[$ns link $n([expr $remote_host + 11]) $n(1)] head]
  178.     [$n([expr $remote_host + 12]) get-module "Manual"] add-route [$n($s) set address_]  [[$ns link $n([expr $remote_host + 12]) $n(1)] head]
  179.     [$n([expr $remote_host + 13]) get-module "Manual"] add-route [$n($s) set address_]  [[$ns link $n([expr $remote_host + 13]) $n(1)] head]
  181.     [$n(1) get-module "Manual"] add-route [$n($s) set address_]  [[$ns link $n(1) $n(9)] head]
  182.     [$n(9) get-module "Manual"] add-route [$n($s) set address_]  [[$ns link $n(9) $n([expr $num_node - 1])] head]
  183.     [$n([expr $num_node - 1]) get-module "Manual"] add-route [$n($s) set address_]  [[$ns link $n([expr $num_node - 1]) $n(0)] head]
  184.     [$n(0) get-module "Manual"] add-route [$n($s) set address_]  [[$ns link $n(0) $n(7)] head]
  185.     [$n(7) get-module "Manual"] add-route [$n($s) set address_]  [[$ns link $n(7) $n($s)] head]
  186. }
  187. if {$verbose} {puts "done creating ftp servers"}
  190. for {set i 0} {$i < $num_ftp_client} {incr i} {
  191.      set delay [$ftpOutDelay value]
  192.      set bandwidth [$FTPoutBW value]
  194.      set c [expr $i + $num_web_server + $num_nonisi_web_client + $num_ftp_server + 10]
  196.      my-duplex-link $ns $n(8) $n($c) [expr $bandwidth * 1000000 ] [expr $delay * 0.001] $queue_method $queue_length
  197.      if {$verbose} {puts "$ns duplex-link $n(8) $n($c) [expr $bandwidth * 1000000] [expr $delay * 0.001] $queue_method"}
  199.     #setup manual routes
  201.     [$n($c) get-module "Manual"] add-route-to-adj-node -default $n(8)
  203.     [$n(9) get-module "Manual"] add-route [$n($c) set address_]  [[$ns link $n(9) $n([expr $num_node - 1])] head]
  204.     [$n([expr $num_node - 1]) get-module "Manual"] add-route [$n($c) set address_]  [[$ns link $n([expr $num_node - 1]) $n(0)] head]
  205.     [$n(0) get-module "Manual"] add-route [$n($c) set address_]  [[$ns link $n(0) $n(8)] head]
  206.     [$n(8) get-module "Manual"] add-route [$n($c) set address_]  [[$ns link $n(8) $n($c)] head]
  207. }
  208. if {$verbose} {puts "done creating ftp clients"}
  212. for {set i 0} {$i < $num_isi_client} {incr i} {
  213. #    set base [expr $i / 10]
  214.     set base [expr $i / $num_isi_client_per_lan]
  215.     set delay [uniform 0.5 1.0]
  216.     set bandwidth 10.0
  218.     set b [expr $base + [expr $num_web_server + $num_nonisi_web_client + $num_ftp_server + $num_ftp_client + 10]]
  219.     set c [expr [expr $i + $num_web_server + $num_nonisi_web_client + $num_ftp_server + $num_ftp_client] + 14]
  221.     my-duplex-link $ns $n($b) $n($c) [expr $bandwidth * 1000000] [expr $delay * 0.001] $queue_method $queue_length
  222.     if {$verbose} {puts "$ns duplex-link $n($b) $n($c) [expr $bandwidth * 1000000] [expr $delay * 0.001] $queue_method"}
  224.     #setup manual routes
  226.     [$n($c) get-module "Manual"] add-route-to-adj-node -default $n($b)
  228.     [$n(2) get-module "Manual"] add-route [$n($c) set address_]  [[$ns link $n(2) $n(0)] head]
  229.     [$n(3) get-module "Manual"] add-route [$n($c) set address_]  [[$ns link $n(3) $n(0)] head]
  230.     [$n(4) get-module "Manual"] add-route [$n($c) set address_]  [[$ns link $n(4) $n(0)] head]
  231.     [$n(5) get-module "Manual"] add-route [$n($c) set address_]  [[$ns link $n(5) $n(0)] head]
  232.     [$n(7) get-module "Manual"] add-route [$n($c) set address_]  [[$ns link $n(7) $n(0)] head]
  234.     [$n(0) get-module "Manual"] add-route [$n($c) set address_]  [[$ns link $n(0) $n([expr $num_node - 1])] head]
  235.     [$n([expr $num_node - 1]) get-module "Manual"] add-route [$n($c) set address_]  [[$ns link $n([expr $num_node - 1]) $n(9)] head]
  236.     [$n(9) get-module "Manual"] add-route [$n($c) set address_]  [[$ns link $n(9) $n(1)] head]
  237.     [$n(1) get-module "Manual"] add-route [$n($c) set address_]  [[$ns link $n(1) $n($b)] head]
  238.     [$n($b) get-module "Manual"] add-route [$n($c) set address_]  [[$ns link $n($b) $n($c)] head]
  239. }
  240. if {$verbose} {puts "done creating isi clients"}
  242. #route to ISI server
  244.     [$n(6) get-module "Manual"] add-route [$n(9) set address_]  [[$ns link $n(6) $n(0)] head]
  245.     [$n(8) get-module "Manual"] add-route [$n(9) set address_]  [[$ns link $n(8) $n(0)] head]
  246.     [$n(0) get-module "Manual"] add-route [$n(9) set address_]  [[$ns link $n(0) $n([expr $num_node - 1])] head]
  247.     [$n([expr $num_node - 1]) get-module "Manual"] add-route [$n(9) set address_]  [[$ns link $n([expr $num_node - 1]) $n(9)] head]
  249. $ns set dstW_ "";  #define list of web servers
  250. for {set i 0} {$i <= $num_web_server} {incr i} {
  251.     $ns set dstW_ "[$ns set dstW_] [list [expr $i + 9]]"
  252. }
  253. if {$verbose} {puts "WWW server set: [$ns set dstW_]"}
  255. $ns set srcW_ "";  #define list of web clients 
  256. for {set i 0} {$i < $num_nonisi_web_client} {incr i} {
  257.     $ns set srcW_ "[$ns set srcW_] [list [expr [expr $i + $num_web_server ] + 10]]"
  258. }
  259. for {set i 0} {$i < $num_isi_client} {incr i} {
  260.     $ns set srcW_ "[$ns set srcW_] [list [expr [expr $i + $num_web_server + $num_nonisi_web_client + $num_ftp_server + $num_ftp_client] + 14]]"
  261. }
  262. if {$verbose} {puts "WWW client set: [$ns set srcW_]"}
  267. $ns set dstF_ "";  #define list of ftp servers
  268. for {set i 0} {$i <  1} {incr i} {
  269.     $ns set dstF_ "[$ns set dstF_] [list [expr $i + 9]]"
  270. }
  271. for {set i 0} {$i < $num_ftp_server} {incr i} {
  272.     $ns set dstF_ "[$ns set dstF_] [list [expr [expr $i + $num_web_server + $num_nonisi_web_client ] + 10]]"
  273. }
  274. if {$verbose} {puts "FTP server set: [$ns set dstF_]"}
  276. $ns set srcF_ "";  #define list of ftp clients 
  277. for {set i 0} {$i < $num_ftp_client} {incr i} {
  278.     $ns set srcF_ "[$ns set srcF_] [list [expr [expr $i + $num_web_server + $num_nonisi_web_client + $num_ftp_server ] + 10]]"
  279. }
  280. for {set i 0} {$i < $num_isi_client} {incr i} {
  281.     $ns set srcF_ "[$ns set srcF_] [list [expr [expr $i + $num_web_server + $num_nonisi_web_client + $num_ftp_server + $num_ftp_client] + 14]]"
  282. }
  283. if {$verbose} {puts "FTP client set: [$ns set srcF_]"}
  290. if {$verbose} { puts "Finished creating topology..." }
  291. }
  292. # end of create_topology