profile.tcl

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

package require profiler
::profiler::init
set profiled [lindex $argv 0]
set argv [lrange $argv 1 end]
set argc [llength $argv]
source $profiled
puts [::profiler::print]
puts "done"