AODV.rar_AODV仿真_NS2 aodv_NS2路由协议_aodv_aodv ns2

set val(chan) Channel/WirelessChannel ;#Channel Type set val(prop) Propagation/TwoRayGround ;# radio-propagationmodel set val(netif) Phy/WirelessPhy ;# network interface type set val(mac) Mac/802_11 ;# MAC type set val(ifq) Queue/DropTail/PriQueue ;# interface queue type set val(ll) LL ;# link layer type set val(ant) Antenna/OmniAntenna ;# antenna model set val(x) 100 set val(y) 60 set val(ifqlen) 64 ;# max packet in ifq set val(seed) 1.0 set val(adhocRouting) AODV set val(nn) 5 set val(cp) "ttflow" set val(sc) "ttscen" set val(stop) 90.0 set ns_ [new Simulator] set tracefd [open tt.tr w] $ns_ trace-all $tracefd $ns_ use-newtrace set namtracefd [open tt.nam w] $ns_ namtrace-all-wireless $namtracefd $val(x) $val(y) set topo [new Topography] $topo load_flatgrid $val(x) $val(y) set god_ [create-god $val(nn)] set chan_1_ [new $val(chan)] $ns_ node-config -adhocRouting $val(adhocRouting) \ -llType $val(ll) \ -macType $val(mac) \ -ifqType $val(ifq) \ -ifqLen $val(ifqlen) \ -antType $val(ant) \ -propType $val(prop) \ -phyType $val(netif) \ -channel $chan_1_ \ -topoInstance $topo \ -agentTrace ON \ -routerTrace ON \ -macTrace OFF for {set i 0} {$i < $val(nn) } {incr i} { set node_($i) [$ns_ node] $node_($i) random-motion 0 ;# disable random motion } puts "Loading connection pattern..." source $val(cp) puts "Loading scenario file..." source $val(sc) for {set i 0} {$i < $val(nn) } {incr i} { $ns_ initial_node_pos $node_($i) 5 } for {set i 0} {$i < $val(nn) } {incr i} { $ns_ at $val(stop).0 "$node_($i) reset"; } $ns_ at $val(stop).0002 "puts \"NS2 EXITING...\"; $ns_ halt" $ns_ run