NS2

È­ÀÏÀ̸§ :  two_one.tcl 

  set ns [new Simulator]
  set nf [open out.nam w]
  $ns namtrace-all $nf

  proc finish {} {
      global ns nf
      $ns flush-trace
      close $nf
      exec nam out.nam &
      exit 0
  }

  set n0 [$ns node]
  set n1 [$ns node]

  $ns duplex-link $n0 $n1 1Mb 10ms DropTail

  $ns at 5.0 "finish"
  $ns run

½ÇÇà : ns two_one.tcl