100hts.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):
# 100 374 transtub(0,3,0,0,{1,89,3,1.000,0.000,0.000},{4,44,3,0.600,0.000,0.000},{8,36,3,0.420,0.000,0.000}) 89 2 5 0 

#Creating hierarchical topology from transit-stub graph:

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

	set verbose 1

	if {$verbose} { 
		puts "Creating hierarchical nodes.." 
}
set n(0) [$ns node 0.0.0]
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.4.1]
set n(6) [$ns node 0.4.2]
set n(7) [$ns node 0.4.3]
set n(8) [$ns node 0.5.0]
set n(9) [$ns node 0.5.1]
set n(10) [$ns node 0.5.2]
set n(11) [$ns node 0.5.3]
set n(12) [$ns node 0.5.4]
set n(13) [$ns node 0.5.5]
set n(14) [$ns node 0.5.6]
set n(15) [$ns node 0.5.7]
set n(16) [$ns node 0.6.0]
set n(17) [$ns node 0.6.1]
set n(18) [$ns node 0.6.2]
set n(19) [$ns node 0.6.3]
set n(20) [$ns node 0.6.4]
set n(21) [$ns node 0.6.5]
set n(22) [$ns node 0.6.6]
set n(23) [$ns node 0.6.7]
set n(24) [$ns node 0.6.8]
set n(25) [$ns node 0.6.9]
set n(26) [$ns node 0.6.10]
set n(27) [$ns node 0.7.0]
set n(28) [$ns node 0.7.1]
set n(29) [$ns node 0.7.2]
set n(30) [$ns node 0.7.3]
set n(31) [$ns node 0.7.4]
set n(32) [$ns node 0.7.5]
set n(33) [$ns node 0.7.6]
set n(34) [$ns node 0.7.7]
set n(35) [$ns node 0.7.8]
set n(36) [$ns node 0.8.0]
set n(37) [$ns node 0.8.1]
set n(38) [$ns node 0.8.2]
set n(39) [$ns node 0.8.3]
set n(40) [$ns node 0.8.4]
set n(41) [$ns node 0.8.5]
set n(42) [$ns node 0.9.0]
set n(43) [$ns node 0.9.1]
set n(44) [$ns node 0.9.2]
set n(45) [$ns node 0.9.3]
set n(46) [$ns node 0.9.4]
set n(47) [$ns node 0.9.5]
set n(48) [$ns node 0.9.6]
set n(49) [$ns node 0.10.0]
set n(50) [$ns node 0.10.1]
set n(51) [$ns node 0.10.2]
set n(52) [$ns node 0.10.3]
set n(53) [$ns node 0.10.4]
set n(54) [$ns node 0.10.5]
set n(55) [$ns node 0.10.6]
set n(56) [$ns node 0.10.7]
set n(57) [$ns node 0.10.8]
set n(58) [$ns node 0.10.9]
set n(59) [$ns node 0.11.0]
set n(60) [$ns node 0.11.1]
set n(61) [$ns node 0.11.2]
set n(62) [$ns node 0.11.3]
set n(63) [$ns node 0.11.4]
set n(64) [$ns node 0.11.5]
set n(65) [$ns node 0.11.6]
set n(66) [$ns node 0.11.7]
set n(67) [$ns node 0.11.8]
set n(68) [$ns node 0.12.0]
set n(69) [$ns node 0.12.1]
set n(70) [$ns node 0.12.2]
set n(71) [$ns node 0.12.3]
set n(72) [$ns node 0.12.4]
set n(73) [$ns node 0.12.5]
set n(74) [$ns node 0.12.6]
set n(75) [$ns node 0.12.7]
set n(76) [$ns node 0.12.8]
set n(77) [$ns node 0.13.0]
set n(78) [$ns node 0.13.1]
set n(79) [$ns node 0.13.2]
set n(80) [$ns node 0.13.3]
set n(81) [$ns node 0.13.4]
set n(82) [$ns node 0.13.5]
set n(83) [$ns node 0.13.6]
set n(84) [$ns node 0.13.7]
set n(85) [$ns node 0.13.8]
set n(86) [$ns node 0.13.9]
set n(87) [$ns node 0.14.0]
set n(88) [$ns node 0.14.1]
set n(89) [$ns node 0.14.2]
set n(90) [$ns node 0.14.3]
set n(91) [$ns node 0.14.4]
set n(92) [$ns node 0.15.0]
set n(93) [$ns node 0.15.1]
set n(94) [$ns node 0.15.2]
set n(95) [$ns node 0.15.3]
set n(96) [$ns node 0.15.4]
set n(97) [$ns node 0.15.5]
set n(98) [$ns node 0.15.6]
set n(99) [$ns node 0.15.7]


# Topology information :
lappend eilevel 1 16
AddrParams set eilevel_ $eilevel
lappend eilastlevel 1 1 1 1 4 8 11 9 6 7 10 9 9 10 5 8 
AddrParams set eilastlevel_ $eilastlevel


	# 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(29) $linkBW 320ms DropTail
	$ns duplex-link-of-interfaces $n(0) $n(17) $linkBW 240ms DropTail
	$ns duplex-link-of-interfaces $n(0) $n(12) $linkBW 170ms DropTail
	$ns duplex-link-of-interfaces $n(0) $n(4) $linkBW 310ms DropTail
	$ns duplex-link-of-interfaces $n(0) $n(2) $linkBW 450ms DropTail
	$ns duplex-link-of-interfaces $n(0) $n(3) $linkBW 250ms DropTail
	$ns duplex-link-of-interfaces $n(1) $n(63) $linkBW 30ms DropTail
	$ns duplex-link-of-interfaces $n(1) $n(53) $linkBW 280ms DropTail
	$ns duplex-link-of-interfaces $n(1) $n(44) $linkBW 10ms DropTail
	$ns duplex-link-of-interfaces $n(1) $n(40) $linkBW 300ms DropTail
	if {$verbose} { puts -nonewline "10..."; flush stdout }
	$ns duplex-link-of-interfaces $n(1) $n(2) $linkBW 120ms DropTail
	$ns duplex-link-of-interfaces $n(1) $n(3) $linkBW 190ms DropTail
	$ns duplex-link-of-interfaces $n(2) $n(88) $linkBW 230ms DropTail
	$ns duplex-link-of-interfaces $n(2) $n(80) $linkBW 160ms DropTail
	$ns duplex-link-of-interfaces $n(2) $n(69) $linkBW 80ms DropTail
	$ns duplex-link-of-interfaces $n(2) $n(3) $linkBW 210ms DropTail
	$ns duplex-link-of-interfaces $n(3) $n(95) $linkBW 190ms DropTail
	$ns duplex-link-of-interfaces $n(4) $n(5) $linkBW 90ms DropTail
	$ns duplex-link-of-interfaces $n(4) $n(7) $linkBW 230ms DropTail
	$ns duplex-link-of-interfaces $n(5) $n(6) $linkBW 160ms DropTail
	if {$verbose} { puts -nonewline "20..."; flush stdout }
	$ns duplex-link-of-interfaces $n(6) $n(7) $linkBW 180ms DropTail
	$ns duplex-link-of-interfaces $n(8) $n(9) $linkBW 170ms DropTail
	$ns duplex-link-of-interfaces $n(8) $n(11) $linkBW 100ms DropTail
	$ns duplex-link-of-interfaces $n(9) $n(10) $linkBW 210ms DropTail
	$ns duplex-link-of-interfaces $n(9) $n(12) $linkBW 60ms DropTail
	$ns duplex-link-of-interfaces $n(10) $n(12) $linkBW 250ms DropTail
	$ns duplex-link-of-interfaces $n(10) $n(15) $linkBW 320ms DropTail
	$ns duplex-link-of-interfaces $n(11) $n(12) $linkBW 170ms DropTail
	$ns duplex-link-of-interfaces $n(11) $n(13) $linkBW 170ms DropTail
	$ns duplex-link-of-interfaces $n(11) $n(15) $linkBW 230ms DropTail
	if {$verbose} { puts -nonewline "30..."; flush stdout }
	$ns duplex-link-of-interfaces $n(12) $n(13) $linkBW 10ms DropTail
	$ns duplex-link-of-interfaces $n(12) $n(14) $linkBW 150ms DropTail
	$ns duplex-link-of-interfaces $n(12) $n(15) $linkBW 60ms DropTail
	$ns duplex-link-of-interfaces $n(13) $n(14) $linkBW 140ms DropTail
	$ns duplex-link-of-interfaces $n(16) $n(18) $linkBW 130ms DropTail
	$ns duplex-link-of-interfaces $n(16) $n(20) $linkBW 160ms DropTail
	$ns duplex-link-of-interfaces $n(16) $n(25) $linkBW 180ms DropTail
	$ns duplex-link-of-interfaces $n(17) $n(20) $linkBW 160ms DropTail