expt.decay.tcl

来自「采用蚂蚁算法实现ad hoc网络路由协议,平台为ns2」· TCL 代码 · 共 41 行

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) 15

set val(simtime) 300

set val(maxpause) 10
set val(maxspeed) 6 

set val(routingprotocol) SWARM

set val(traffictype) cbr
set val(packetSize)			64
set val(packetsPerSecond)		4

set val(exptname) decay
#set val(keeptrace)	1

foreach val(seed) {21} {
foreach val(scenario) {6 8 7} {
foreach val(maxspeed) {10 20 30 40 60} {
foreach val(decayPerSecond) {1 1.01 1.1 1.2 1.4 2} {
foreach val(probabilityHistory) {2 4 10 15 20} {
    execSimulation
}
}
}
}
}

packageExperimentResults