expt.temp-and-rewards.tcl

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

source runsimulation.tcl

set simulationlibrary swarmsimulations.tcl
loadSimulationLibrary

foreach val(mobilenodes) {50 100} {
    set val(clientnodes) $val(mobilenodes)
    set val(fixednodes) 26
    set val(servernodes) 3
    set val(numflows) 8

    set val(simtime) 500

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

    set val(routingprotocol) SWARM

    set val(traffictype) cbr

    set val(exptname) temp-and-rewards-$val(mobilenodes)

    foreach val(seed) {21} {
    foreach val(scenario) {5 6 8 7} {
    foreach val(maxpause) {70 100 200} {
    foreach temperatureMult {0.1 0.2 0.3 0.4 0.6 0.8 1.0 } {
    foreach val(broadcastReward) {-2 -4 -8 -12 -20} {
	set val(temperature) [expr -$temperatureMult * $val(broadcastReward)]
	execSimulation
    }
    }
    }
    }
    }
}

set val(exptname) temp-and-rewards
packageExperimentResults