# hier-test-1000.tcl# Test for hier routing using topology generated by GaTech topology generator# (1000 node transit-stub graph converted to hierarchical topologyset ns [new Simulator]$ns set-address-format hierarchicalsource ./hts1000.tclset linkBW 5Mbglobal n ns#$ns namtrace-all [open hier-out-1000.nam w]#$ns trace-all [open hier-out-1000.tr w]create-hier-topology $linkBWset udp0 [new Agent/UDP]$ns attach-agent $n(0) $udp0set cbr0 [new Application/Traffic/CBR]$cbr0 attach-agent $udp0set udp1 [new Agent/UDP]$ns attach-agent $n(500) $udp1$udp1 set class_ 1set cbr1 [new Application/Traffic/CBR]$cbr1 attach-agent $udp1set null0 [new Agent/Null]$ns attach-agent $n(10) $null0set null1 [new Agent/Null]$ns attach-agent $n(600) $null1$ns connect $udp0 $null0$ns connect $udp1 $null1$ns at 1.0 "$cbr0 start"$ns at 1.1 "$cbr1 start"set tcp [new Agent/TCP]$tcp set class_ 2set sink [new Agent/TCPSink]$ns attach-agent $n(0) $tcp$ns attach-agent $n(5) $sink$ns connect $tcp $sinkset ftp [new Source/FTP]$ftp set agent_ $tcp$ns at 1.2 "$ftp start"$ns at 3.0 "finish"puts [$cbr0 set packetSize_]puts [$cbr0 set interval_]$ns at 3.0 "finish"proc finish {} {    global ns     $ns flush-trace    puts "running nam..."    exec nam out.nam &    exit 0}$ns run