rerun.tcl

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

source runsimulation.tcl

foreach val(filebase) [glob log/*SWARM*] {
    puts "ns nsslave.tcl $val(filebase)"
    exec ns nsslave.tcl $val(filebase) >&@stdout
}