# Creamos el objeto a simular
set ns [new Simulator]
#Abrimos el fichero de trazado 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
    }
#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
#Crear un agente UDP y unirlo al nodo n0
set udp0 [new Agent/UDP]
$ns attach-agent $n0 $udp0
#creamos una fuente de tráfico CBR? que se une a udp0
set cbr0 [new Aplication/Traffic/CBR]
$cbr0 set paquetSize_500
$cbr0 set interval_0.005
$cbr attach-agent $udp0
#Creamos un agente de tipo NULL asociados al nodo 1
 set null0 [new Agent/Null]
$ns attach-agent $ns1 $null0
#Conectamos el tráfico de la fuente con el del receptor
 $ns connect $udp0 $null0
#Fijamos el funcionamiento de eventos de CBR
#Arrancará a los 0.5 seg de empezar la simulación
 $ns at 0.5 "$cbr0 start"
#Y hará la parada a los 4.5 segundos
 $ns at 4.5 "$cbr0 stop"
#Llamamos a la plicacion "finish" despues de 5segundos de simulación
$ns at 5.0 "finish"
#Arrancamos la simulación planteada
$ns run