expt.stable-assumption.tcl

采用蚂蚁算法实现ad hoc网络路由协议,平台为ns2

source runsimulation.tcl
get_expt_opts

set simulationlibrary swarmsimulations.tcl
loadSimulationLibrary

set val(mobilenodes) 50
set val(clientnodes) 50
set val(fixednodes) 26
set val(servernodes) 3
set val(numflows) 10

set val(simtime) 250

set val(maxpause) 5
set val(maxspeed) 10 

set val(routingprotocol) SWARM

set val(traffictype) cbr

set val(exptname) stable-assumption64
set val(packetSize)			64
set val(packetsPerSecond)		4
set val(probabilityHistory)		10

foreach val(seed) {1} {
foreach val(scenario) {1 2} {
foreach val(maxpause) {0 50 100 200} {
foreach val(routingprotocol) {AODV SWARM DSR} {
foreach val(fixednodes) {3 6 9 12 15 18 21 24 26} {
    set val(mobilenodes) [expr 80 - $val(fixednodes)]
    execSimulation
}
}
}
}
}

packageExperimentResults