t1000.tcl

跑leach需要的

# Generated by sgb2ns, created by Polly Huang
# GRAPH (#nodes #edges id uu vv ww xx yy zz):
# 1000 4096 transtub(0,3,0,0,{4,283,3,1.000,0.000,0.000},{10,142,3,0.500,0.000,0.000},{8,59,3,0.500,0.000,0.000}) 283 3 6 1 

proc create-topology {nsns node linkBW} {
	upvar $node n
	upvar $nsns ns

	set verbose 1

	if {$verbose} { 
		puts "creating nodes..." 
}
		for {set i 0} {$i < 1000} {incr i} {
			set n($i) [$ns node]
	}

	# EDGES (from-node to-node length a b):
	if {$verbose} { 
		puts -nonewline "Creating links 0..."
		flush stdout 
	}
	$ns duplex-link $n(0) $n(14) $linkBW 220ms DropTail
	$ns duplex-link $n(0) $n(4) $linkBW 740ms DropTail
	$ns duplex-link $n(0) $n(6) $linkBW 530ms DropTail
	$ns duplex-link $n(0) $n(7) $linkBW 990ms DropTail
	$ns duplex-link $n(1) $n(49) $linkBW 200ms DropTail
	$ns duplex-link $n(1) $n(43) $linkBW 510ms DropTail
	$ns duplex-link $n(1) $n(36) $linkBW 200ms DropTail
	$ns duplex-link $n(1) $n(35) $linkBW 110ms DropTail
	$ns duplex-link $n(1) $n(18) $linkBW 570ms DropTail
	$ns duplex-link $n(1) $n(2) $linkBW 410ms DropTail
	if {$verbose} { puts -nonewline "10..."; flush stdout }
	$ns duplex-link $n(2) $n(826) $linkBW 780ms DropTail
	$ns duplex-link $n(2) $n(60) $linkBW 170ms DropTail
	$ns duplex-link $n(2) $n(4) $linkBW 260ms DropTail
	$ns duplex-link $n(2) $n(6) $linkBW 460ms DropTail
	$ns duplex-link $n(2) $n(7) $linkBW 30ms DropTail
	$ns duplex-link $n(3) $n(72) $linkBW 230ms DropTail
	$ns duplex-link $n(3) $n(5) $linkBW 620ms DropTail
	$ns duplex-link $n(3) $n(7) $linkBW 530ms DropTail
	$ns duplex-link $n(3) $n(8) $linkBW 750ms DropTail
	$ns duplex-link $n(3) $n(9) $linkBW 30ms DropTail
	if {$verbose} { puts -nonewline "20..."; flush stdout }
	$ns duplex-link $n(4) $n(260) $linkBW 860ms DropTail
	$ns duplex-link $n(4) $n(111) $linkBW 90ms DropTail
	$ns duplex-link $n(4) $n(98) $linkBW 170ms DropTail
	$ns duplex-link $n(4) $n(86) $linkBW 200ms DropTail
	$ns duplex-link $n(4) $n(82) $linkBW 360ms DropTail
	$ns duplex-link $n(4) $n(74) $linkBW 210ms DropTail
	$ns duplex-link $n(4) $n(5) $linkBW 740ms DropTail
	$ns duplex-link $n(4) $n(8) $linkBW 640ms DropTail
	$ns duplex-link $n(5) $n(161) $linkBW 130ms DropTail
	$ns duplex-link $n(5) $n(153) $linkBW 190ms DropTail
	if {$verbose} { puts -nonewline "30..."; flush stdout }
	$ns duplex-link $n(5) $n(147) $linkBW 430ms DropTail
	$ns duplex-link $n(5) $n(133) $linkBW 300ms DropTail
	$ns duplex-link $n(5) $n(129) $linkBW 110ms DropTail
	$ns duplex-link $n(5) $n(115) $linkBW 260ms DropTail
	$ns duplex-link $n(5) $n(6) $linkBW 590ms DropTail
	$ns duplex-link $n(5) $n(9) $linkBW 600ms DropTail
	$ns duplex-link $n(6) $n(172) $linkBW 360ms DropTail
	$ns duplex-link $n(6) $n(162) $linkBW 430ms DropTail
	$ns duplex-link $n(6) $n(9) $linkBW 370ms DropTail
	$ns duplex-link $n(7) $n(829) $linkBW 660ms DropTail
	if {$verbose} { puts -nonewline "40..."; flush stdout }
	$ns duplex-link $n(7) $n(256) $linkBW 1100ms DropTail
	$ns duplex-link $n(7) $n(208) $linkBW 240ms DropTail
	$ns duplex-link $n(7) $n(201) $linkBW 560ms DropTail
	$ns duplex-link $n(7) $n(186) $linkBW 70ms DropTail
	$ns duplex-link $n(7) $n(178) $linkBW 170ms DropTail
	$ns duplex-link $n(7) $n(8) $linkBW 880ms DropTail
	$ns duplex-link $n(8) $n(214) $linkBW 200ms DropTail
	$ns duplex-link $n(9) $n(533) $linkBW 1200ms DropTail
	$ns duplex-link $n(9) $n(534) $linkBW 1190ms DropTail
	$ns duplex-link $n(9) $n(245) $linkBW 120ms DropTail
	if {$verbose} { puts -nonewline "50..."; flush stdout }
	$ns duplex-link $n(9) $n(237) $linkBW 350ms DropTail
	$ns duplex-link $n(9) $n(229) $linkBW 260ms DropTail
	$ns duplex-link $n(9) $n(223) $linkBW 250ms DropTail
	$ns duplex-link $n(10) $n(12) $linkBW 120ms DropTail
	$ns duplex-link $n(10) $n(13) $linkBW 320ms DropTail
	$ns duplex-link $n(10) $n(14) $linkBW 450ms DropTail
	$ns duplex-link $n(10) $n(16) $linkBW 100ms DropTail
	$ns duplex-link $n(10) $n(17) $linkBW 600ms DropTail
	$ns duplex-link $n(11) $n(17) $linkBW 520ms DropTail
	$ns duplex-link $n(12) $n(13) $linkBW 370ms DropTail
	if {$verbose} { puts -nonewline "60..."; flush stdout }
	$ns duplex-link $n(12) $n(16) $linkBW 220ms DropTail
	$ns duplex-link $n(13) $n(14) $linkBW 240ms DropTail
	$ns duplex-link $n(13) $n(16) $linkBW 280ms DropTail
	$ns duplex-link $n(14) $n(15) $linkBW 380ms DropTail
	$ns duplex-link $n(18) $n(19) $linkBW 520ms DropTail
	$ns duplex-link $n(18) $n(20) $linkBW 560ms DropTail
	$ns duplex-link $n(18) $n(21) $linkBW 240ms DropTail
	$ns duplex-link $n(18) $n(23) $linkBW 510ms DropTail
	$ns duplex-link $n(19) $n(20) $linkBW 330ms DropTail
	$ns duplex-link $n(20) $n(21) $linkBW 430ms DropTail
	if {$verbose} { puts -nonewline "70..."; flush stdout }
	$ns duplex-link $n(20) $n(22) $linkBW 350ms DropTail
	$ns duplex-link $n(20) $n(23) $linkBW 530ms DropTail
	$ns duplex-link $n(21) $n(22) $linkBW 290ms DropTail
	$ns duplex-link $n(21) $n(23) $linkBW 280ms DropTail
	$ns duplex-link $n(24) $n(25) $linkBW 530ms DropTail
	$ns duplex-link $n(24) $n(26) $linkBW 280ms DropTail
	$ns duplex-link $n(24) $n(27) $linkBW 190ms DropTail
	$ns duplex-link $n(24) $n(28) $linkBW 480ms DropTail
	$ns duplex-link $n(24) $n(30) $linkBW 20ms DropTail
	$ns duplex-link $n(24) $n(32) $linkBW 230ms DropTail
	if {$verbose} { puts -nonewline "80..."; flush stdout }
	$ns duplex-link $n(24) $n(33) $linkBW 260ms DropTail
	$ns duplex-link $n(24) $n(34) $linkBW 400ms DropTail
	$ns duplex-link $n(24) $n(35) $linkBW 160ms DropTail
	$ns duplex-link $n(25) $n(26) $linkBW 450ms DropTail
	$ns duplex-link $n(25) $n(29) $linkBW 520ms DropTail
	$ns duplex-link $n(25) $n(30) $linkBW 530ms DropTail
	$ns duplex-link $n(25) $n(32) $linkBW 450ms DropTail
	$ns duplex-link $n(25) $n(33) $linkBW 290ms DropTail
	$ns duplex-link $n(26) $n(27) $linkBW 150ms DropTail
	$ns duplex-link $n(26) $n(28) $linkBW 210ms DropTail
	if {$verbose} { puts -nonewline "90..."; flush stdout }
	$ns duplex-link $n(26) $n(29) $linkBW 230ms DropTail
	$ns duplex-link $n(26) $n(33) $linkBW 190ms DropTail
	$ns duplex-link $n(26) $n(34) $linkBW 160ms DropTail
	$ns duplex-link $n(26) $n(35) $linkBW 190ms DropTail
	$ns duplex-link $n(27) $n(29) $linkBW 350ms DropTail
	$ns duplex-link $n(27) $n(33) $linkBW 270ms DropTail
	$ns duplex-link $n(27) $n(34) $linkBW 310ms DropTail
	$ns duplex-link $n(28) $n(29) $linkBW 100ms DropTail
	$ns duplex-link $n(28) $n(30) $linkBW 470ms DropTail
	$ns duplex-link $n(28) $n(31) $linkBW 290ms DropTail
	if {$verbose} { puts -nonewline "100..."; flush stdout }
	$ns duplex-link $n(28) $n(32) $linkBW 260ms DropTail
	$ns duplex-link $n(28) $n(34) $linkBW 100ms DropTail
	$ns duplex-link $n(29) $n(30) $linkBW 500ms DropTail
	$ns duplex-link $n(29) $n(33) $linkBW 370ms DropTail
	$ns duplex-link $n(29) $n(34) $linkBW 190ms DropTail
	$ns duplex-link $n(29) $n(35) $linkBW 410ms DropTail
	$ns duplex-link $n(30) $n(34) $linkBW 390ms DropTail
	$ns duplex-link $n(30) $n(35) $linkBW 160ms DropTail
	$ns duplex-link $n(31) $n(34) $linkBW 240ms DropTail
	$ns duplex-link $n(31) $n(35) $linkBW 390ms DropTail
	if {$verbose} { puts -nonewline "110..."; flush stdout }
	$ns duplex-link $n(32) $n(33) $linkBW 180ms DropTail
	$ns duplex-link $n(32) $n(34) $linkBW 200ms DropTail
	$ns duplex-link $n(32) $n(35) $linkBW 150ms DropTail
	$ns duplex-link $n(34) $n(35) $linkBW 260ms DropTail
	$ns duplex-link $n(36) $n(40) $linkBW 220ms DropTail
	$ns duplex-link $n(36) $n(41) $linkBW 390ms DropTail
	$ns duplex-link $n(36) $n(42) $linkBW 260ms DropTail
	$ns duplex-link $n(37) $n(40) $linkBW 90ms DropTail
	$ns duplex-link $n(37) $n(41) $linkBW 360ms DropTail
	$ns duplex-link $n(38) $n(39) $linkBW 520ms DropTail
	if {$verbose} { puts -nonewline "120..."; flush stdout }
	$ns duplex-link $n(38) $n(41) $linkBW 230ms DropTail
	$ns duplex-link $n(38) $n(42) $linkBW 290ms DropTail
	$ns duplex-link $n(39) $n(40) $linkBW 270ms DropTail
	$ns duplex-link $n(39) $n(42) $linkBW 350ms DropTail
	$ns duplex-link $n(41) $n(42) $linkBW 250ms DropTail
	$ns duplex-link $n(43) $n(45) $linkBW 340ms DropTail
	$ns duplex-link $n(43) $n(47) $linkBW 440ms DropTail
	$ns duplex-link $n(44) $n(48) $linkBW 210ms DropTail
	$ns duplex-link $n(45) $n(48) $linkBW 260ms DropTail
	$ns duplex-link $n(46) $n(47) $linkBW 350ms DropTail
	if {$verbose} { puts -nonewline "130..."; flush stdout }
	$ns duplex-link $n(47) $n(48) $linkBW 430ms DropTail
	$ns duplex-link $n(49) $n(50) $linkBW 230ms DropTail
	$ns duplex-link $n(49) $n(51) $linkBW 520ms DropTail
	$ns duplex-link $n(49) $n(53) $linkBW 370ms DropTail
	$ns duplex-link $n(49) $n(57) $linkBW 160ms DropTail
	$ns duplex-link $n(50) $n(51) $linkBW 480ms DropTail
	$ns duplex-link $n(50) $n(52) $linkBW 440ms DropTail
	$ns duplex-link $n(50) $n(55) $linkBW 120ms DropTail
	$ns duplex-link $n(51) $n(53) $linkBW 450ms DropTail
	$ns duplex-link $n(51) $n(54) $linkBW 500ms DropTail
	if {$verbose} { puts -nonewline "140..."; flush stdout }
	$ns duplex-link $n(51) $n(55) $linkBW 590ms DropTail
	$ns duplex-link $n(52) $n(54) $linkBW 160ms DropTail
	$ns duplex-link $n(52) $n(55) $linkBW 450ms DropTail
	$ns duplex-link $n(52) $n(56) $linkBW 210ms DropTail
	$ns duplex-link $n(53) $n(54) $linkBW 150ms DropTail
	$ns duplex-link $n(53) $n(55) $linkBW 170ms DropTail
	$ns duplex-link $n(53) $n(57) $linkBW 340ms DropTail
	$ns duplex-link $n(54) $n(57) $linkBW 480ms DropTail
	$ns duplex-link $n(55) $n(57) $linkBW 370ms DropTail
	$ns duplex-link $n(58) $n(60) $linkBW 130ms DropTail
	if {$verbose} { puts -nonewline "150..."; flush stdout }
	$ns duplex-link $n(58) $n(63) $linkBW 230ms DropTail
	$ns duplex-link $n(58) $n(65) $linkBW 100ms DropTail
	$ns duplex-link $n(59) $n(60) $linkBW 450ms DropTail
	$ns duplex-link $n(59) $n(63) $linkBW 340ms DropTail
	$ns duplex-link $n(60) $n(61) $linkBW 200ms DropTail
	$ns duplex-link $n(60) $n(62) $linkBW 220ms DropTail
	$ns duplex-link $n(61) $n(62) $linkBW 420ms DropTail
	$ns duplex-link $n(61) $n(64) $linkBW 340ms DropTail
	$ns duplex-link $n(62) $n(63) $linkBW 190ms DropTail
	$ns duplex-link $n(62) $n(65) $linkBW 370ms DropTail
	if {$verbose} { puts -nonewline "160..."; flush stdout }
	$ns duplex-link $n(63) $n(64) $linkBW 340ms DropTail
	$ns duplex-link $n(66) $n(68) $linkBW 470ms DropTail
	$ns duplex-link $n(66) $n(70) $linkBW 210ms DropTail
	$ns duplex-link $n(66) $n(71) $linkBW 90ms DropTail
	$ns duplex-link $n(66) $n(73) $linkBW 180ms DropTail
	$ns duplex-link $n(67) $n(69) $linkBW 140ms DropTail
	$ns duplex-link $n(67) $n(70) $linkBW 410ms DropTail
	$ns duplex-link $n(68) $n(70) $linkBW 530ms DropTail
	$ns duplex-link $n(68) $n(71) $linkBW 370ms DropTail
	$ns duplex-link $n(69) $n(70) $linkBW 290ms DropTail
	if {$verbose} { puts -nonewline "170..."; flush stdout }
	$ns duplex-link $n(69) $n(71) $linkBW 250ms DropTail
	$ns duplex-link $n(69) $n(72) $linkBW 60ms DropTail
	$ns duplex-link $n(70) $n(73) $linkBW 380ms DropTail
	$ns duplex-link $n(71) $n(72) $linkBW 190ms DropTail
	$ns duplex-link $n(71) $n(73) $linkBW 160ms DropTail
	$ns duplex-link $n(72) $n(73) $linkBW 320ms DropTail
	$ns duplex-link $n(74) $n(75) $linkBW 180ms DropTail
	$ns duplex-link $n(74) $n(76) $linkBW 410ms DropTail
	$ns duplex-link $n(75) $n(76) $linkBW 300ms DropTail
	$ns duplex-link $n(77) $n(78) $linkBW 430ms DropTail
	if {$verbose} { puts -nonewline "180..."; flush stdout }
	$ns duplex-link $n(77) $n(79) $linkBW 430ms DropTail
	$ns duplex-link $n(77) $n(81) $linkBW 160ms DropTail
	$ns duplex-link $n(78) $n(82) $linkBW 510ms DropTail
	$ns duplex-link $n(79) $n(81) $linkBW 270ms DropTail
	$ns duplex-link $n(79) $n(82) $linkBW 520ms DropTail
	$ns duplex-link $n(80) $n(82) $linkBW 220ms DropTail
	$ns duplex-link $n(81) $n(82) $linkBW 260ms DropTail
	$ns duplex-link $n(83) $n(86) $linkBW 280ms DropTail
	$ns duplex-link $n(83) $n(87) $linkBW 460ms DropTail
	$ns duplex-link $n(83) $n(88) $linkBW 590ms DropTail
	if {$verbose} { puts -nonewline "190..."; flush stdout }
	$ns duplex-link $n(83) $n(90) $linkBW 170ms DropTail
	$ns duplex-link $n(83) $n(91) $linkBW 280ms DropTail
	$ns duplex-link $n(83) $n(92) $linkBW 480ms DropTail
	$ns duplex-link $n(83) $n(93) $linkBW 490ms DropTail
	$ns duplex-link $n(84) $n(85) $linkBW 320ms DropTail
	$ns duplex-link $n(84) $n(90) $linkBW 520ms DropTail
	$ns duplex-link $n(84) $n(92) $linkBW 200ms DropTail