hts1000.tcl

柯老师网站上找到的

# Generated by sgb2hier-ns,sgb2hier-ns generated from sgb2ns
# sgb2ns adapted from sgb2alt by Polly Huang
# GRAPH (#nodes #edges id uu vv ww xx yy zz):
# 1040 3030 transtub(0,3,0,0,{16,288,3,1.000,0.000,0.000},{5,144,3,0.600,0.000,0.000},{4,89,3,0.420,0.000,0.000}) 288 4 4 1 

#Creating hierarchical topology from transit-stub graph:

proc create-hier-topology {linkBW} {
	global ns n

	set verbose 1

	if {$verbose} { 
		puts "Creating hierarchical nodes.." 
}
set n(0) [$ns node 0.0.0]
	if {$verbose} { puts -nonewline "0..."; flush stdout }
set n(1) [$ns node 0.1.0]
set n(2) [$ns node 0.2.0]
set n(3) [$ns node 0.3.0]
set n(4) [$ns node 0.4.0]
set n(5) [$ns node 0.5.0]
set n(6) [$ns node 0.6.0]
set n(7) [$ns node 0.6.1]
set n(8) [$ns node 0.6.2]
set n(9) [$ns node 0.6.3]
set n(10) [$ns node 0.6.4]
set n(11) [$ns node 0.7.0]
set n(12) [$ns node 0.7.1]
set n(13) [$ns node 0.7.2]
set n(14) [$ns node 0.8.0]
set n(15) [$ns node 0.8.1]
set n(16) [$ns node 0.8.2]
set n(17) [$ns node 0.8.3]
set n(18) [$ns node 0.9.0]
set n(19) [$ns node 0.9.1]
set n(20) [$ns node 0.10.0]
set n(21) [$ns node 0.10.1]
set n(22) [$ns node 0.10.2]
set n(23) [$ns node 0.11.0]
set n(24) [$ns node 0.11.1]
set n(25) [$ns node 0.11.2]
set n(26) [$ns node 0.11.3]
set n(27) [$ns node 0.11.4]
set n(28) [$ns node 0.11.5]
set n(29) [$ns node 0.11.6]
set n(30) [$ns node 0.12.0]
set n(31) [$ns node 0.12.1]
set n(32) [$ns node 0.12.2]
set n(33) [$ns node 0.12.3]
set n(34) [$ns node 0.13.0]
set n(35) [$ns node 0.13.1]
set n(36) [$ns node 0.13.2]
set n(37) [$ns node 0.13.3]
set n(38) [$ns node 0.14.0]
set n(39) [$ns node 0.14.1]
set n(40) [$ns node 0.14.2]
set n(41) [$ns node 0.14.3]
set n(42) [$ns node 0.14.4]
set n(43) [$ns node 0.15.0]
set n(44) [$ns node 0.15.1]
set n(45) [$ns node 0.15.2]
set n(46) [$ns node 0.16.0]
set n(47) [$ns node 0.16.1]
set n(48) [$ns node 0.16.2]
set n(49) [$ns node 0.16.3]
set n(50) [$ns node 0.17.0]
set n(51) [$ns node 0.17.1]
set n(52) [$ns node 0.17.2]
set n(53) [$ns node 0.17.3]
set n(54) [$ns node 0.18.0]
set n(55) [$ns node 0.18.1]
set n(56) [$ns node 0.18.2]
set n(57) [$ns node 0.18.3]
set n(58) [$ns node 0.19.0]
set n(59) [$ns node 0.19.1]
set n(60) [$ns node 0.19.2]
set n(61) [$ns node 0.19.3]
set n(62) [$ns node 0.19.4]
set n(63) [$ns node 0.20.0]
set n(64) [$ns node 0.20.1]
set n(65) [$ns node 0.20.2]
set n(66) [$ns node 0.20.3]
set n(67) [$ns node 0.21.0]
set n(68) [$ns node 0.21.1]
set n(69) [$ns node 0.21.2]
set n(70) [$ns node 0.22.0]
set n(71) [$ns node 0.22.1]
set n(72) [$ns node 0.22.2]
set n(73) [$ns node 0.22.3]
set n(74) [$ns node 0.23.0]
set n(75) [$ns node 0.23.1]
set n(76) [$ns node 0.23.2]
set n(77) [$ns node 0.23.3]
set n(78) [$ns node 1.0.0]
set n(79) [$ns node 1.1.0]
set n(80) [$ns node 1.2.0]
set n(81) [$ns node 1.3.0]
set n(82) [$ns node 1.4.0]
set n(83) [$ns node 1.5.0]
set n(84) [$ns node 1.5.1]
set n(85) [$ns node 1.5.2]
set n(86) [$ns node 1.5.3]
set n(87) [$ns node 1.6.0]
set n(88) [$ns node 1.6.1]
set n(89) [$ns node 1.6.2]
set n(90) [$ns node 1.6.3]
set n(91) [$ns node 1.6.4]
set n(92) [$ns node 1.7.0]
set n(93) [$ns node 1.7.1]
set n(94) [$ns node 1.7.2]
set n(95) [$ns node 1.8.0]
set n(96) [$ns node 1.8.1]
set n(97) [$ns node 1.8.2]
set n(98) [$ns node 1.9.0]
set n(99) [$ns node 1.9.1]
set n(100) [$ns node 1.9.2]
	if {$verbose} { puts -nonewline "100..."; flush stdout }
set n(101) [$ns node 1.9.3]
set n(102) [$ns node 1.9.4]
set n(103) [$ns node 1.9.5]
set n(104) [$ns node 1.10.0]
set n(105) [$ns node 1.10.1]
set n(106) [$ns node 1.10.2]
set n(107) [$ns node 1.11.0]
set n(108) [$ns node 1.11.1]
set n(109) [$ns node 1.11.2]
set n(110) [$ns node 1.11.3]
set n(111) [$ns node 1.12.0]
set n(112) [$ns node 1.12.1]
set n(113) [$ns node 1.13.0]
set n(114) [$ns node 1.13.1]
set n(115) [$ns node 1.13.2]
set n(116) [$ns node 1.13.3]
set n(117) [$ns node 1.13.4]
set n(118) [$ns node 1.14.0]
set n(119) [$ns node 1.14.1]
set n(120) [$ns node 1.15.0]
set n(121) [$ns node 1.15.1]
set n(122) [$ns node 1.15.2]
set n(123) [$ns node 1.15.3]
set n(124) [$ns node 1.15.4]
set n(125) [$ns node 1.15.5]
set n(126) [$ns node 1.15.6]
set n(127) [$ns node 1.15.7]
set n(128) [$ns node 1.15.8]
set n(129) [$ns node 1.15.9]
set n(130) [$ns node 1.16.0]
set n(131) [$ns node 1.17.0]
set n(132) [$ns node 1.17.1]
set n(133) [$ns node 1.17.2]
set n(134) [$ns node 1.17.3]
set n(135) [$ns node 1.17.4]
set n(136) [$ns node 1.17.5]
set n(137) [$ns node 1.17.6]
set n(138) [$ns node 1.17.7]
set n(139) [$ns node 1.18.0]
set n(140) [$ns node 1.19.0]
set n(141) [$ns node 1.19.1]
set n(142) [$ns node 1.19.2]
set n(143) [$ns node 2.0.0]
set n(144) [$ns node 2.1.0]
set n(145) [$ns node 2.2.0]
set n(146) [$ns node 2.3.0]
set n(147) [$ns node 2.4.0]
set n(148) [$ns node 2.5.0]
set n(149) [$ns node 2.5.1]
set n(150) [$ns node 2.5.2]
set n(151) [$ns node 2.5.3]
set n(152) [$ns node 2.5.4]
set n(153) [$ns node 2.5.5]
set n(154) [$ns node 2.6.0]
set n(155) [$ns node 2.6.1]
set n(156) [$ns node 2.7.0]
set n(157) [$ns node 2.7.1]
set n(158) [$ns node 2.7.2]
set n(159) [$ns node 2.8.0]
set n(160) [$ns node 2.8.1]
set n(161) [$ns node 2.8.2]
set n(162) [$ns node 2.8.3]
set n(163) [$ns node 2.8.4]
set n(164) [$ns node 2.9.0]
set n(165) [$ns node 2.9.1]
set n(166) [$ns node 2.10.0]
set n(167) [$ns node 2.10.1]
set n(168) [$ns node 2.10.2]
set n(169) [$ns node 2.10.3]
set n(170) [$ns node 2.10.4]
set n(171) [$ns node 2.10.5]
set n(172) [$ns node 2.11.0]
set n(173) [$ns node 2.11.1]
set n(174) [$ns node 2.11.2]
set n(175) [$ns node 2.11.3]
set n(176) [$ns node 2.12.0]
set n(177) [$ns node 2.12.1]
set n(178) [$ns node 2.12.2]
set n(179) [$ns node 2.12.3]
set n(180) [$ns node 2.13.0]
set n(181) [$ns node 2.13.1]
set n(182) [$ns node 2.13.2]
set n(183) [$ns node 2.13.3]
set n(184) [$ns node 2.13.4]
set n(185) [$ns node 2.13.5]
set n(186) [$ns node 2.14.0]
set n(187) [$ns node 2.14.1]
set n(188) [$ns node 2.15.0]
set n(189) [$ns node 2.15.1]
set n(190) [$ns node 2.16.0]
set n(191) [$ns node 2.16.1]
set n(192) [$ns node 2.16.2]
set n(193) [$ns node 2.16.3]
set n(194) [$ns node 2.17.0]
set n(195) [$ns node 2.17.1]
set n(196) [$ns node 2.17.2]
set n(197) [$ns node 2.17.3]
set n(198) [$ns node 2.17.4]
set n(199) [$ns node 2.17.5]
set n(200) [$ns node 2.18.0]
	if {$verbose} { puts -nonewline "200..."; flush stdout }
set n(201) [$ns node 2.18.1]
set n(202) [$ns node 2.18.2]
set n(203) [$ns node 2.19.0]
set n(204) [$ns node 2.19.1]
set n(205) [$ns node 2.19.2]
set n(206) [$ns node 2.19.3]
set n(207) [$ns node 2.19.4]
set n(208) [$ns node 3.0.0]
set n(209) [$ns node 3.1.0]
set n(210) [$ns node 3.2.0]
set n(211) [$ns node 3.3.0]
set n(212) [$ns node 3.4.0]
set n(213) [$ns node 3.5.0]
set n(214) [$ns node 3.5.1]
set n(215) [$ns node 3.5.2]
set n(216) [$ns node 3.5.3]
set n(217) [$ns node 3.6.0]
set n(218) [$ns node 3.6.1]
set n(219) [$ns node 3.6.2]
set n(220) [$ns node 3.6.3]
set n(221) [$ns node 3.7.0]
set n(222) [$ns node 3.7.1]
set n(223) [$ns node 3.8.0]
set n(224) [$ns node 3.8.1]
set n(225) [$ns node 3.8.2]
set n(226) [$ns node 3.8.3]
set n(227) [$ns node 3.8.4]
set n(228) [$ns node 3.9.0]
set n(229) [$ns node 3.9.1]
set n(230) [$ns node 3.9.2]
set n(231) [$ns node 3.9.3]
set n(232) [$ns node 3.9.4]
set n(233) [$ns node 3.10.0]
set n(234) [$ns node 3.10.1]
set n(235) [$ns node 3.10.2]
set n(236) [$ns node 3.10.3]
set n(237) [$ns node 3.11.0]
set n(238) [$ns node 3.11.1]
set n(239) [$ns node 3.11.2]
set n(240) [$ns node 3.11.3]
set n(241) [$ns node 3.11.4]
set n(242) [$ns node 3.12.0]
set n(243) [$ns node 3.12.1]
set n(244) [$ns node 3.12.2]
set n(245) [$ns node 3.13.0]
set n(246) [$ns node 3.13.1]
set n(247) [$ns node 3.13.2]
set n(248) [$ns node 3.14.0]
set n(249) [$ns node 3.15.0]
set n(250) [$ns node 3.15.1]
set n(251) [$ns node 3.15.2]
set n(252) [$ns node 3.15.3]
set n(253) [$ns node 3.15.4]
set n(254) [$ns node 3.16.0]
set n(255) [$ns node 3.16.1]
set n(256) [$ns node 3.16.2]
set n(257) [$ns node 3.16.3]
set n(258) [$ns node 3.16.4]
set n(259) [$ns node 3.16.5]
set n(260) [$ns node 3.16.6]
set n(261) [$ns node 3.17.0]
set n(262) [$ns node 3.17.1]
set n(263) [$ns node 3.17.2]
set n(264) [$ns node 3.17.3]
set n(265) [$ns node 3.18.0]
set n(266) [$ns node 3.18.1]
set n(267) [$ns node 3.19.0]
set n(268) [$ns node 3.19.1]
set n(269) [$ns node 3.19.2]
set n(270) [$ns node 3.19.3]
set n(271) [$ns node 3.19.4]
set n(272) [$ns node 3.19.5]
set n(273) [$ns node 4.0.0]
set n(274) [$ns node 4.1.0]
set n(275) [$ns node 4.2.0]
set n(276) [$ns node 4.3.0]
set n(277) [$ns node 4.4.0]
set n(278) [$ns node 4.5.0]
set n(279) [$ns node 4.5.1]
set n(280) [$ns node 4.6.0]
set n(281) [$ns node 4.6.1]
set n(282) [$ns node 4.6.2]
set n(283) [$ns node 4.6.3]
set n(284) [$ns node 4.6.4]
set n(285) [$ns node 4.6.5]
set n(286) [$ns node 4.7.0]
set n(287) [$ns node 4.7.1]
set n(288) [$ns node 4.7.2]
set n(289) [$ns node 4.7.3]
set n(290) [$ns node 4.8.0]
set n(291) [$ns node 4.9.0]
set n(292) [$ns node 4.9.1]
set n(293) [$ns node 4.9.2]
set n(294) [$ns node 4.9.3]
set n(295) [$ns node 4.9.4]
set n(296) [$ns node 4.9.5]