hier1-0.tcl

large network creation

# GRAPH (#nodes #edges id uu vv ww xx yy zz):
# 10 32 geo_hier(0,1,0,0,[{10,10,3,0.500,0.000,0.000}]) 10 

# Create a new simulator object.
set ns [new Simulator]
# Create a nam trace datafile.
set namfile [open /root/Desktop/hier1-0.nam w]
$ns namtrace-all $namfile


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 < 10} {incr i} {
			set n($i) [$ns node]
	}

	# EDGES (from-node to-node length a b):
	if {$verbose} { 
		puts -nonewline "Creating links 0..."
		flush stdout 
	}
	set i 0 
	foreach t { 
		{0 9 30ms} 
		{0 5 70ms} 
		{0 2 20ms} 
		{0 1 90ms} 
		{1 8 90ms} 
		{1 7 110ms} 
		{1 6 60ms} 
		{1 4 110ms} 
		{1 2 90ms} 
		{2 8 40ms} 
		{2 3 60ms} 
		{4 9 40ms} 
		{5 9 60ms} 
		{5 7 90ms} 
		{6 8 40ms} 
		{6 7 50ms} 
	} { 
	$ns duplex-link-of-interfaces $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 10}

# Run the simulation
proc finish {} {
	global ns namfile 
	$ns flush-trace
	close $namfile
	exec nam -r 2000.000000us /root/Desktop/hier1-0.nam &	
	exit 0
	}
$ns at 60.000000 "finish"
$ns run