無線模擬問題

Question

我不能運行這個模擬：

set pairs [lindex $argv 0] 

# ==================================== 
# Define options 
# ==================================== 
set val(chan)   Channel/WirelessChannel ;# channel type 
set val(prop)   Propagation/TwoRayGround ;# radio-propagation model 
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(ifqlen)   50       ;# max packet in ifq 
set val(nn)    $pairs      ;# pair of mobilenodes 
set val(rp)    DSDV      ;# routing protocol 

# ====================================== 
# Main Program 
# ====================================== 

# 
# Initialize Global Variables 
# 

set ns [new Simulator] 
set tracefd [open wl.tr w] 

$ns use-newtrace 
$ns trace-all $tracefd 

# set up topography object 
set topo [new Topography] 
#1000x1000m terrain 
$topo load_flatgrid 1000 1000 

# 
# Create General Operations Director 
# 

set god_ [ create-god $val(nn) ] 

Mac/802_11 set RTSThreshold_ 3000 

# 
# Create the specified number of mobilenodes [$val(nn)] and "attach" them 
# to the channel. 

# configure node 

     $ns node-config -adhocRouting $val(rp) \ 
      -llType $val(ll) \ 
      -macType $val(mac) \ 
      -ifqType $val(ifq) \ 
      -ifqLen $val(ifqlen) \ 
      -antType $val(ant) \ 
      -propType $val(prop) \ 
      -phyType $val(netif) \ 
      -channel [new $val(chan)] \ 
      -topoInstance $topo \ 
      -agentTrace ON \ 
      -routerTrace ON \ 
      -macTrace OFF \ 
      -movementTrace OFF 

    for {set i 0} {$i < [expr {2*$val(nn)}] } {incr i} { 
     set node_($i) [$ns node]  
     $node_($i) random-motion 0 ;# disable random motion 
    } 

# 
# Provide initial (X,Y, Z=0) co-ordinates for mobilenodes 
# 
set rng [new RNG] 
$rng seed 0 

set unit 10.0; 
set even_x 50.0; 
set even_y 50.0; 
set odd_x 50.0; 
set odd_y 0.0; 
for {set i 0} { $i < [expr {2*$val(nn)}] } {incr i} { 
    set residue [expr {$i%2}]; 
#puts $residue 
    set rand [expr [$rng uniform 0 1] + [ns-random 0] % 100]; 
    if { $residue ==0 } { 

     $node_($i) set X_ [expr {$even_x + $rand}]; 
     $node_($i) set Y_ [expr {$even_y }] 
     $node_($i) set Z_ 0.0; 
    } else { 
     $node_($i) set X_ [expr {$odd_x + $rand}]; 
     $node_($i) set Y_ [expr {$odd_y}]; 
     $node_($i) set Z_ 0.0; 
    } 
} 

for {set i 0} { $i < $val(nn) } {incr i} { 
    set null_($i) [new Agent/Null] 
    $ns attach-agent $node_([expr {($i*2)+1}]) $null_($i) 
    set udp_($i) [new Agent/UDP] 
    $ns attach-agent $node_([expr {2*$i}]) $udp_($i) 
    set cbr_($i) [new Application/Traffic/CBR] 
    $cbr_($i) set packetSize_ 1440 
    $udp_($i) set packetSize_ 1440 
    $cbr_($i) set rate_ 500k 
    $cbr_($i) attach-agent $udp_($i) 
    $ns connect $udp_($i) $null_($i) 
} 

for {set i 0} {$i < $val(nn)} {incr i} { 
     $ns at 0.0 "$cbr_($i) start" 
     $ns at 120.0 "$cbr_($i) stop" 
} 
$ns at 120.0 "$ns halt" 
$ns run 
$ns flush-trace 
close $tracefd 
puts "Starting Simulation..." 
$ns run 

我得到這個錯誤 可以在任何一個請幫助我！

MAC_802_11: accessing MAC cache_ array out of range (src 33, dst 32, size 20)! 
MAC_802_11: accessing MAC cache_ array out of range (src 33, dst 32, size 20)! 
MAC_802_11: accessing MAC cache_ array out of range (src 33, dst 32, size 20)! 
MAC_802_11: accessing MAC cache_ array out of range (src 32, dst 33, size 20)! 
MAC_802_11: accessing MAC cache_ array out of range (src 32, dst 33, size 20)! 
MAC_802_11: accessing MAC cache_ array out of range (src 32, dst 33, size 20)! 
MAC_802_11: accessing MAC cache_ array out of range (src 32, dst 33, size 20)! 
MAC_802_11: accessing MAC cache_ array out of range (src 32, dst 33, size 20)! 
MAC_802_11: accessing MAC cache_ array out of range (src 32, dst 33, size 20)! 
MAC_802_11: accessing MAC cache_ array out of range (src 32, dst 33, size 20)! 
[suppressing additional MAC cache_ warnings] 

Answer 1

以下各行導致此問題：

組god_ [創建神$ VAL（NN）]

god_告知準備時間nn的節點。但幾行後：

爲{集I 0} {$ I < [EXPR {2 * $ VAL（NN）}]} {增量I} {

創建2 * nn個節點。創建神[expr {2 * $ val（nn）}]或者去掉代碼中出現的2 *。

Answer 2

每http://www.isi.edu/nsnam/archive/ns-users/webarch/2001/msg04753.html，嘗試

集god_ [創造神[EXPR $ VAL（NN）+ 20]]

或一些變化。這會創建更多的GOD對象（+20），嚴格來說，您應該計算出您需要的數量。我認爲整數是定義的節點數量。