#topology 
#-outfile mytopo 
#-type transit_stub 
#-nodes 100 
#-ts_extra_edges 2 
#-transit_domains 2 
#-stubs_per_transit 1 
#-transit_nodes 10 
#-stub_nodes 4 
#-stub_connection_prob 0.5 
#-transit_connection_prob 0.4


#Creating hierarchical topology from transit-stub graph:

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

	set verbose 1

	if {$verbose} { 
		puts "Creating hierarchical nodes.." 

	}
	set i 0 
	foreach a { 

		0.0.0
		0.1.0
		0.2.0
		0.3.0
		0.4.0
		0.5.0
		0.6.0
		0.7.0
		0.8.0
		0.9.0
		0.10.0
		0.11.0
		0.11.1
		0.11.2
		0.11.3
		0.12.0
		0.12.1
		0.12.2
		0.12.3
		0.13.0
		0.13.1
		0.13.2
		0.13.3
		0.14.0
		0.14.1
		0.14.2
		0.14.3
		0.15.0
		0.15.1
		0.15.2
		0.15.3
		0.16.0
		0.16.1
		0.16.2
		0.16.3
		0.17.0
		0.17.1
		0.17.2
		0.17.3
		0.18.0
		0.18.1
		0.18.2
		0.18.3
		0.19.0
		0.19.1
		0.19.2
		0.19.3
		0.20.0
		0.20.1
		0.20.2
		0.20.3
		0.21.0
		0.21.1
		0.21.2
		0.21.3
		1.0.0
		1.1.0
		1.2.0
		1.3.0
		1.4.0
		1.5.0
		1.6.0
		1.7.0
		1.8.0
		1.9.0
		1.9.1
		1.9.2
		1.9.3
		1.10.0
		1.10.1
		1.10.2
		1.10.3
		1.11.0
		1.11.1
		1.11.2
		1.11.3
		1.12.0
		1.12.1
		1.12.2
		1.12.3
		1.13.0
		1.13.1
		1.13.2
		1.13.3
		1.14.0
		1.14.1
		1.14.2
		1.14.3
		1.15.0
		1.15.1
		1.15.2
		1.15.3
		1.16.0
		1.16.1
		1.16.2
		1.16.3
		1.17.0
		1.17.1
		1.17.2
		1.17.3
	} { 
		set n($i) [$ns node $a]
		incr i 
		if {[expr $i % 100] == 0} {
			puts "creating node $i..." 
 		} 
	}

# Topology information :
	lappend domain 2
	AddrParams set domain_num_ $domain
	lappend cluster 22 18 
	AddrParams set cluster_num_ $cluster
	lappend eilastlevel 1 1 1 1 1 1 1 1 1 1 1 4 4 4 4 4 4 4 4 4 4 4 1 1 1 1 1 1 1 1 1 4 4 4 4 4 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 
	}
	set i 0 
	foreach t { 
		{0 14 100ms} 
		{0 2 350ms} 
		{0 3 250ms} 
		{0 5 390ms} 
		{0 7 430ms} 
		{0 9 240ms} 
		{0 10 370ms} 
		{1 62 460ms} 
		{1 17 480ms} 
		{1 5 100ms} 
		{1 6 150ms} 
		{1 7 180ms} 
		{1 10 90ms} 
		{2 20 420ms} 
		{2 3 370ms} 
		{2 4 330ms} 
		{2 7 90ms} 
		{3 25 210ms} 
		{3 5 280ms} 
		{3 10 320ms} 
		{4 28 90ms} 
		{4 5 200ms} 
		{5 34 280ms} 
		{5 8 350ms} 
		{5 9 210ms} 
		{5 10 90ms} 
		{6 52 310ms} 
		{6 37 540ms} 
		{6 9 290ms} 
		{7 59 310ms} 
		{7 40 380ms} 
		{7 9 340ms} 
		{8 46 120ms} 
		{8 10 330ms} 
		{9 50 90ms} 
		{9 10 250ms} 
		{10 54 310ms} 
		{11 12 270ms} 
		{11 14 170ms} 
		{13 14 130ms} 
		{15 17 480ms} 
		{16 17 160ms} 
		{17 18 440ms} 
		{19 22 410ms} 
		{20 21 420ms} 
		{21 22 60ms} 
		{23 26 460ms} 
		{24 25 210ms} 
		{24 26 270ms} 
		{25 26 70ms} 
		{26 55 540ms} 
		{27 28 470ms} 
		{27 29 380ms} 
		{27 30 400ms} 
		{31 32 70ms} 
		{31 33 170ms} 
		{32 33 120ms} 
		{32 34 220ms} 
		{33 34 340ms} 
		{35 36 100ms} 
		{35 38 350ms} 
		{36 38 250ms} 
		{37 38 280ms} 
		{39 41 420ms} 
		{39 42 480ms} 
		{40 41 400ms} 
		{41 42 80ms} 
		{43 44 300ms} 
		{43 46 110ms} 
		{44 45 490ms} 
		{45 46 310ms} 
		{47 48 100ms} 
		{48 49 340ms} 
		{48 50 290ms} 
		{51 54 30ms} 
		{52 53 80ms} 
		{53 54 380ms} 
		{55 64 300ms} 
		{55 59 140ms} 
		{55 61 120ms} 
		{55 63 380ms} 
		{56 70 330ms} 
		{56 57 330ms} 
		{56 60 300ms} 
		{56 62 380ms} 
		{56 63 450ms} 
		{57 72 230ms} 
		{57 59 110ms} 
		{57 60 50ms} 
		{57 61 200ms} 
		{57 62 50ms} 
		{57 63 120ms} 
		{58 78 170ms} 
		{58 62 240ms} 
		{59 82 290ms} 
		{59 63 240ms} 
		{60 84 590ms} 
		{61 88 300ms} 
		{62 94 230ms} 
		{62 63 100ms} 
		{63 99 470ms} 
		{64 65 120ms} 
		{65 66 290ms} 
		{66 67 460ms} 
		{68 71 410ms} 
		{69 70 60ms} 
		{69 71 170ms} 
		{70 71 130ms} 
		{72 73 340ms} 
		{72 74 150ms} 
		{72 75 170ms} 
		{76 77 30ms} 
		{77 79 280ms} 
		{78 79 90ms} 
		{80 81 320ms} 
		{80 82 220ms} 
		{80 83 300ms} 
		{81 83 20ms} 
		{82 83 380ms} 
		{84 85 440ms} 
		{85 87 180ms} 
		{86 87 460ms} 
		{88 89 220ms} 
		{88 90 290ms} 
		{89 90 90ms} 
		{89 91 250ms} 
		{92 93 300ms} 
		{92 95 350ms} 
		{93 94 350ms} 
		{93 95 480ms} 
		{96 98 190ms} 
		{96 99 330ms} 
		{97 98 50ms} 
		{97 99 210ms} 
		{98 99 160ms} 
	} { 
	$ns duplex-link $n([lindex $t 0]) $n([lindex $t 1]) $linkBW [lindex $t 2] DropTail 
	incr i 
	if {[expr $i % 100] == 0} { 
		puts "creating link $i..." 
	} 
 } 
	return 100
}
# end of hier topology generation