이동체 위치 기록 함수

proc log-movement {} {

global logtimer ns_ ns
set ns $ns_
source ../mobility/timer.tcl
Class LogTimer -superclass Timer
LogTimer instproc timeout {} {
  global opt node_;
  for {set i 0} {$i < $opt(nn)} {incr i} {
       $node_($i) log-movement
  }
  $self sched 0.1
}
set logtimer [new LogTimer]
$logtimer sched 0.1
}