rerun.tcl

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

source runsimulation.tcl

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