#routeSH.tcl

set ns [new Simulator]

set nf [open routeSH.nam w]
$ns namtrace-all $nf

#Imposto il protocollo di routing
$ns rtproto DV

proc finish {} {
        global ns nf
        $ns flush-trace
        close $nf
        exec nam routeSH.nam &
        exit 0 
}

#Creazione della topologia
for  {set i 0} {$i < 3} {incr i} {
set n($i) [$ns node]
}

for  {set i 0 } {$i < 3} {incr i} {
    $ns duplex-link $n($i) $n([expr ($i+1)%3]) 1Mb 10ms DropTail
}
set n3 [$ns node]

$ns duplex-link $n(0) $n3 1Mb 10ms DropTail

#Temporizzazione della simulazione
$ns rtmodel-at 1 down $n(0) $n3
$ns rtmodel-at 2 up $n(0) $n3
$ns at 4 "finish"

$ns run