ring.tcl

基于 NS2 的 AntNet 源代码

# tcl script for AntNet algorithm on ring topology of 3 nodes

#number of nodes
set sz 3

#Create event Schedular
set ns [ new Simulator ]

#Open the Trace file
set tf [open antnet_trace.out w]
$ns trace-all $tf

#Create 3 nodes
for {set i 0} {$i < $sz} {incr i} {
	set n($i) [$ns node]
}

#Create links between the nodes
for {set i 0} {$i < $sz} {incr i} {
	for {set j 0} {$j < $sz} {incr j} {
		if {$i != $j} {
			$ns duplex-link $n($i) $n($j) 512Mb 155ms DropTail
		}
	}
}


#Create Antnet agents
for {set i 0} {$i < $sz} {incr i} {
	set   nn($i)  [ new Agent/Antnet $i]
}

#Attach each node with Antnet agent
for {set i 0} {$i < $sz} {incr i} {
	$ns attach-agent  $n($i)  $nn($i)
}

#Create connection between the nodes
for {set i 0} {$i < $sz} {incr i} {
	for {set j 0} {$j < $sz} {incr j} {
		if {$i != $j} {
			$ns connect $nn($i) $nn($j)
			$ns connect $nn($j) $nn($i)
		}
	}
}

#Add neighbors
for {set j 1} {$j < $sz} {incr j} {
	$ns at now "$nn(0) add-neighbor $n(0) $n($j)"
}
$ns at now "$nn(0) add-neighbor $n(1) $n(2)"

#Set parameters and start time for AntNet algorithm
for {set i 0} {$i < $sz} {incr i} {
	$nn($i) set num_nodes_ $sz
	$nn($i) set timer_ant_ 0.001
	$nn($i) set r_factor_ 0.05
	$ns  at  1.0  "$nn($i) start"
}

#Set stop time for AntNet algorithm
for {set i 0} {$i < $sz} {incr i} {
	$ns  at 3.0 "$nn($i) stop"
}

#Print routing tables generated by AntNet
for {set i 0} {$i < $sz} {incr i} {
	$ns at 4.5 "$nn($i) print_rtable"
}

# Final Wrap up
proc Finish {} {
	global ns tf
	$ns   flush-trace
	#Close the Trace file
        close $tf
}

$ns  at 5.0 "Finish"

# Start the simulator
$ns  run