expt.das.compare.tcl

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

source runsimulation.tcl
get_expt_opts

set simulationlibrary adhoc_simulations.tcl
loadSimulationLibrary

set val(numnodes) 50
set val(simtime) 900
set val(maxspeed) 20

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

set val(maxx)				1500
set val(maxy)				300
set val(txPower)        0.2818	;# 250m range
set val(ifqlen)         64                         ;# max packet in ifq

set val(exptname) compare-das
set filebase_format "simulation_results/\$val(exptname)-\$val(numflows)-\$val(routingprotocol)-\$filecounter-\$val(time)"

foreach val(scenario) {7 8 9 10 11} {
foreach val(numflows) {10} {
foreach val(maxpause) {0 25 60 120 300 600 900} {
foreach val(routingprotocol) {AODV DSR SWARM} {
    set val(seed) $val(scenario)
    execSimulation
}
}
}
}

packageExperimentResults