expt.improveresend.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) 15

set val(simtime) 300

set val(maxpause) 30
set val(maxspeed) 6 

set val(routingprotocol) SWARM

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

set val(exptname) improve-resend
#set val(keeptrace)	1

foreach val(seed) {21} {
foreach val(scenario) {5 6 8 7} {
foreach val(mobilenodes) {20 40 60 80 100} {
foreach val(improvementForResend) {0 0.1 0.3 0.5 0.7 1.0 2.0 4.0} {
    execSimulation
}
}
}
}

packageExperimentResults