[DCCN] 1st lab NS2

node-creation.tcl

#Create a simulator object
set ns [new Simulator]

#Open the NAM trace file
set nf [open out.nam w]
$ns namtrace-all $nf

# Define finish procedure
proc finish {} {
  global ns nf
  $ns flush-trace
  #close nam trace file
  close $nf
  #execute nam on the trace file
  exec nam out.nam &
  exit 0 
}

#create four nodes
set n0 [$ns node]
set n1 [$ns node]
set n2 [$ns node]
set n3 [$ns node]

$ns duplex-link $n0 $n2 2Mb 10ms DropTail
$ns duplex-link $n1 $n2 2Mb 10ms DropTail
$ns duplex-link $n2 $n3 1.7Mb 5ms RED

$ns duplex-link-op $n0 $n2 orient right-up
$ns duplex-link-op $n1 $n2 orient up
$ns duplex-link-op $n2 $n3 orient right

$n0 shape hexagon
$n1 shape hexagon
$n3 shape hexagon

$ns at 10.0 "finish"
$ns run