hts1000.tcl

柯老师网站上找到的

set n(920) [$ns node 13.17.2]
set n(921) [$ns node 13.17.3]
set n(922) [$ns node 13.17.4]
set n(923) [$ns node 13.17.5]
set n(924) [$ns node 13.17.6]
set n(925) [$ns node 13.18.0]
set n(926) [$ns node 13.18.1]
set n(927) [$ns node 13.18.2]
set n(928) [$ns node 13.18.3]
set n(929) [$ns node 13.18.4]
set n(930) [$ns node 13.19.0]
set n(931) [$ns node 13.19.1]
set n(932) [$ns node 13.19.2]
set n(933) [$ns node 13.20.0]
set n(934) [$ns node 13.20.1]
set n(935) [$ns node 13.20.2]
set n(936) [$ns node 13.20.3]
set n(937) [$ns node 13.21.0]
set n(938) [$ns node 13.22.0]
set n(939) [$ns node 13.22.1]
set n(940) [$ns node 13.22.2]
set n(941) [$ns node 13.22.3]
set n(942) [$ns node 13.22.4]
set n(943) [$ns node 13.22.5]
set n(944) [$ns node 13.22.6]
set n(945) [$ns node 13.22.7]
set n(946) [$ns node 13.23.0]
set n(947) [$ns node 13.23.1]
set n(948) [$ns node 13.23.2]
set n(949) [$ns node 14.0.0]
set n(950) [$ns node 14.1.0]
set n(951) [$ns node 14.2.0]
set n(952) [$ns node 14.3.0]
set n(953) [$ns node 14.4.0]
set n(954) [$ns node 14.5.0]
set n(955) [$ns node 14.5.1]
set n(956) [$ns node 14.5.2]
set n(957) [$ns node 14.5.3]
set n(958) [$ns node 14.5.4]
set n(959) [$ns node 14.5.5]
set n(960) [$ns node 14.5.6]
set n(961) [$ns node 14.6.0]
set n(962) [$ns node 14.6.1]
set n(963) [$ns node 14.6.2]
set n(964) [$ns node 14.6.3]
set n(965) [$ns node 14.7.0]
set n(966) [$ns node 14.8.0]
set n(967) [$ns node 14.8.1]
set n(968) [$ns node 14.8.2]
set n(969) [$ns node 14.8.3]
set n(970) [$ns node 14.9.0]
set n(971) [$ns node 14.9.1]
set n(972) [$ns node 14.9.2]
set n(973) [$ns node 14.9.3]
set n(974) [$ns node 14.9.4]
set n(975) [$ns node 14.9.5]
set n(976) [$ns node 14.9.6]
set n(977) [$ns node 14.10.0]
set n(978) [$ns node 14.10.1]
set n(979) [$ns node 14.10.2]
set n(980) [$ns node 14.10.3]
set n(981) [$ns node 14.11.0]
set n(982) [$ns node 14.11.1]
set n(983) [$ns node 14.11.2]
set n(984) [$ns node 14.11.3]
set n(985) [$ns node 14.12.0]
set n(986) [$ns node 14.12.1]
set n(987) [$ns node 14.12.2]
set n(988) [$ns node 14.12.3]
set n(989) [$ns node 14.12.4]
set n(990) [$ns node 14.12.5]
set n(991) [$ns node 14.12.6]
set n(992) [$ns node 14.13.0]
set n(993) [$ns node 14.13.1]
set n(994) [$ns node 14.13.2]
set n(995) [$ns node 14.14.0]
set n(996) [$ns node 14.14.1]
set n(997) [$ns node 14.14.2]
set n(998) [$ns node 14.14.3]
set n(999) [$ns node 14.15.0]
set n(1000) [$ns node 14.15.1]
	if {$verbose} { puts -nonewline "1000..."; flush stdout }
set n(1001) [$ns node 15.0.0]
set n(1002) [$ns node 15.1.0]
set n(1003) [$ns node 15.2.0]
set n(1004) [$ns node 15.3.0]
set n(1005) [$ns node 15.3.1]
set n(1006) [$ns node 15.3.2]
set n(1007) [$ns node 15.3.3]
set n(1008) [$ns node 15.3.4]
set n(1009) [$ns node 15.3.5]
set n(1010) [$ns node 15.4.0]
set n(1011) [$ns node 15.4.1]
set n(1012) [$ns node 15.4.2]
set n(1013) [$ns node 15.4.3]
set n(1014) [$ns node 15.4.4]
set n(1015) [$ns node 15.4.5]
set n(1016) [$ns node 15.5.0]
set n(1017) [$ns node 15.6.0]
set n(1018) [$ns node 15.6.1]
set n(1019) [$ns node 15.7.0]
set n(1020) [$ns node 15.7.1]
set n(1021) [$ns node 15.7.2]
set n(1022) [$ns node 15.7.3]
set n(1023) [$ns node 15.7.4]
set n(1024) [$ns node 15.8.0]
set n(1025) [$ns node 15.8.1]
set n(1026) [$ns node 15.8.2]
set n(1027) [$ns node 15.8.3]
set n(1028) [$ns node 15.9.0]
set n(1029) [$ns node 15.9.1]
set n(1030) [$ns node 15.9.2]
set n(1031) [$ns node 15.9.3]
set n(1032) [$ns node 15.10.0]
set n(1033) [$ns node 15.10.1]
set n(1034) [$ns node 15.10.2]
set n(1035) [$ns node 15.10.3]
set n(1036) [$ns node 15.11.0]
set n(1037) [$ns node 15.11.1]
set n(1038) [$ns node 15.11.2]
set n(1039) [$ns node 15.11.3]


# Topology information :
lappend domain 16
AddrParams set domain_num_ $domain
lappend cluster 24 20 20 20 20 40 20 24 4 16 36 8 16 24 16 12 
AddrParams set cluster_num_ $cluster
lappend eilastlevel 1 1 1 1 1 1 5 3 4 2 3 7 4 4 5 3 4 4 4 5 4 3 4 4 1 1 1 1 1 4 5 3 3 6 3 4 2 5 2 10 1 8 1 3 1 1 1 1 1 6 2 3 5 2 6 4 4 6 2 2 4 6 3 5 1 1 1 1 1 4 4 2 5 5 4 5 3 3 1 5 7 4 2 6 1 1 1 1 1 2 6 4 1 6 5 5 4 3 3 8 4 1 4 4 1 1 1 1 1 1 1 1 1 1 1 6 5 2 4 6 5 4 3 2 6 5 3 4 4 1 2 9 4 6 2 1 5 6 4 8 2 3 6 1 1 1 1 1 1 4 4 8 2 2 6 5 4 1 4 5 2 5 2 6 1 1 1 1 1 1 4 5 2 7 3 3 4 4 4 5 5 2 4 5 6 3 2 4 1 6 2 4 1 1 1 1 6 2 3 5 5 3 4 2 6 6 4 2 1 1 1 1 1 1 1 1 1 4 4 3 6 3 4 5 5 4 2 3 6 2 5 3 4 3 6 4 1 6 5 4 3 5 4 4 1 1 5 4 6 1 2 6 1 1 1 1 3 4 5 3 5 4 4 4 4 5 3 4 1 1 1 1 1 1 6 2 2 3 4 7 4 4 4 4 1 7 5 3 4 1 8 3 1 1 1 1 1 7 4 1 4 7 4 4 7 3 4 2 1 1 1 6 6 1 2 5 4 4 4 4 
AddrParams set nodes_num_ $eilastlevel


	# EDGES (from-node to-node length a b):
	if {$verbose} { 
		puts "Creating links 0..."
		flush stdout 
	}
	$ns duplex-link-of-interfaces $n(0) $n(144) $linkBW 1810ms DropTail
	$ns duplex-link-of-interfaces $n(0) $n(340) $linkBW 2280ms DropTail
	$ns duplex-link-of-interfaces $n(0) $n(819) $linkBW 1380ms DropTail
	$ns duplex-link-of-interfaces $n(0) $n(1001) $linkBW 690ms DropTail
	$ns duplex-link-of-interfaces $n(0) $n(13) $linkBW 110ms DropTail
	$ns duplex-link-of-interfaces $n(0) $n(7) $linkBW 680ms DropTail
	$ns duplex-link-of-interfaces $n(0) $n(1) $linkBW 1340ms DropTail
	$ns duplex-link-of-interfaces $n(0) $n(5) $linkBW 1590ms DropTail
	$ns duplex-link-of-interfaces $n(1) $n(1003) $linkBW 1380ms DropTail
	$ns duplex-link-of-interfaces $n(1) $n(611) $linkBW 2050ms DropTail
	if {$verbose} { puts -nonewline "10..."; flush stdout }
	$ns duplex-link-of-interfaces $n(1) $n(472) $linkBW 1590ms DropTail
	$ns duplex-link-of-interfaces $n(1) $n(79) $linkBW 2030ms DropTail
	$ns duplex-link-of-interfaces $n(1) $n(682) $linkBW 1670ms DropTail
	$ns duplex-link-of-interfaces $n(1) $n(793) $linkBW 1290ms DropTail
	$ns duplex-link-of-interfaces $n(1) $n(28) $linkBW 490ms DropTail
	$ns duplex-link-of-interfaces $n(1) $n(21) $linkBW 970ms DropTail
	$ns duplex-link-of-interfaces $n(1) $n(19) $linkBW 530ms DropTail
	$ns duplex-link-of-interfaces $n(1) $n(14) $linkBW 230ms DropTail
	$ns duplex-link-of-interfaces $n(1) $n(2) $linkBW 250ms DropTail
	$ns duplex-link-of-interfaces $n(1) $n(3) $linkBW 150ms DropTail
	if {$verbose} { puts -nonewline "20..."; flush stdout }
	$ns duplex-link-of-interfaces $n(1) $n(4) $linkBW 600ms DropTail
	$ns duplex-link-of-interfaces $n(2) $n(951) $linkBW 3070ms DropTail
	$ns duplex-link-of-interfaces $n(2) $n(344) $linkBW 3290ms DropTail
	$ns duplex-link-of-interfaces $n(2) $n(277) $linkBW 2620ms DropTail
	$ns duplex-link-of-interfaces $n(2) $n(147) $linkBW 2540ms DropTail
	$ns duplex-link-of-interfaces $n(2) $n(534) $linkBW 2850ms DropTail
	$ns duplex-link-of-interfaces $n(2) $n(624) $linkBW 2500ms DropTail
	$ns duplex-link-of-interfaces $n(2) $n(951) $linkBW 3070ms DropTail
	$ns duplex-link-of-interfaces $n(2) $n(44) $linkBW 530ms DropTail
	$ns duplex-link-of-interfaces $n(2) $n(40) $linkBW 750ms DropTail
	if {$verbose} { puts -nonewline "30..."; flush stdout }
	$ns duplex-link-of-interfaces $n(2) $n(34) $linkBW 750ms DropTail
	$ns duplex-link-of-interfaces $n(2) $n(33) $linkBW 150ms DropTail
	$ns duplex-link-of-interfaces $n(2) $n(4) $linkBW 630ms DropTail
	$ns duplex-link-of-interfaces $n(2) $n(5) $linkBW 810ms DropTail
	$ns duplex-link-of-interfaces $n(3) $n(874) $linkBW 2170ms DropTail
	$ns duplex-link-of-interfaces $n(3) $n(624) $linkBW 2150ms DropTail
	$ns duplex-link-of-interfaces $n(3) $n(537) $linkBW 2470ms DropTail
	$ns duplex-link-of-interfaces $n(3) $n(209) $linkBW 1070ms DropTail
	$ns duplex-link-of-interfaces $n(3) $n(274) $linkBW 2410ms DropTail
	$ns duplex-link-of-interfaces $n(3) $n(469) $linkBW 1900ms DropTail
	if {$verbose} { puts -nonewline "40..."; flush stdout }
	$ns duplex-link-of-interfaces $n(3) $n(54) $linkBW 260ms DropTail
	$ns duplex-link-of-interfaces $n(3) $n(52) $linkBW 0ms DropTail
	$ns duplex-link-of-interfaces $n(3) $n(48) $linkBW 760ms DropTail
	$ns duplex-link-of-interfaces $n(3) $n(4) $linkBW 490ms DropTail
	$ns duplex-link-of-interfaces $n(4) $n(794) $linkBW 1600ms DropTail
	$ns duplex-link-of-interfaces $n(4) $n(678) $linkBW 1310ms DropTail
	$ns duplex-link-of-interfaces $n(4) $n(82) $linkBW 1540ms DropTail
	$ns duplex-link-of-interfaces $n(4) $n(611) $linkBW 1470ms DropTail
	$ns duplex-link-of-interfaces $n(4) $n(69) $linkBW 860ms DropTail
	$ns duplex-link-of-interfaces $n(4) $n(66) $linkBW 430ms DropTail
	if {$verbose} { puts -nonewline "50..."; flush stdout }
	$ns duplex-link-of-interfaces $n(4) $n(61) $linkBW 700ms DropTail
	$ns duplex-link-of-interfaces $n(4) $n(5) $linkBW 920ms DropTail
	$ns duplex-link-of-interfaces $n(5) $n(819) $linkBW 250ms DropTail
	$ns duplex-link-of-interfaces $n(5) $n(208) $linkBW 910ms DropTail
	$ns duplex-link-of-interfaces $n(5) $n(875) $linkBW 1360ms DropTail
	$ns duplex-link-of-interfaces $n(5) $n(76) $linkBW 560ms DropTail
	$ns duplex-link-of-interfaces $n(5) $n(72) $linkBW 450ms DropTail
	$ns duplex-link-of-interfaces $n(6) $n(7) $linkBW 550ms DropTail
	$ns duplex-link-of-interfaces $n(6) $n(9) $linkBW 760ms DropTail
	$ns duplex-link-of-interfaces $n(6) $n(10) $linkBW 200ms DropTail
	if {$verbose} { puts -nonewline "60..."; flush stdout }
	$ns duplex-link-of-interfaces $n(7) $n(8) $linkBW 680ms DropTail
	$ns duplex-link-of-interfaces $n(8) $n(9) $linkBW 80ms DropTail
	$ns duplex-link-of-interfaces $n(8) $n(10) $linkBW 580ms DropTail
	$ns duplex-link-of-interfaces $n(11) $n(13) $linkBW 910ms DropTail
	$ns duplex-link-of-interfaces $n(12) $n(13) $linkBW 200ms DropTail
	$ns duplex-link-of-interfaces $n(14) $n(15) $linkBW 600ms DropTail
	$ns duplex-link-of-interfaces $n(15) $n(16) $linkBW 230ms DropTail
	$ns duplex-link-of-interfaces $n(15) $n(17) $linkBW 500ms DropTail
	$ns duplex-link-of-interfaces $n(16) $n(17) $linkBW 610ms DropTail
	$ns duplex-link-of-interfaces $n(18) $n(19) $linkBW 240ms DropTail
	if {$verbose} { puts -nonewline "70..."; flush stdout }
	$ns duplex-link-of-interfaces $n(20) $n(21) $linkBW 190ms DropTail
	$ns duplex-link-of-interfaces $n(20) $n(22) $linkBW 540ms DropTail
	$ns duplex-link-of-interfaces $n(23) $n(24) $linkBW 550ms DropTail
	$ns duplex-link-of-interfaces $n(23) $n(25) $linkBW 470ms DropTail
	$ns duplex-link-of-interfaces $n(23) $n(28) $linkBW 630ms DropTail
	$ns duplex-link-of-interfaces $n(23) $n(29) $linkBW 480ms DropTail
	$ns duplex-link-of-interfaces $n(24) $n(26) $linkBW 430ms DropTail
	$ns duplex-link-of-interfaces $n(24) $n(27) $linkBW 440ms DropTail
	$ns duplex-link-of-interfaces $n(25) $n(26) $linkBW 500ms DropTail
	$ns duplex-link-of-interfaces $n(26) $n(27) $linkBW 150ms DropTail
	if {$verbose} { puts -nonewline "80..."; flush stdout }
	$ns duplex-link-of-interfaces $n(26) $n(28) $linkBW 250ms DropTail
	$ns duplex-link-of-interfaces $n(26) $n(29) $linkBW 80ms DropTail
	$ns duplex-link-of-interfaces $n(27) $n(29) $linkBW 170ms DropTail
	$ns duplex-link-of-interfaces $n(30) $n(32) $linkBW 630ms DropTail
	$ns duplex-link-of-interfaces $n(30) $n(33) $linkBW 220ms DropTail
	$ns duplex-link-of-interfaces $n(31) $n(32) $linkBW 630ms DropTail
	$ns duplex-link-of-interfaces $n(34) $n(36) $linkBW 220ms DropTail
	$ns duplex-link-of-interfaces $n(35) $n(36) $linkBW 650ms DropTail
	$ns duplex-link-of-interfaces $n(36) $n(37) $linkBW 610ms DropTail
	$ns duplex-link-of-interfaces $n(38) $n(41) $linkBW 390ms DropTail
	if {$verbose} { puts -nonewline "90..."; flush stdout }
	$ns duplex-link-of-interfaces $n(39) $n(40) $linkBW 200ms DropTail
	$ns duplex-link-of-interfaces $n(40) $n(41) $linkBW 700ms DropTail
	$ns duplex-link-of-interfaces $n(40) $n(42) $linkBW 380ms DropTail
	$ns duplex-link-of-interfaces $n(43) $n(44) $linkBW 680ms DropTail
	$ns duplex-link-of-interfaces $n(44) $n(45) $linkBW 190ms DropTail
	$ns duplex-link-of-interfaces $n(46) $n(48) $linkBW 510ms DropTail
	$ns duplex-link-of-interfaces $n(47) $n(48) $linkBW 640ms DropTail
	$ns duplex-link-of-interfaces $n(47) $n(49) $linkBW 260ms DropTail
	$ns duplex-link-of-interfaces $n(48) $n(49) $linkBW 450ms DropTail
	$ns duplex-link-of-interfaces $n(50) $n(51) $linkBW 520ms DropTail
	if {$verbose} { puts -nonewline "100..."; flush stdout }
	$ns duplex-link-of-interfaces $n(50) $n(52) $linkBW 490ms DropTail
	$ns duplex-link-of-interfaces $n(51) $n(53) $linkBW 480ms DropTail
	$ns duplex-link-of-interfaces $n(52) $n(53) $linkBW 70ms DropTail
	$ns duplex-link-of-interfaces $n(54) $n(55) $linkBW 350ms DropTail
	$ns duplex-link-of-interfaces $n(54) $n(56) $linkBW 200ms DropTail
	$ns duplex-link-of-interfaces $n(54) $n(57) $linkBW 570ms DropTail
	$ns duplex-link-of-interfaces $n(55) $n(57) $linkBW 390ms DropTail
	$ns duplex-link-of-interfaces $n(58) $n(59) $linkBW 580ms DropTail
	$ns duplex-link-of-interfaces $n(58) $n(60) $linkBW 580ms DropTail
	$ns duplex-link-of-interfaces $n(59) $n(61) $linkBW 400ms DropTail
	if {$verbose} { puts -nonewline "110..."; flush stdout }
	$ns duplex-link-of-interfaces $n(60) $n(61) $linkBW 530ms DropTail
	$ns duplex-link-of-interfaces $n(60) $n(62) $linkBW 340ms DropTail
	$ns duplex-link-of-interfaces $n(63) $n(64) $linkBW 560ms DropTail
	$ns duplex-link-of-interfaces $n(63) $n(66) $linkBW 560ms DropTail
	$ns duplex-link-of-interfaces $n(64) $n(65) $linkBW 220ms DropTail
	$ns duplex-link-of-interfaces $n(67) $n(69) $linkBW 720ms DropTail
	$ns duplex-link-of-interfaces $n(68) $n(69) $linkBW 160ms DropTail
	$ns duplex-link-of-interfaces $n(70) $n(72) $linkBW 790ms DropTail
	$ns duplex-link-of-interfaces $n(71) $n(72) $linkBW 740ms DropTail
	$ns duplex-link-of-interfaces $n(71) $n(73) $linkBW 720ms DropTail
	if {$verbose} { puts -nonewline "120..."; flush stdout }
	$ns duplex-link-of-interfaces $n(74) $n(76) $linkBW 860ms DropTail
	$ns duplex-link-of-interfaces $n(74) $n(77) $linkBW 320ms DropTail
	$ns duplex-link-of-interfaces $n(75) $n(76) $linkBW 680ms DropTail
	$ns duplex-link-of-interfaces $n(78) $n(1003) $linkBW 550ms DropTail
	$ns duplex-link-of-interfaces $n(78) $n(144) $linkBW 860ms DropTail
	$ns duplex-link-of-interfaces $n(78) $n(611) $linkBW 730ms DropTail
	$ns duplex-link-of-interfaces $n(78) $n(793) $linkBW 1870ms DropTail
	$ns duplex-link-of-interfaces $n(78) $n(821) $linkBW 1470ms DropTail
	$ns duplex-link-of-interfaces $n(78) $n(872) $linkBW 1750ms DropTail
	$ns duplex-link-of-interfaces $n(78) $n(83) $linkBW 40ms DropTail
	if {$verbose} { puts -nonewline "130..."; flush stdout }
	$ns duplex-link-of-interfaces $n(78) $n(79) $linkBW 140ms DropTail
	$ns duplex-link-of-interfaces $n(78) $n(81) $linkBW 660ms DropTail
	$ns duplex-link-of-interfaces $n(78) $n(82) $linkBW 290ms DropTail
	$ns duplex-link-of-interfaces $n(79) $n(470) $linkBW 490ms DropTail
	$ns duplex-link-of-interfaces $n(79) $n(210) $linkBW 940ms DropTail
	$ns duplex-link-of-interfaces $n(79) $n(624) $linkBW 1780ms DropTail
	$ns duplex-link-of-interfaces $n(79) $n(105) $linkBW 790ms DropTail
	$ns duplex-link-of-interfaces $n(79) $n(100) $linkBW 750ms DropTail
	$ns duplex-link-of-interfaces $n(79) $n(95) $linkBW 710ms DropTail
	$ns duplex-link-of-interfaces $n(79) $n(92) $linkBW 480ms DropTail
	if {$verbose} { puts -nonewline "140..."; flush stdout }
	$ns duplex-link-of-interfaces $n(79) $n(87) $linkBW 270ms DropTail
	$ns duplex-link-of-interfaces $n(79) $n(80) $linkBW 180ms DropTail
	$ns duplex-link-of-interfaces $n(80) $n(819) $linkBW 1850ms DropTail
	$ns duplex-link-of-interfaces $n(80) $n(611) $linkBW 830ms DropTail
	$ns duplex-link-of-interfaces $n(80) $n(275) $linkBW 1050ms DropTail
	$ns duplex-link-of-interfaces $n(80) $n(1002) $linkBW 1640ms DropTail
	$ns duplex-link-of-interfaces $n(80) $n(110) $linkBW 880ms DropTail
	$ns duplex-link-of-interfaces $n(81) $n(952) $linkBW 620ms DropTail
	$ns duplex-link-of-interfaces $n(81) $n(793) $linkBW 1440ms DropTail
	$ns duplex-link-of-interfaces $n(81) $n(274) $linkBW 840ms DropTail
	if {$verbose} { puts -nonewline "150..."; flush stdout }
	$ns duplex-link-of-interfaces $n(81) $n(338) $linkBW 900ms DropTail
	$ns duplex-link-of-interfaces $n(81) $n(534) $linkBW 750ms DropTail
	$ns duplex-link-of-interfaces $n(81) $n(951) $linkBW 990ms DropTail
	$ns duplex-link-of-interfaces $n(81) $n(130) $linkBW 360ms DropTail
	$ns duplex-link-of-interfaces $n(81) $n(122) $linkBW 540ms DropTail
	$ns duplex-link-of-interfaces $n(81) $n(119) $linkBW 630ms DropTail
	$ns duplex-link-of-interfaces $n(81) $n(114) $linkBW 170ms DropTail
	$ns duplex-link-of-interfaces $n(81) $n(111) $linkBW 130ms DropTail
	$ns duplex-link-of-interfaces $n(82) $n(876) $linkBW 720ms DropTail
	$ns duplex-link-of-interfaces $n(82) $n(677) $linkBW 70ms DropTail
	if {$verbose} { puts -nonewline "160..."; flush stdout }
	$ns duplex-link-of-interfaces $n(82) $n(627) $linkBW 800ms DropTail
	$ns duplex-link-of-interfaces $n(82) $n(536) $linkBW 620ms DropTail