[ns] A problem about the wireless multicast in ns2

[dan miao]

Hello

I am having a problem while I am trying to simulate multicast over a wireless
network (802.11). The error I get is the following. It would be great
if you could let me know what I am doing wrong



The error I get is:
...

ns: _o22 new-group 0 -2147483648 -1 cache-miss: can't read "protocols_(-1)":
no such variable
    while executing
"$protocols_($iface) upcall $code $source $group $iface"

    (procedure "_o23" line 9)
    (mrtObject upcall line 9)
    invoked from within
"$mrtObject_ upcall $code $src $group $iface"
    (procedure "_o17" line 3)
    (Node new-group line 3)

    invoked from within
"$node_ new-group $src $group $iface $code"
    (procedure "_o22" line 3)
    (Classifier/Multicast new-group line 3)
    invoked from within
"_o22 new-group 1 -2147483648 -1 cache-miss"


Thanks!

dan miao

------------------------------------------------------------------------------------------
My codes:

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)       4
set val(rp)       AODV
set val(x)       500
set val(y)       500
set ns [new Simulator -multicast on]
$ns multicast

set tracefd [open multicast.tr w]
$ns trace-all $tracefd
set namtracefd [open multicast.nam w]
$ns namtrace-all-wireless $namtracefd $val(x) $val(y)

set topo [new Topography]

$topo load_flatgrid $val(x) $val(y)
create-god $val(nn)
$ns node-config -addressType def\
-adhocRouting $val(rp)\
-llType $val(ll)\
-macType $val(mac)\
-ifqType $val(ifq)\
-ifqLen $val(ifqlen)\
-antType $val(ant)\

-propType $val(prop)\
-phyType $val(netif)\
-channelType $val(chan)\
-topoInstance $topo\
-agentTrace ON\
-routerTrace ON\
-macTrace OFF\
-movementTrace ON


for {set i 0} {$i<$val(nn)} {incr i} {

    set n_$i [$ns node]
    #$n_$i random-motion 0
}
$n_0 set X_ 5.0
$n_0 set Y_ 2.0
$n_0 set Z_ 0.0
$n_1 set X_ 390.0
$n_1 set Y_ 385.0
$n_1 set Z_ 0.0
$n_2 set X_ 200.0
$n_2 set Y_ 100.0

$n_2 set Z_ 0.0
$n_3 set X_ 100.0
$n_3 set Y_ 200.0
$n_3 set Z_ 0.0

set group1 [Node allocaddr]

#set mproto CtrMcast
#DM set CacheMissMode dvmrp
#set mproto DM
set mrthandle [$ns mrtproto DM {}]



set udp0 [new Agent/UDP]
$ns attach-agent $n_0 $udp0


set cbr0 [new Application/Traffic/CBR]
$cbr0 set packetSize_ 500

$cbr0 attach-agent $udp0

set null1 [new Agent/Null]
set null2 [new Agent/Null]

set null3 [new Agent/Null]
$ns attach-agent $n_1 $null1
$ns attach-agent $n_2 $null2
$ns attach-agent $n_3 $null3

$ns connect $udp0 $null1
$ns connect $udp0 $null2
$ns connect $udp0 $null3

$udp0 set dst_addr_ $group1

$udp0 set dst_port_ 0



set rcvr [new Agent/LossMonitor]


$ns at 1.20 "$n_1 join-group $rcvr $group1"
$ns at 1.25 "$n_2 join-group $rcvr $group1"
$ns at 1.26 "$n_3 join-group $rcvr $group1"

$ns at 1.80 "$n_3 leave-group $rcvr $group1"
$ns at 1.85 "$n_2 leave-group $rcvr $group1"
$ns at 1.90 "$n_3 leave-group $rcvr $group1"
$ns at 1.00 "$cbr0 start"



$ns at 2.0 "finish"

proc finish {} {
        global ns
        $ns flush-trace

        puts "running nam..."
        exec nam out.nam &
        exit 0
}


$ns run