expt.service-assumption.tcl

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

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(numflows) 12

set val(simtime) 500

set val(maxpause) 5
set val(maxspeed) 6 

set val(routingprotocol) SWARM

set val(traffictype) cbr

set val(exptname) service-assumption

#set val(keeptrace)	1
#foreach val(maxpause) {0 5 10 20 40 70 100 200} {

foreach val(seed) {1} {
foreach val(scenario) {1 2} {
foreach val(maxpause) {10 20 50 70 100 200} {
foreach val(routingprotocol) {AODV SWARM DSR} {
foreach val(servernodes) {1 2 3 4 6 8 12} {
    execSimulation
}
}
}
}
}

packageExperimentResults