expt.demo.tcl

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

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(simtime) 300

set val(maxpause) 30
set val(maxspeed) 10 

set val(traffictype) cbr

set val(exptname) demo
set val(packetSize)			64
set val(packetsPerSecond)		4

foreach val(seed) {3} {
foreach val(scenario) {3 4} {
foreach val(routingprotocol) {DSR AODV SWARM} {
# 20 experiments:
    foreach val(numflows) {5 10 15 20 25} {
    foreach val(packetSize) {64 128 256 512} {
	execSimulation
    }
    }
}
}
}

packageExperimentResults