El script base será

# Creamos un objeto a simular
set ns [new Simulator]
# Abrimos el fichero de trazado de NAM
set nf [pen out.nam w]
$ns namtrace-al $nf
# Definimos el procedimiento "finish"
  poc 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
    }
#En este apartado definiremos los nodos a simular

#En este otro definiremos los enlaces entre los nodos

# Definiremos los protocolos que se van a ejecutar en la simulación

#Aplicaciones

#El tiempo de la simulacion y llamada la procedimiento
$ns at 5.0 "finish"
# Arrancaremos  la simulación panteada
$ns run