# Creamos el objeto a simular
set ns [new Simulator]
#Abrimos el fichero de trazado NAM
set nf [open out.nam w]
$ns namtrace-all $nf
# Definimos el procedimiento "finish"
  proc finish{} {
       global ns nf
       $ns flush-trace
# Cerramos el fichero de trazado
       close $nf
# Ejecutamos NAM con el fichero de trazado
    exec nam out.nam &
    exit 0
    }
#Definimos los nodos que necesita la simulación
set n0[$ns node]
set n1[$ns node]
# Definimos los enlaces entre nodos
$ns duplex-link $n0 $n1 1Mb 10ms DropTail
#Llamamos a la plicacion "finish" despues de 5segundos de simulación
$ns at 5.0 "finish"
#Arrancamos la simulación planteada
$ns run