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

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

通讯编程

开发平台：

Visual C++

sat-iridium-links.tcl：源码内容
  1. #
  2. # Copyright (c) 1999 Regents of the University of California.
  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 the MASH Research
  16. #       Group at the University of California Berkeley.
  17. # 4. Neither the name of the University nor of the Research Group may be
  18. #    used to endorse or promote products derived from this software without
  19. #    specific prior written permission.
  20. #
  21. # THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  22. # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  23. # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  24. # ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  25. # FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  26. # DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  27. # OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  28. # HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  29. # LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  30. # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  31. # SUCH DAMAGE.
  32. #
  33. # Contributed by Tom Henderson, UCB Daedalus Research Group, June 1999
  35. if {![info exists ns]} {
  36. puts "Error:  sat-iridium-links.tcl is a supporting script for the "
  37. puts "        sat-iridium.tcl script-- run `sat-iridium.tcl' instead"
  38. exit
  39. }
  41. # Now that the positions are set up, configure the ISLs
  42. # Plane 1 intraplane
  43. $ns add-isl intraplane $n0 $n1 $opt(bw_isl) $opt(ifq) $opt(qlim)
  44. $ns add-isl intraplane $n1 $n2 $opt(bw_isl) $opt(ifq) $opt(qlim)
  45. $ns add-isl intraplane $n2 $n3 $opt(bw_isl) $opt(ifq) $opt(qlim)
  46. $ns add-isl intraplane $n3 $n4 $opt(bw_isl) $opt(ifq) $opt(qlim)
  47. $ns add-isl intraplane $n4 $n5 $opt(bw_isl) $opt(ifq) $opt(qlim)
  48. $ns add-isl intraplane $n5 $n6 $opt(bw_isl) $opt(ifq) $opt(qlim)
  49. $ns add-isl intraplane $n6 $n7 $opt(bw_isl) $opt(ifq) $opt(qlim)
  50. $ns add-isl intraplane $n7 $n8 $opt(bw_isl) $opt(ifq) $opt(qlim)
  51. $ns add-isl intraplane $n8 $n9 $opt(bw_isl) $opt(ifq) $opt(qlim)
  52. $ns add-isl intraplane $n9 $n10 $opt(bw_isl) $opt(ifq) $opt(qlim)
  53. $ns add-isl intraplane $n10 $n0 $opt(bw_isl) $opt(ifq) $opt(qlim)
  55. # Plane 2 intraplane
  56. $ns add-isl intraplane $n15 $n16 $opt(bw_isl) $opt(ifq) $opt(qlim)
  57. $ns add-isl intraplane $n16 $n17 $opt(bw_isl) $opt(ifq) $opt(qlim)
  58. $ns add-isl intraplane $n17 $n18 $opt(bw_isl) $opt(ifq) $opt(qlim)
  59. $ns add-isl intraplane $n18 $n19 $opt(bw_isl) $opt(ifq) $opt(qlim)
  60. $ns add-isl intraplane $n19 $n20 $opt(bw_isl) $opt(ifq) $opt(qlim)
  61. $ns add-isl intraplane $n20 $n21 $opt(bw_isl) $opt(ifq) $opt(qlim)
  62. $ns add-isl intraplane $n21 $n22 $opt(bw_isl) $opt(ifq) $opt(qlim)
  63. $ns add-isl intraplane $n22 $n23 $opt(bw_isl) $opt(ifq) $opt(qlim)
  64. $ns add-isl intraplane $n23 $n24 $opt(bw_isl) $opt(ifq) $opt(qlim)
  65. $ns add-isl intraplane $n24 $n25 $opt(bw_isl) $opt(ifq) $opt(qlim)
  66. $ns add-isl intraplane $n25 $n15 $opt(bw_isl) $opt(ifq) $opt(qlim)
  68. # Plane 3 intraplane
  69. $ns add-isl intraplane $n30 $n31 $opt(bw_isl) $opt(ifq) $opt(qlim)
  70. $ns add-isl intraplane $n31 $n32 $opt(bw_isl) $opt(ifq) $opt(qlim)
  71. $ns add-isl intraplane $n32 $n33 $opt(bw_isl) $opt(ifq) $opt(qlim)
  72. $ns add-isl intraplane $n33 $n34 $opt(bw_isl) $opt(ifq) $opt(qlim)
  73. $ns add-isl intraplane $n34 $n35 $opt(bw_isl) $opt(ifq) $opt(qlim)
  74. $ns add-isl intraplane $n35 $n36 $opt(bw_isl) $opt(ifq) $opt(qlim)
  75. $ns add-isl intraplane $n36 $n37 $opt(bw_isl) $opt(ifq) $opt(qlim)
  76. $ns add-isl intraplane $n37 $n38 $opt(bw_isl) $opt(ifq) $opt(qlim)
  77. $ns add-isl intraplane $n38 $n39 $opt(bw_isl) $opt(ifq) $opt(qlim)
  78. $ns add-isl intraplane $n39 $n40 $opt(bw_isl) $opt(ifq) $opt(qlim)
  79. $ns add-isl intraplane $n40 $n30 $opt(bw_isl) $opt(ifq) $opt(qlim)
  81. # Plane 4 intraplane
  82. $ns add-isl intraplane $n45 $n46 $opt(bw_isl) $opt(ifq) $opt(qlim)
  83. $ns add-isl intraplane $n46 $n47 $opt(bw_isl) $opt(ifq) $opt(qlim)
  84. $ns add-isl intraplane $n47 $n48 $opt(bw_isl) $opt(ifq) $opt(qlim)
  85. $ns add-isl intraplane $n48 $n49 $opt(bw_isl) $opt(ifq) $opt(qlim)
  86. $ns add-isl intraplane $n49 $n50 $opt(bw_isl) $opt(ifq) $opt(qlim)
  87. $ns add-isl intraplane $n50 $n51 $opt(bw_isl) $opt(ifq) $opt(qlim)
  88. $ns add-isl intraplane $n51 $n52 $opt(bw_isl) $opt(ifq) $opt(qlim)
  89. $ns add-isl intraplane $n52 $n53 $opt(bw_isl) $opt(ifq) $opt(qlim)
  90. $ns add-isl intraplane $n53 $n54 $opt(bw_isl) $opt(ifq) $opt(qlim)
  91. $ns add-isl intraplane $n54 $n55 $opt(bw_isl) $opt(ifq) $opt(qlim)
  92. $ns add-isl intraplane $n55 $n45 $opt(bw_isl) $opt(ifq) $opt(qlim)
  94. # Plane 5 intraplane
  95. $ns add-isl intraplane $n60 $n61 $opt(bw_isl) $opt(ifq) $opt(qlim)
  96. $ns add-isl intraplane $n61 $n62 $opt(bw_isl) $opt(ifq) $opt(qlim)
  97. $ns add-isl intraplane $n62 $n63 $opt(bw_isl) $opt(ifq) $opt(qlim)
  98. $ns add-isl intraplane $n63 $n64 $opt(bw_isl) $opt(ifq) $opt(qlim)
  99. $ns add-isl intraplane $n64 $n65 $opt(bw_isl) $opt(ifq) $opt(qlim)
  100. $ns add-isl intraplane $n65 $n66 $opt(bw_isl) $opt(ifq) $opt(qlim)
  101. $ns add-isl intraplane $n66 $n67 $opt(bw_isl) $opt(ifq) $opt(qlim)
  102. $ns add-isl intraplane $n67 $n68 $opt(bw_isl) $opt(ifq) $opt(qlim)
  103. $ns add-isl intraplane $n68 $n69 $opt(bw_isl) $opt(ifq) $opt(qlim)
  104. $ns add-isl intraplane $n69 $n70 $opt(bw_isl) $opt(ifq) $opt(qlim)
  105. $ns add-isl intraplane $n70 $n60 $opt(bw_isl) $opt(ifq) $opt(qlim)
  107. # Plane 6 intraplane
  108. $ns add-isl intraplane $n75 $n76 $opt(bw_isl) $opt(ifq) $opt(qlim)
  109. $ns add-isl intraplane $n76 $n77 $opt(bw_isl) $opt(ifq) $opt(qlim)
  110. $ns add-isl intraplane $n77 $n78 $opt(bw_isl) $opt(ifq) $opt(qlim)
  111. $ns add-isl intraplane $n78 $n79 $opt(bw_isl) $opt(ifq) $opt(qlim)
  112. $ns add-isl intraplane $n79 $n80 $opt(bw_isl) $opt(ifq) $opt(qlim)
  113. $ns add-isl intraplane $n80 $n81 $opt(bw_isl) $opt(ifq) $opt(qlim)
  114. $ns add-isl intraplane $n81 $n82 $opt(bw_isl) $opt(ifq) $opt(qlim)
  115. $ns add-isl intraplane $n82 $n83 $opt(bw_isl) $opt(ifq) $opt(qlim)
  116. $ns add-isl intraplane $n83 $n84 $opt(bw_isl) $opt(ifq) $opt(qlim)
  117. $ns add-isl intraplane $n84 $n85 $opt(bw_isl) $opt(ifq) $opt(qlim)
  118. $ns add-isl intraplane $n85 $n75 $opt(bw_isl) $opt(ifq) $opt(qlim)
  120. # Interplane ISLs
  121. # 2 interplane ISLs per satellite (one along the seam)
  123. # Plane 1-2
  124. $ns add-isl interplane $n0 $n15 $opt(bw_isl) $opt(ifq) $opt(qlim)
  125. $ns add-isl interplane $n1 $n16 $opt(bw_isl) $opt(ifq) $opt(qlim)
  126. $ns add-isl interplane $n2 $n17 $opt(bw_isl) $opt(ifq) $opt(qlim)
  127. $ns add-isl interplane $n3 $n18 $opt(bw_isl) $opt(ifq) $opt(qlim)
  128. $ns add-isl interplane $n4 $n19 $opt(bw_isl) $opt(ifq) $opt(qlim)
  129. $ns add-isl interplane $n5 $n20 $opt(bw_isl) $opt(ifq) $opt(qlim)
  130. $ns add-isl interplane $n6 $n21 $opt(bw_isl) $opt(ifq) $opt(qlim)
  131. $ns add-isl interplane $n7 $n22 $opt(bw_isl) $opt(ifq) $opt(qlim)
  132. $ns add-isl interplane $n8 $n23 $opt(bw_isl) $opt(ifq) $opt(qlim)
  133. $ns add-isl interplane $n9 $n24 $opt(bw_isl) $opt(ifq) $opt(qlim)
  134. $ns add-isl interplane $n10 $n25 $opt(bw_isl) $opt(ifq) $opt(qlim)
  136. # Plane 2-3
  137. $ns add-isl interplane $n15 $n30 $opt(bw_isl) $opt(ifq) $opt(qlim)
  138. $ns add-isl interplane $n16 $n31 $opt(bw_isl) $opt(ifq) $opt(qlim)
  139. $ns add-isl interplane $n17 $n32 $opt(bw_isl) $opt(ifq) $opt(qlim)
  140. $ns add-isl interplane $n18 $n33 $opt(bw_isl) $opt(ifq) $opt(qlim)
  141. $ns add-isl interplane $n19 $n34 $opt(bw_isl) $opt(ifq) $opt(qlim)
  142. $ns add-isl interplane $n20 $n35 $opt(bw_isl) $opt(ifq) $opt(qlim)
  143. $ns add-isl interplane $n21 $n36 $opt(bw_isl) $opt(ifq) $opt(qlim)
  144. $ns add-isl interplane $n22 $n37 $opt(bw_isl) $opt(ifq) $opt(qlim)
  145. $ns add-isl interplane $n23 $n38 $opt(bw_isl) $opt(ifq) $opt(qlim)
  146. $ns add-isl interplane $n24 $n39 $opt(bw_isl) $opt(ifq) $opt(qlim)
  147. $ns add-isl interplane $n25 $n40 $opt(bw_isl) $opt(ifq) $opt(qlim)
  149. # Plane 3-4
  150. $ns add-isl interplane $n30 $n45 $opt(bw_isl) $opt(ifq) $opt(qlim)
  151. $ns add-isl interplane $n31 $n46 $opt(bw_isl) $opt(ifq) $opt(qlim)
  152. $ns add-isl interplane $n32 $n47 $opt(bw_isl) $opt(ifq) $opt(qlim)
  153. $ns add-isl interplane $n33 $n48 $opt(bw_isl) $opt(ifq) $opt(qlim)
  154. $ns add-isl interplane $n34 $n49 $opt(bw_isl) $opt(ifq) $opt(qlim)
  155. $ns add-isl interplane $n35 $n50 $opt(bw_isl) $opt(ifq) $opt(qlim)
  156. $ns add-isl interplane $n36 $n51 $opt(bw_isl) $opt(ifq) $opt(qlim)
  157. $ns add-isl interplane $n37 $n52 $opt(bw_isl) $opt(ifq) $opt(qlim)
  158. $ns add-isl interplane $n38 $n53 $opt(bw_isl) $opt(ifq) $opt(qlim)
  159. $ns add-isl interplane $n39 $n54 $opt(bw_isl) $opt(ifq) $opt(qlim)
  160. $ns add-isl interplane $n40 $n55 $opt(bw_isl) $opt(ifq) $opt(qlim)
  162. # Plane 4-5
  163. $ns add-isl interplane $n45 $n60 $opt(bw_isl) $opt(ifq) $opt(qlim)
  164. $ns add-isl interplane $n46 $n61 $opt(bw_isl) $opt(ifq) $opt(qlim)
  165. $ns add-isl interplane $n47 $n62 $opt(bw_isl) $opt(ifq) $opt(qlim)
  166. $ns add-isl interplane $n48 $n63 $opt(bw_isl) $opt(ifq) $opt(qlim)
  167. $ns add-isl interplane $n49 $n64 $opt(bw_isl) $opt(ifq) $opt(qlim)
  168. $ns add-isl interplane $n50 $n65 $opt(bw_isl) $opt(ifq) $opt(qlim)
  169. $ns add-isl interplane $n51 $n66 $opt(bw_isl) $opt(ifq) $opt(qlim)
  170. $ns add-isl interplane $n52 $n67 $opt(bw_isl) $opt(ifq) $opt(qlim)
  171. $ns add-isl interplane $n53 $n68 $opt(bw_isl) $opt(ifq) $opt(qlim)
  172. $ns add-isl interplane $n54 $n69 $opt(bw_isl) $opt(ifq) $opt(qlim)
  173. $ns add-isl interplane $n55 $n70 $opt(bw_isl) $opt(ifq) $opt(qlim)
  175. # Plane 5-6
  176. $ns add-isl interplane $n60 $n75 $opt(bw_isl) $opt(ifq) $opt(qlim)
  177. $ns add-isl interplane $n61 $n76 $opt(bw_isl) $opt(ifq) $opt(qlim)
  178. $ns add-isl interplane $n62 $n77 $opt(bw_isl) $opt(ifq) $opt(qlim)
  179. $ns add-isl interplane $n63 $n78 $opt(bw_isl) $opt(ifq) $opt(qlim)
  180. $ns add-isl interplane $n64 $n79 $opt(bw_isl) $opt(ifq) $opt(qlim)
  181. $ns add-isl interplane $n65 $n80 $opt(bw_isl) $opt(ifq) $opt(qlim)
  182. $ns add-isl interplane $n66 $n81 $opt(bw_isl) $opt(ifq) $opt(qlim)
  183. $ns add-isl interplane $n67 $n82 $opt(bw_isl) $opt(ifq) $opt(qlim)
  184. $ns add-isl interplane $n68 $n83 $opt(bw_isl) $opt(ifq) $opt(qlim)
  185. $ns add-isl interplane $n69 $n84 $opt(bw_isl) $opt(ifq) $opt(qlim)
  186. $ns add-isl interplane $n70 $n85 $opt(bw_isl) $opt(ifq) $opt(qlim)
  188. # Cross-seam 
  189. # To run the topology with crossseam ISLs, uncomment the remaining lines
  190. # 
  191. #$ns add-isl crossseam $n0 $n80 $opt(bw_isl) $opt(ifq) $opt(qlim)
  192. #$ns add-isl crossseam $n1 $n79 $opt(bw_isl) $opt(ifq) $opt(qlim)
  193. #$ns add-isl crossseam $n2 $n78 $opt(bw_isl) $opt(ifq) $opt(qlim)
  194. #$ns add-isl crossseam $n3 $n77 $opt(bw_isl) $opt(ifq) $opt(qlim)
  195. #$ns add-isl crossseam $n4 $n76 $opt(bw_isl) $opt(ifq) $opt(qlim)
  196. #$ns add-isl crossseam $n5 $n75 $opt(bw_isl) $opt(ifq) $opt(qlim)
  197. #$ns add-isl crossseam $n6 $n85 $opt(bw_isl) $opt(ifq) $opt(qlim)
  198. #$ns add-isl crossseam $n7 $n84 $opt(bw_isl) $opt(ifq) $opt(qlim)
  199. #$ns add-isl crossseam $n8 $n83 $opt(bw_isl) $opt(ifq) $opt(qlim)
  200. #$ns add-isl crossseam $n9 $n82 $opt(bw_isl) $opt(ifq) $opt(qlim)
  201. #$ns add-isl crossseam $n10 $n81 $opt(bw_isl) $opt(ifq) $opt(qlim)