plot-arena.tcl

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

source runsimulation.tcl

set simulationlibrary swarmsimulations.tcl
loadSimulationLibrary

# this script is purely for generating a view of the arena,
# which tehn needs to be hand-tweaked a bit.

set val(mobilenodes) 0
set val(fixednodes) 33
set val(servernodes) 1
set val(numflows) 1

set val(simtime) 150

set val(maxpause) 5
set val(maxspeed) 25

set val(scenario) 1
set val(seed) 18
set val(routingprotocol) SWARM

set val(traffictype) cbr
set val(exptname) plot-arena

set val(keeptrace) 1

set val(dumpevery) 0.5
set val(dumpto) 75

set val(maxReceivesWithoutSend)		5

set val(specialtraffic) 1
set val(specialtrafficfile) traffic/empty

execSimulation

puts "creating movie!"
exec tclsh analyse-visual.tcl latest/ns2.tr plot-arena-visual.avi 2 >&@stdout