NS2 无线场景 Random Motion set dest 不工作

Question

Antenna/OmniAntenna set Gt_ 1              ;#Transmit antenna gain
Antenna/OmniAntenna set Gr_ 1              ;#Receive antenna gain
Phy/WirelessPhy set L_ 1.0                 ;#System Loss Factor
Phy/WirelessPhy set freq_ 2.472e9          ;#channel
Phy/WirelessPhy set bandwidth_ 10Mb        ;#Data Rate
Phy/WirelessPhy set Pt_ 0.2818        ;#Transmit Power
Phy/WirelessPhy set CPThresh_ 10.0         ;#Collision Threshold
Phy/WirelessPhy set CSThresh_ 1.74269e-10 ;#Carrier Sense Power
Phy/WirelessPhy set RXThresh_ 1.08918e-09  ;#Receive Power Threshold
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)     27                         ;# number of mobilenodes
set val(rp)     AODV                       ;# routing protocol
set val(x)      2768                      ;# X dimension of topography
set val(y)      100                      ;# Y dimension of topography
set val(stop)   10.0                         ;# time of simulation end

#Create a ns simulator
set ns [new Simulator]

#Setup topography object
set topo       [new Topography]
$topo load_flatgrid $val(x) $val(y)
create-god $val(nn)

#Open the NS trace file
set tracefile [open out.tr w]
$ns trace-all $tracefile

#Open the NAM trace file
set namfile [open out.nam w]
$ns namtrace-all $namfile
$ns namtrace-all-wireless $namfile $val(x) $val(y)
set chan [new $val(chan)];#Create wireless channel

$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       $chan \
                -topoInstance  $topo \
                -agentTrace    ON \
                -routerTrace   ON \
                -macTrace      ON \
                -movementTrace ON

#Create 27 nodes
set n0 [$ns node]
$n0 set X_ 1468
$n0 set Y_ 1247
$n0 set Z_ 0.0
$ns initial_node_pos $n0 20
set n1 [$ns node]
$n1 set X_ 1593
$n1 set Y_ 1247
$n1 set Z_ 0.0
$ns initial_node_pos $n1 20
set n2 [$ns node]
$n2 set X_ 1718
$n2 set Y_ 1247
$n2 set Z_ 0.0
$ns initial_node_pos $n2 20
set n3 [$ns node]
$n3 set X_ 1843
$n3 set Y_ 1247
$n3 set Z_ 0.0
$ns initial_node_pos $n3 20
set n4 [$ns node]
$n4 set X_ 1968
$n4 set Y_ 1247
$n4 set Z_ 0.0
$ns initial_node_pos $n4 20
set n5 [$ns node]
$n5 set X_ 1468
$n5 set Y_ 1122
$n5 set Z_ 0.0
$ns initial_node_pos $n5 20
set n6 [$ns node]
$n6 set X_ 1593
$n6 set Y_ 1122
$n6 set Z_ 0.0
$ns initial_node_pos $n6 20
set n7 [$ns node]
$n7 set X_ 1718
$n7 set Y_ 1122
$n7 set Z_ 0.0
$ns initial_node_pos $n7 20
set n8 [$ns node]
$n8 set X_ 1843
$n8 set Y_ 1122
$n8 set Z_ 0.0
$ns initial_node_pos $n8 20
set n9 [$ns node]
$n9 set X_ 1968
$n9 set Y_ 1122
$n9 set Z_ 0.0
$ns initial_node_pos $n9 20
set n10 [$ns node]
$n10 set X_ 1468
$n10 set Y_ 997
$n10 set Z_ 0.0
$ns initial_node_pos $n10 20
set n11 [$ns node]
$n11 set X_ 1593
$n11 set Y_ 997
$n11 set Z_ 0.0
$ns initial_node_pos $n11 20
set n12 [$ns node]
$n12 set X_ 1718
$n12 set Y_ 997
$n12 set Z_ 0.0
$ns initial_node_pos $n12 20
set n13 [$ns node]
$n13 set X_ 1843
$n13 set Y_ 997
$n13 set Z_ 0.0
$ns initial_node_pos $n13 20
set n14 [$ns node]
$n14 set X_ 1968
$n14 set Y_ 997
$n14 set Z_ 0.0
$ns initial_node_pos $n14 20
set n15 [$ns node]
$n15 set X_ 1468
$n15 set Y_ 872
$n15 set Z_ 0.0
$ns initial_node_pos $n15 20
set n16 [$ns node]
$n16 set X_ 1593
$n16 set Y_ 872
$n16 set Z_ 0.0
$ns initial_node_pos $n16 20
set n17 [$ns node]
$n17 set X_ 1718
$n17 set Y_ 872
$n17 set Z_ 0.0
$ns initial_node_pos $n17 20
set n18 [$ns node]
$n18 set X_ 1843
$n18 set Y_ 872
$n18 set Z_ 0.0
$ns initial_node_pos $n18 20
set n19 [$ns node]
$n19 set X_ 1968
$n19 set Y_ 872
$n19 set Z_ 0.0
$ns initial_node_pos $n19 20
set n20 [$ns node]
$n20 set X_ 1468
$n20 set Y_ 747
$n20 set Z_ 0.0
$ns initial_node_pos $n20 20
set n21 [$ns node]
$n21 set X_ 1593
$n21 set Y_ 747
$n21 set Z_ 0.0
$ns initial_node_pos $n21 20
set n22 [$ns node]
$n22 set X_ 1718
$n22 set Y_ 747
$n22 set Z_ 0.0
$ns initial_node_pos $n22 20
set n23 [$ns node]
$n23 set X_ 1843
$n23 set Y_ 747
$n23 set Z_ 0.0
$ns initial_node_pos $n23 20
set n24 [$ns node]
$n24 set X_ 1968
$n24 set Y_ 747
$n24 set Z_ 0.0
$ns initial_node_pos $n24 20
set n25 [$ns node]
$n25 set X_ 1327
$n25 set Y_ 868
$n25 set Z_ 0.0
$ns initial_node_pos $n25 20
set n26 [$ns node]
$n26 set X_ 2108
$n26 set Y_ 1130
$n26 set Z_ 0.0
$ns initial_node_pos $n26 20

#Setup a TCP connection
set tcp0 [new Agent/TCP]
$ns attach-agent $n25 $tcp0
set sink1 [new Agent/TCPSink]
$ns attach-agent $n26 $sink1
$ns connect $tcp0 $sink1
$tcp0 set packetSize_ 1500

#Setup a FTP Application over TCP connection
set ftp0 [new Application/FTP]
$ftp0 attach-agent $tcp0
$ns at 1.0 "$ftp0 start"
$ns at 9.0 "$ftp0 stop"

set xx_ [expr rand()*700]
set yy_ [expr rand()*600]
set finalxx_ [expr $xx_+1400.00]
set finalyy_ [expr $yy_+700.00]
set rng_time [expr rand()*$val(stop)]
#*******************************************************
#This is the error part.
$ns at $rng_time "$n26 setdest $finalxx_ $finalyy_ 25.0"   ;# random movements
#*****************************************************

#Define a 'finish' procedure
proc finish {} {
    global ns tracefile namfile
    $ns flush-trace
    close $tracefile
    close $namfile
    exec nam out.nam &
    exit 0
}
for {set i 0} {$i < $val(nn) } { incr i } {
    $ns at $val(stop) "$n$i reset"
}
$ns at $val(stop) "$ns nam-end-wireless $val(stop)"
$ns at $val(stop) "finish"
$ns at $val(stop) "puts \"done\" ; $ns halt"
$ns run

setdest 函数在上述无线场景中不工作并给我错误：

初始化列表 xListHead

channel.cc:sendUp - Calc highestAntennaZ_ and distCST_
highestAntennaZ_ = 1.5,  distCST_ = 300.8
SORTING LISTS ...DONE!

ns: _o586 setdest 1447.732143731663 729.26259833819358 25.0: 
    (_o586 cmd line 1)
    invoked from within

"_o586 cmd setdest 1447.732143731663 729.26259833819358 25.0"
 invoked from within

"catch "$self cmd $args" ret"
    invoked from within

"if [catch "$self cmd $args" ret] {
set cls [$self info class]

global errorInfo

set savedInfo $errorInfo

error "error when calling class $cls: $args" $..."
    (procedure "_o586" line 2)
    (SplitObject unknown line 2)
    invoked from within

"_o586 setdest 1447.732143731663 729.26259833819358 25.0"

当我在其他仅包含 7 个节点的文件中测试时，setdest 函数工作正常。谁能解释为什么会这样？

提前致谢。

Answer 1

第 22 行有错误

set val(y)      100         ;# Y dimension of topography

... 而您的 "Y values" 在节点设置中要大得多。将第 22 行编辑为：

set val(y)      2000

...然后没有错误，完美的NAM动画。

NS2 无线场景 Random Motion set dest 不工作

NS2 wireless scenario Random Motion set dest Not working

shell

tcl

ns2