ts1000.tcl

柯老师网站上找到的

# Generated by sgb2ns, created by Polly Huang
# GRAPH (#nodes #edges id uu vv ww xx yy zz):
# 1000 3790 transtub(0,3,0,0,{2,283,3,1.000,0.000,0.000},{20,142,3,0.600,0.000,0.000},{8,63,3,0.420,0.000,0.000}) 283 3 6 1 

proc create-topology {linkBW} {
	global ns n

	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-of-interfaces $n(0) $n(33) $linkBW 140ms DropTail
	$ns duplex-link-of-interfaces $n(0) $n(27) $linkBW 320ms DropTail
	$ns duplex-link-of-interfaces $n(0) $n(1) $linkBW 350ms DropTail
	$ns duplex-link-of-interfaces $n(0) $n(5) $linkBW 270ms DropTail
	$ns duplex-link-of-interfaces $n(0) $n(7) $linkBW 580ms DropTail
	$ns duplex-link-of-interfaces $n(0) $n(8) $linkBW 690ms DropTail
	$ns duplex-link-of-interfaces $n(0) $n(11) $linkBW 730ms DropTail
	$ns duplex-link-of-interfaces $n(0) $n(15) $linkBW 160ms DropTail
	$ns duplex-link-of-interfaces $n(1) $n(57) $linkBW 350ms DropTail
	$ns duplex-link-of-interfaces $n(1) $n(47) $linkBW 200ms DropTail
	if {$verbose} { puts -nonewline "10..."; flush stdout }
	$ns duplex-link-of-interfaces $n(1) $n(36) $linkBW 170ms DropTail
	$ns duplex-link-of-interfaces $n(1) $n(2) $linkBW 940ms DropTail
	$ns duplex-link-of-interfaces $n(1) $n(4) $linkBW 1150ms DropTail
	$ns duplex-link-of-interfaces $n(1) $n(5) $linkBW 580ms DropTail
	$ns duplex-link-of-interfaces $n(1) $n(6) $linkBW 360ms DropTail
	$ns duplex-link-of-interfaces $n(1) $n(9) $linkBW 1060ms DropTail
	$ns duplex-link-of-interfaces $n(1) $n(11) $linkBW 590ms DropTail
	$ns duplex-link-of-interfaces $n(1) $n(12) $linkBW 380ms DropTail
	$ns duplex-link-of-interfaces $n(1) $n(13) $linkBW 780ms DropTail
	$ns duplex-link-of-interfaces $n(1) $n(14) $linkBW 360ms DropTail
	if {$verbose} { puts -nonewline "20..."; flush stdout }
	$ns duplex-link-of-interfaces $n(1) $n(16) $linkBW 640ms DropTail
	$ns duplex-link-of-interfaces $n(1) $n(17) $linkBW 350ms DropTail
	$ns duplex-link-of-interfaces $n(1) $n(18) $linkBW 420ms DropTail
	$ns duplex-link-of-interfaces $n(1) $n(19) $linkBW 740ms DropTail
	$ns duplex-link-of-interfaces $n(2) $n(95) $linkBW 100ms DropTail
	$ns duplex-link-of-interfaces $n(2) $n(88) $linkBW 230ms DropTail
	$ns duplex-link-of-interfaces $n(2) $n(75) $linkBW 250ms DropTail
	$ns duplex-link-of-interfaces $n(2) $n(69) $linkBW 600ms DropTail
	$ns duplex-link-of-interfaces $n(2) $n(61) $linkBW 400ms DropTail
	$ns duplex-link-of-interfaces $n(2) $n(5) $linkBW 540ms DropTail
	if {$verbose} { puts -nonewline "30..."; flush stdout }
	$ns duplex-link-of-interfaces $n(2) $n(7) $linkBW 960ms DropTail
	$ns duplex-link-of-interfaces $n(2) $n(8) $linkBW 1240ms DropTail
	$ns duplex-link-of-interfaces $n(2) $n(9) $linkBW 200ms DropTail
	$ns duplex-link-of-interfaces $n(2) $n(11) $linkBW 1290ms DropTail
	$ns duplex-link-of-interfaces $n(2) $n(14) $linkBW 750ms DropTail
	$ns duplex-link-of-interfaces $n(2) $n(15) $linkBW 570ms DropTail
	$ns duplex-link-of-interfaces $n(2) $n(17) $linkBW 770ms DropTail
	$ns duplex-link-of-interfaces $n(3) $n(138) $linkBW 630ms DropTail
	$ns duplex-link-of-interfaces $n(3) $n(123) $linkBW 400ms DropTail
	$ns duplex-link-of-interfaces $n(3) $n(113) $linkBW 130ms DropTail
	if {$verbose} { puts -nonewline "40..."; flush stdout }
	$ns duplex-link-of-interfaces $n(3) $n(107) $linkBW 350ms DropTail
	$ns duplex-link-of-interfaces $n(3) $n(104) $linkBW 260ms DropTail
	$ns duplex-link-of-interfaces $n(3) $n(4) $linkBW 780ms DropTail
	$ns duplex-link-of-interfaces $n(3) $n(6) $linkBW 900ms DropTail
	$ns duplex-link-of-interfaces $n(3) $n(8) $linkBW 540ms DropTail
	$ns duplex-link-of-interfaces $n(3) $n(10) $linkBW 1220ms DropTail
	$ns duplex-link-of-interfaces $n(3) $n(12) $linkBW 610ms DropTail
	$ns duplex-link-of-interfaces $n(3) $n(13) $linkBW 820ms DropTail
	$ns duplex-link-of-interfaces $n(3) $n(14) $linkBW 600ms DropTail
	$ns duplex-link-of-interfaces $n(3) $n(15) $linkBW 660ms DropTail
	if {$verbose} { puts -nonewline "50..."; flush stdout }
	$ns duplex-link-of-interfaces $n(3) $n(16) $linkBW 580ms DropTail
	$ns duplex-link-of-interfaces $n(3) $n(17) $linkBW 590ms DropTail
	$ns duplex-link-of-interfaces $n(3) $n(18) $linkBW 1150ms DropTail
	$ns duplex-link-of-interfaces $n(4) $n(517) $linkBW 1380ms DropTail
	$ns duplex-link-of-interfaces $n(4) $n(153) $linkBW 610ms DropTail
	$ns duplex-link-of-interfaces $n(4) $n(144) $linkBW 260ms DropTail
	$ns duplex-link-of-interfaces $n(4) $n(6) $linkBW 1370ms DropTail
	$ns duplex-link-of-interfaces $n(4) $n(7) $linkBW 760ms DropTail
	$ns duplex-link-of-interfaces $n(4) $n(9) $linkBW 410ms DropTail
	$ns duplex-link-of-interfaces $n(4) $n(11) $linkBW 1220ms DropTail
	if {$verbose} { puts -nonewline "60..."; flush stdout }
	$ns duplex-link-of-interfaces $n(4) $n(12) $linkBW 780ms DropTail
	$ns duplex-link-of-interfaces $n(4) $n(15) $linkBW 680ms DropTail
	$ns duplex-link-of-interfaces $n(4) $n(17) $linkBW 830ms DropTail
	$ns duplex-link-of-interfaces $n(4) $n(18) $linkBW 1090ms DropTail
	$ns duplex-link-of-interfaces $n(4) $n(19) $linkBW 850ms DropTail
	$ns duplex-link-of-interfaces $n(5) $n(170) $linkBW 50ms DropTail
	$ns duplex-link-of-interfaces $n(5) $n(159) $linkBW 380ms DropTail
	$ns duplex-link-of-interfaces $n(5) $n(6) $linkBW 820ms DropTail
	$ns duplex-link-of-interfaces $n(5) $n(9) $linkBW 570ms DropTail
	$ns duplex-link-of-interfaces $n(5) $n(10) $linkBW 640ms DropTail
	if {$verbose} { puts -nonewline "70..."; flush stdout }
	$ns duplex-link-of-interfaces $n(5) $n(11) $linkBW 760ms DropTail
	$ns duplex-link-of-interfaces $n(5) $n(12) $linkBW 220ms DropTail
	$ns duplex-link-of-interfaces $n(5) $n(13) $linkBW 280ms DropTail
	$ns duplex-link-of-interfaces $n(5) $n(14) $linkBW 260ms DropTail
	$ns duplex-link-of-interfaces $n(5) $n(15) $linkBW 120ms DropTail
	$ns duplex-link-of-interfaces $n(5) $n(17) $linkBW 280ms DropTail
	$ns duplex-link-of-interfaces $n(5) $n(18) $linkBW 610ms DropTail
	$ns duplex-link-of-interfaces $n(5) $n(19) $linkBW 540ms DropTail
	$ns duplex-link-of-interfaces $n(6) $n(187) $linkBW 280ms DropTail
	$ns duplex-link-of-interfaces $n(6) $n(174) $linkBW 380ms DropTail
	if {$verbose} { puts -nonewline "80..."; flush stdout }
	$ns duplex-link-of-interfaces $n(6) $n(7) $linkBW 720ms DropTail
	$ns duplex-link-of-interfaces $n(6) $n(8) $linkBW 400ms DropTail
	$ns duplex-link-of-interfaces $n(6) $n(9) $linkBW 1370ms DropTail
	$ns duplex-link-of-interfaces $n(6) $n(11) $linkBW 370ms DropTail
	$ns duplex-link-of-interfaces $n(6) $n(12) $linkBW 600ms DropTail
	$ns duplex-link-of-interfaces $n(6) $n(13) $linkBW 1070ms DropTail
	$ns duplex-link-of-interfaces $n(6) $n(14) $linkBW 560ms DropTail
	$ns duplex-link-of-interfaces $n(6) $n(16) $linkBW 420ms DropTail
	$ns duplex-link-of-interfaces $n(6) $n(17) $linkBW 540ms DropTail
	$ns duplex-link-of-interfaces $n(6) $n(18) $linkBW 780ms DropTail
	if {$verbose} { puts -nonewline "90..."; flush stdout }
	$ns duplex-link-of-interfaces $n(6) $n(19) $linkBW 720ms DropTail
	$ns duplex-link-of-interfaces $n(7) $n(224) $linkBW 600ms DropTail
	$ns duplex-link-of-interfaces $n(7) $n(214) $linkBW 320ms DropTail
	$ns duplex-link-of-interfaces $n(7) $n(206) $linkBW 290ms DropTail
	$ns duplex-link-of-interfaces $n(7) $n(200) $linkBW 360ms DropTail
	$ns duplex-link-of-interfaces $n(7) $n(188) $linkBW 170ms DropTail
	$ns duplex-link-of-interfaces $n(7) $n(8) $linkBW 410ms DropTail
	$ns duplex-link-of-interfaces $n(7) $n(9) $linkBW 950ms DropTail
	$ns duplex-link-of-interfaces $n(7) $n(10) $linkBW 1020ms DropTail
	$ns duplex-link-of-interfaces $n(7) $n(12) $linkBW 400ms DropTail
	if {$verbose} { puts -nonewline "100..."; flush stdout }
	$ns duplex-link-of-interfaces $n(7) $n(13) $linkBW 690ms DropTail
	$ns duplex-link-of-interfaces $n(7) $n(14) $linkBW 380ms DropTail
	$ns duplex-link-of-interfaces $n(7) $n(16) $linkBW 480ms DropTail
	$ns duplex-link-of-interfaces $n(7) $n(17) $linkBW 380ms DropTail
	$ns duplex-link-of-interfaces $n(7) $n(19) $linkBW 110ms DropTail
	$ns duplex-link-of-interfaces $n(8) $n(280) $linkBW 310ms DropTail
	$ns duplex-link-of-interfaces $n(8) $n(275) $linkBW 220ms DropTail
	$ns duplex-link-of-interfaces $n(8) $n(267) $linkBW 390ms DropTail
	$ns duplex-link-of-interfaces $n(8) $n(260) $linkBW 380ms DropTail
	$ns duplex-link-of-interfaces $n(8) $n(248) $linkBW 480ms DropTail
	if {$verbose} { puts -nonewline "110..."; flush stdout }
	$ns duplex-link-of-interfaces $n(8) $n(238) $linkBW 60ms DropTail
	$ns duplex-link-of-interfaces $n(8) $n(232) $linkBW 130ms DropTail
	$ns duplex-link-of-interfaces $n(8) $n(9) $linkBW 1270ms DropTail
	$ns duplex-link-of-interfaces $n(8) $n(10) $linkBW 1100ms DropTail
	$ns duplex-link-of-interfaces $n(8) $n(12) $linkBW 540ms DropTail
	$ns duplex-link-of-interfaces $n(8) $n(13) $linkBW 990ms DropTail
	$ns duplex-link-of-interfaces $n(8) $n(16) $linkBW 90ms DropTail
	$ns duplex-link-of-interfaces $n(8) $n(18) $linkBW 960ms DropTail
	$ns duplex-link-of-interfaces $n(9) $n(507) $linkBW 1650ms DropTail
	$ns duplex-link-of-interfaces $n(9) $n(307) $linkBW 50ms DropTail
	if {$verbose} { puts -nonewline "120..."; flush stdout }
	$ns duplex-link-of-interfaces $n(9) $n(295) $linkBW 210ms DropTail
	$ns duplex-link-of-interfaces $n(9) $n(287) $linkBW 110ms DropTail
	$ns duplex-link-of-interfaces $n(9) $n(10) $linkBW 750ms DropTail
	$ns duplex-link-of-interfaces $n(9) $n(11) $linkBW 1330ms DropTail
	$ns duplex-link-of-interfaces $n(9) $n(12) $linkBW 770ms DropTail
	$ns duplex-link-of-interfaces $n(9) $n(13) $linkBW 300ms DropTail
	$ns duplex-link-of-interfaces $n(9) $n(19) $linkBW 1050ms DropTail
	$ns duplex-link-of-interfaces $n(10) $n(326) $linkBW 610ms DropTail
	$ns duplex-link-of-interfaces $n(10) $n(318) $linkBW 310ms DropTail
	$ns duplex-link-of-interfaces $n(10) $n(314) $linkBW 300ms DropTail
	if {$verbose} { puts -nonewline "130..."; flush stdout }
	$ns duplex-link-of-interfaces $n(10) $n(11) $linkBW 1140ms DropTail
	$ns duplex-link-of-interfaces $n(10) $n(12) $linkBW 630ms DropTail
	$ns duplex-link-of-interfaces $n(10) $n(13) $linkBW 590ms DropTail
	$ns duplex-link-of-interfaces $n(10) $n(14) $linkBW 650ms DropTail
	$ns duplex-link-of-interfaces $n(10) $n(15) $linkBW 560ms DropTail
	$ns duplex-link-of-interfaces $n(10) $n(16) $linkBW 1190ms DropTail
	$ns duplex-link-of-interfaces $n(10) $n(18) $linkBW 190ms DropTail
	$ns duplex-link-of-interfaces $n(10) $n(19) $linkBW 1110ms DropTail
	$ns duplex-link-of-interfaces $n(11) $n(355) $linkBW 490ms DropTail
	$ns duplex-link-of-interfaces $n(11) $n(349) $linkBW 200ms DropTail
	if {$verbose} { puts -nonewline "140..."; flush stdout }
	$ns duplex-link-of-interfaces $n(11) $n(346) $linkBW 370ms DropTail
	$ns duplex-link-of-interfaces $n(11) $n(342) $linkBW 420ms DropTail
	$ns duplex-link-of-interfaces $n(11) $n(13) $linkBW 1040ms DropTail
	$ns duplex-link-of-interfaces $n(11) $n(14) $linkBW 550ms DropTail
	$ns duplex-link-of-interfaces $n(11) $n(15) $linkBW 720ms DropTail
	$ns duplex-link-of-interfaces $n(11) $n(17) $linkBW 520ms DropTail
	$ns duplex-link-of-interfaces $n(11) $n(18) $linkBW 980ms DropTail
	$ns duplex-link-of-interfaces $n(11) $n(19) $linkBW 430ms DropTail
	$ns duplex-link-of-interfaces $n(12) $n(367) $linkBW 220ms DropTail
	$ns duplex-link-of-interfaces $n(12) $n(13) $linkBW 470ms DropTail
	if {$verbose} { puts -nonewline "150..."; flush stdout }
	$ns duplex-link-of-interfaces $n(12) $n(14) $linkBW 40ms DropTail
	$ns duplex-link-of-interfaces $n(12) $n(15) $linkBW 130ms DropTail
	$ns duplex-link-of-interfaces $n(12) $n(17) $linkBW 70ms DropTail
	$ns duplex-link-of-interfaces $n(12) $n(18) $linkBW 540ms DropTail
	$ns duplex-link-of-interfaces $n(13) $n(379) $linkBW 390ms DropTail
	$ns duplex-link-of-interfaces $n(13) $n(14) $linkBW 520ms DropTail
	$ns duplex-link-of-interfaces $n(13) $n(15) $linkBW 340ms DropTail
	$ns duplex-link-of-interfaces $n(13) $n(16) $linkBW 1080ms DropTail
	$ns duplex-link-of-interfaces $n(13) $n(17) $linkBW 540ms DropTail
	$ns duplex-link-of-interfaces $n(13) $n(19) $linkBW 800ms DropTail