ZRP from DAIICT 测试 Tcl

http://magnet.daiict.ac.in/magnet_members/MTech/2007/PatelBrijesh/Simulation.html

 #"Agent/ZRP set radius_ 2" set val(chan) Channel/WirelessChannel;# set val(prop) Propagation/TwoRayGround;# set val(netif) Phy/WirelessPhy;# set val(mac) Mac/802_11;# set val(ifq) Queue/DropTail/PriQueue;# set val(ll) LL;# set val(ant) Antenna/OmniAntenna;# set val(ifqlen) 50;# set val(nn) 25;# set val(rp) ZRP;# set val(x) 600;# set val(y) 600;# set val(stop) 30.0;# Agent/ZRP set radius_ 2;# remove-all-packet-headers add-packet-header Common Flags IP RTP ARP GAF LL LRWPAN Mac ZRP set ns_ [new Simulator] $ns_ use-newtrace set tracefd [open Grid-TCl.tr w] $ns_ trace-all $tracefd set namtrace [open Grid-TCl.nam w] $ns_ namtrace-all-wireless $namtrace $val(x) $val(y) set topo [new Topography] $topo load_flatgrid $val(x) $val(y) set god_ [create-god $val(nn)] $ns_ node-config -adhocRouting $val(rp)/ -llType $val(ll)/ -macType $val(mac)/ -ifqLen $val(ifqlen)/ -ifqType $val(ifq)/ -antType $val(ant)/ -propType $val(prop)/ -phyType $val(netif)/ -channelType $val(chan)/ -topoInstance $topo/ -agentTrace ON/ -routerTrace ON/ -macTrace OFF/ -movementTrace OFF for {set i 0} {$i<$val(nn)} {incr i} { set node_($i) [$ns_ node] $node_($i) random-motion 0;# } for {set i 0} {$i<5} {incr i} { for {set j 0} {$j<5} {incr j} { set id [expr $i*5+$j] set X [expr $j*140+20] set Y [expr $i*140+20] $node_($id) set X_ [expr $j*140+20] $node_($id) set Y_ [expr $i*140+20] $node_($id) set Z_ 0.0 puts "CO-ORD of Node $id=($X,$Y)" } } for {set i 0} {$i<$val(nn)} {incr i} { $ns_ at $val(stop).0 "$node_($i) reset" } $ns_ at $val(stop).0002 "puts /"NS EXITING.../";$ns_ halt" puts $tracefd "M 0.0 nn $val(nn) x $val(x) y $val(y) rp $val(rp)" puts $tracefd "M 0.0 prop $val(prop) ant $val(ant)" proc stop {} { global ns_ tracefd $ns_ flush-trace close $tracefd } puts "Starting Simulation..." $ns_ run

效果如下

[root@localhost ExampleTcl_for_ZRP]# /home/zrp/ns-allinone-2.33/ns-2.33/ns exForZRP.tcl num_nodes is set 25 warning: Please use -channel as shown in tcl/ex/wireless-mitf.tcl INITIALIZE THE LIST xListHead CO-ORD of Node 0=(20,20) CO-ORD of Node 1=(160,20) CO-ORD of Node 2=(300,20) CO-ORD of Node 3=(440,20) CO-ORD of Node 4=(580,20) CO-ORD of Node 5=(20,160) CO-ORD of Node 6=(160,160) CO-ORD of Node 7=(300,160) CO-ORD of Node 8=(440,160) CO-ORD of Node 9=(580,160) CO-ORD of Node 10=(20,300) CO-ORD of Node 11=(160,300) CO-ORD of Node 12=(300,300) CO-ORD of Node 13=(440,300) CO-ORD of Node 14=(580,300) CO-ORD of Node 15=(20,440) CO-ORD of Node 16=(160,440) CO-ORD of Node 17=(300,440) CO-ORD of Node 18=(440,440) CO-ORD of Node 19=(580,440) CO-ORD of Node 20=(20,580) CO-ORD of Node 21=(160,580) CO-ORD of Node 22=(300,580) CO-ORD of Node 23=(440,580) CO-ORD of Node 24=(580,580) Starting Simulation... channel.cc:sendUp - Calc highestAntennaZ_ and distCST_ highestAntennaZ_ = 1.5, distCST_ = 550.0 SORTING LISTS ...DONE! NS EXITING...