hts100-0.tcl

对IEEE 802.11e里的分布式信道接入算法EDCA进行改进

# 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 386 transtub(0,3,0,0,{4,89,3,1.000,0.000,0.000},{1,44,3,0.600,0.000,0.000},{8,46,3,0.420,0.000,0.000}) 89 0 4 1 

#Creating hierarchical topology from transit-stub graph:

proc create-hier-topology {linkBW} {
	global ns n

	set verbose 1

	if {$verbose} { 
		puts "Creating hierarchical nodes.." 
}
set n(0) [$ns node 0.0.0]
	if {$verbose} { puts -nonewline "0..."; flush stdout }
set n(1) [$ns node 0.1.0]
set n(2) [$ns node 0.1.1]
set n(3) [$ns node 0.1.2]
set n(4) [$ns node 0.1.3]
set n(5) [$ns node 0.1.4]
set n(6) [$ns node 0.1.5]
set n(7) [$ns node 0.1.6]
set n(8) [$ns node 0.1.7]
set n(9) [$ns node 0.2.0]
set n(10) [$ns node 0.2.1]
set n(11) [$ns node 0.2.2]
set n(12) [$ns node 0.2.3]
set n(13) [$ns node 0.2.4]
set n(14) [$ns node 0.2.5]
set n(15) [$ns node 0.2.6]
set n(16) [$ns node 0.2.7]
set n(17) [$ns node 0.3.0]
set n(18) [$ns node 0.3.1]
set n(19) [$ns node 0.3.2]
set n(20) [$ns node 0.3.3]
set n(21) [$ns node 0.3.4]
set n(22) [$ns node 0.3.5]
set n(23) [$ns node 0.3.6]
set n(24) [$ns node 0.3.7]
set n(25) [$ns node 1.0.0]
set n(26) [$ns node 1.1.0]
set n(27) [$ns node 1.1.1]
set n(28) [$ns node 1.1.2]
set n(29) [$ns node 1.1.3]
set n(30) [$ns node 1.1.4]
set n(31) [$ns node 1.2.0]
set n(32) [$ns node 1.2.1]
set n(33) [$ns node 1.2.2]
set n(34) [$ns node 1.2.3]
set n(35) [$ns node 1.2.4]
set n(36) [$ns node 1.2.5]
set n(37) [$ns node 1.2.6]
set n(38) [$ns node 1.2.7]
set n(39) [$ns node 1.2.8]
set n(40) [$ns node 1.2.9]
set n(41) [$ns node 1.3.0]
set n(42) [$ns node 1.3.1]
set n(43) [$ns node 1.3.2]
set n(44) [$ns node 1.3.3]
set n(45) [$ns node 1.3.4]
set n(46) [$ns node 1.3.5]
set n(47) [$ns node 1.3.6]
set n(48) [$ns node 1.3.7]
set n(49) [$ns node 1.3.8]
set n(50) [$ns node 2.0.0]
set n(51) [$ns node 2.1.0]
set n(52) [$ns node 2.1.1]
set n(53) [$ns node 2.1.2]
set n(54) [$ns node 2.1.3]
set n(55) [$ns node 2.1.4]
set n(56) [$ns node 2.1.5]
set n(57) [$ns node 2.1.6]
set n(58) [$ns node 2.1.7]
set n(59) [$ns node 2.2.0]
set n(60) [$ns node 2.2.1]
set n(61) [$ns node 2.2.2]
set n(62) [$ns node 2.2.3]
set n(63) [$ns node 2.2.4]
set n(64) [$ns node 2.2.5]
set n(65) [$ns node 2.2.6]
set n(66) [$ns node 2.2.7]
set n(67) [$ns node 2.2.8]
set n(68) [$ns node 2.2.9]
set n(69) [$ns node 2.2.10]
set n(70) [$ns node 2.2.11]
set n(71) [$ns node 2.3.0]
set n(72) [$ns node 2.3.1]
set n(73) [$ns node 2.3.2]
set n(74) [$ns node 2.3.3]
set n(75) [$ns node 3.0.0]
set n(76) [$ns node 3.1.0]
set n(77) [$ns node 3.1.1]
set n(78) [$ns node 3.1.2]
set n(79) [$ns node 3.1.3]
set n(80) [$ns node 3.1.4]
set n(81) [$ns node 3.1.5]
set n(82) [$ns node 3.1.6]
set n(83) [$ns node 3.1.7]
set n(84) [$ns node 3.1.8]
set n(85) [$ns node 3.1.9]
set n(86) [$ns node 3.2.0]
set n(87) [$ns node 3.2.1]
set n(88) [$ns node 3.2.2]
set n(89) [$ns node 3.2.3]
set n(90) [$ns node 3.2.4]
set n(91) [$ns node 3.3.0]
set n(92) [$ns node 3.3.1]
set n(93) [$ns node 3.3.2]
set n(94) [$ns node 3.3.3]
set n(95) [$ns node 3.3.4]
set n(96) [$ns node 3.3.5]
set n(97) [$ns node 3.3.6]
set n(98) [$ns node 3.3.7]
set n(99) [$ns node 3.3.8]


# Topology information :
lappend domain 4
AddrParams set domain_num_ $domain
lappend cluster 4 4 4 4 
AddrParams set cluster_num_ $cluster
lappend eilastlevel 1 8 8 8 1 5 10 9 1 8 12 4 1 10 5 9 
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(75) $linkBW 410ms DropTail
	$ns duplex-link-of-interfaces $n(0) $n(50) $linkBW 350ms DropTail
	$ns duplex-link-of-interfaces $n(0) $n(25) $linkBW 170ms DropTail
	$ns duplex-link-of-interfaces $n(0) $n(25) $linkBW 170ms DropTail
	$ns duplex-link-of-interfaces $n(0) $n(50) $linkBW 350ms DropTail
	$ns duplex-link-of-interfaces $n(0) $n(75) $linkBW 410ms DropTail
	$ns duplex-link-of-interfaces $n(0) $n(23) $linkBW 160ms DropTail
	$ns duplex-link-of-interfaces $n(0) $n(11) $linkBW 350ms DropTail
	$ns duplex-link-of-interfaces $n(0) $n(5) $linkBW 210ms DropTail
	$ns duplex-link-of-interfaces $n(1) $n(2) $linkBW 320ms DropTail
	if {$verbose} { puts -nonewline "10..."; flush stdout }
	$ns duplex-link-of-interfaces $n(2) $n(3) $linkBW 500ms DropTail
	$ns duplex-link-of-interfaces $n(2) $n(5) $linkBW 260ms DropTail
	$ns duplex-link-of-interfaces $n(2) $n(7) $linkBW 330ms DropTail
	$ns duplex-link-of-interfaces $n(2) $n(8) $linkBW 60ms DropTail
	$ns duplex-link-of-interfaces $n(3) $n(7) $linkBW 220ms DropTail
	$ns duplex-link-of-interfaces $n(4) $n(5) $linkBW 120ms DropTail
	$ns duplex-link-of-interfaces $n(5) $n(7) $linkBW 80ms DropTail
	$ns duplex-link-of-interfaces $n(6) $n(7) $linkBW 160ms DropTail
	$ns duplex-link-of-interfaces $n(9) $n(11) $linkBW 190ms DropTail
	$ns duplex-link-of-interfaces $n(9) $n(14) $linkBW 370ms DropTail
	if {$verbose} { puts -nonewline "20..."; flush stdout }
	$ns duplex-link-of-interfaces $n(9) $n(15) $linkBW 100ms DropTail
	$ns duplex-link-of-interfaces $n(9) $n(16) $linkBW 350ms DropTail
	$ns duplex-link-of-interfaces $n(10) $n(11) $linkBW 240ms DropTail
	$ns duplex-link-of-interfaces $n(10) $n(12) $linkBW 160ms DropTail
	$ns duplex-link-of-interfaces $n(10) $n(14) $linkBW 210ms DropTail
	$ns duplex-link-of-interfaces $n(10) $n(15) $linkBW 130ms DropTail
	$ns duplex-link-of-interfaces $n(11) $n(12) $linkBW 290ms DropTail
	$ns duplex-link-of-interfaces $n(11) $n(14) $linkBW 250ms DropTail
	$ns duplex-link-of-interfaces $n(11) $n(15) $linkBW 150ms DropTail
	$ns duplex-link-of-interfaces $n(11) $n(16) $linkBW 330ms DropTail
	if {$verbose} { puts -nonewline "30..."; flush stdout }
	$ns duplex-link-of-interfaces $n(12) $n(13) $linkBW 360ms DropTail
	$ns duplex-link-of-interfaces $n(12) $n(14) $linkBW 360ms DropTail
	$ns duplex-link-of-interfaces $n(12) $n(15) $linkBW 150ms DropTail
	$ns duplex-link-of-interfaces $n(12) $n(16) $linkBW 270ms DropTail
	$ns duplex-link-of-interfaces $n(13) $n(15) $linkBW 220ms DropTail
	$ns duplex-link-of-interfaces $n(13) $n(16) $linkBW 440ms DropTail
	$ns duplex-link-of-interfaces $n(14) $n(15) $linkBW 270ms DropTail
	$ns duplex-link-of-interfaces $n(15) $n(16) $linkBW 260ms DropTail
	$ns duplex-link-of-interfaces $n(17) $n(18) $linkBW 180ms DropTail
	$ns duplex-link-of-interfaces $n(17) $n(20) $linkBW 240ms DropTail
	if {$verbose} { puts -nonewline "40..."; flush stdout }
	$ns duplex-link-of-interfaces $n(17) $n(23) $linkBW 320ms DropTail