source ../../tcl/isisnodes.tclsource ../../tcl/ns-rtProtoISIS.tclset ns [new Simulator]$ns use-scheduler Calendar$ns rtproto ISISset nf [open out.nam w]$ns namtrace-all $nfset in [new ISISNodes]$in buildnet 4 24 40 3 10#$in maketranslateputs stderr "[$ns get-number-of-nodes]"proc init {} {    global n ns nf    $ns ISISchangeCost 10    $ns ISIScmd log telianet.log    $ns readISISconfig isis.conf    $ns ISIScmd run}proc finish {} {    global ns nf    $ns flush-trace    close $nf    $ns ISIScmd finish#    exec nam out.nam    exit 0}for {set i 0} {$i < 20} {incr i} {    $in linkevent_a-d [expr 10 + $i * 0.000001] cost}$ns at 0 "init"for {set i 0} {$i < 31} {incr i} {    $ns at $i "puts stderr $i"}$ns at 9.9 "$ns setISISparam lspDelay 0"$ns at 9.9 "$ns setISISparam lspThrottle 33"$ns at 9.9 "$ns setISISparam SPFdelay 5500"$ns at 30 "finish"$ns run