newprot.tcl

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

source runsimulation.tcl

set simulationlibrary swarmsimulations.tcl
loadSimulationLibrary

set val(mobilenodes) 10
set val(fixednodes) 26
set val(servernodes) 1
set val(clientnodes) 1
set val(numflows) 1

set val(simtime) 30

set val(maxpause) 5
set val(maxspeed) 20

set val(scenario) 4
set val(seed) 16
set val(routingprotocol) SWARM

set val(traffictype) cbr
set val(exptname) new

set val(keeptrace) 1

set val(dumpevery) 0.2
set val(dumpto) 75

set val(maxReceivesWithoutSend)		5
set val(routeTimeout)			10
set val(maxPacketReceiveRate)		150

#foreach val(seed) {13 14 16 18 20 24 26} {
#foreach val(numflows) {1 2 4 6 8 10} {
#foreach val(routingprotocol) {SWARM DSR AODV} {
    set val(scenario) $val(seed)
    execSimulation
#}
#    }
#    }

packageExperimentResults