Para empezar un script en Tcl

    Siempre empezaremos un programa de la siguiente forma

       set ns [new Simulator]
   
    Esta orden crea una instancia del objeto simulador, diciendole que vamos a realizar una nueva simlación.

    Despues abriremos el fichero donde escribiremos los datos obtenidos por el simulador, para despues leerlo con NAM y los represente de forma gráfica.

     set nf [pen out.nam w]
     $ns namtrace-al $nf

    Lo que hacemos es abrir o crear un fichero llamado "out.nam", donde escribiremos y leeeremos los datos creados por la simulación.
    En la línea sigiente, los datos creados por NS se guardan en el out.nam que los visualizará.

    Debemos poner en el programa un procedimiento "finish", que deberá ser definido al principio del programa, el cual cerrará el fichero de valores de trazado (out.nam) y pondrá en marcha a NAM, este deberá tener la siguiente estructura:

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

    Las siguiente líneas que escribiremos será el tiempo que vamos a simular la red
   
    $ns at<tiempo><elemento>

    Donde <tiempo> será el valor en segundos y <elemento> será en que procedimiento se cierra la simulación, pe:

    $ns at 5.0 "finish"

    Así le decimos a NS que ejecute la  simulación durante 5.0 seg y despues ejecute el procedimiento "finish"

     En la ultima línea del programa será para que aranque la simulación de la siguiente forma

    $ns run

    Como en todo programa desearemos poner comentarios, para poderlo entender en lecturas posteriores , estos los haremos así:

    #Comentario

    El script base quedará de la siguente forma

Este script no es para ejecutar con NS  ya que debermos hacerlo con la red completa, aquí no están definidos ni los nodos, ni los enlaces,etc., que necesitamos en una red y que lo harmos posteriormente.