#test-1000.tcl# Test for comparing flat rtg with hier routing using topology generated by # GaTech topology generator (1000 node transit-stub graph converted to # flat topologyset ns [new Simulator]source ./ts1000.tclset linkBW 5Mbglobal n ns# $ns namtrace-all [open out-1000.nam w]# $ns trace-all [open out-1000.tr w]create-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) $udp1set cbr1 [new Application/Traffic/CBR]$cbr1 attach-agent $udp1$udp1 set class_ 1set 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