Re: Q]DM, Multicast Routing Bug!

[gilsan <gilsan@csred.kaist.ac.kr>]

Sorry, for my stupid question... 

I solve it. It is only my bug. 

Thanks.



On Sat, 15 Aug 1998, gilsan wrote:

> 
> 
> I can't resolve this problem.
> 
> In star topology, When central node and some nodes are not member of the
> multicast group, some members are not receive packet...
> 
> How can i resolve?
> 
> My script is this.. node(1) does not receive at all !!!
> 
> Simulator set NumberInterfaces_ 1
> set ns [new Simulator]
> Simulator set EnableMcast_ 1
> 
> $ns trace-all [open srm2.tr w]
> $ns namtrace-all [open srm2.nam w]
> # make the nodes
> set nmax 8
> for {set i 0} {$i <= $nmax} {incr i} {
>     set n($i) [$ns node]
> 
> }
> $n(0) shape "other"
> $n(1) shape "box"
> 
> # now the links
> for {set i 1} {$i <= $nmax} {incr i} {
>     $ns duplex-link $n($i) $n(0) 1.5Mb 10ms DropTail
> 
> 
> set loss_module($i) [new ErrorModel]
> $loss_module($i) set rate_ 0.2
> $loss_module($i) unit pkt
> $loss_module($i) drop-target [$ns set nullAgent_]
> $ns lossmodel $loss_module($i) $n($i) $n(0)
> 
> set loss_module2($i) [new ErrorModel]
> $loss_module2($i) set rate_ 0.2
> $loss_module2($i) unit pkt
> $loss_module2($i) drop-target [$ns set nullAgent_]
> $ns lossmodel $loss_module2($i) $n(0) $n($i)
> }
> 
> $ns duplex-link-op $n(1) $n(0) orient right
> $ns duplex-link-op $n(2) $n(0) orient right-down
> $ns duplex-link-op $n(3) $n(0) orient up
> $ns duplex-link-op $n(4) $n(0) orient left-down
> $ns duplex-link-op $n(5) $n(0) orient left
> $ns duplex-link-op $n(6) $n(0) orient left-up
> $ns duplex-link-op $n(7) $n(0) orient down
> $ns duplex-link-op $n(8) $n(0) orient right-up
> 
> $ns duplex-link-op $n(0) $n(1) queuePos 0
> set group 0x8000
> set cmc [$ns mrtproto DM {}]
> set fid 0
> set packetSize 800
> 
> 
> for {set i 1} {$i < $nmax} {incr i} {
> 
>         set srm($i) [new Agent/SRM/Adaptive]
>     $srm($i) set dst_ $group
>     $srm($i) set fid_ [incr fid]
>     $ns at 1.0 "$srm($i) start"
> 
>     $ns attach-agent $n($i) $srm($i)
> 
> set s($i) [new Agent/CBR]
> $s($i) set interval_ 0.1
> $s($i) set packetSize_ $packetSize
> $srm($i) traffic-source $s1
> $srm($i) set packetSize_ $packetSize
> $ns at 2.0 "$srm($i) start-source"
> 
> }
> 
>         $ns at 3.0 "$n(2) leave-group $srm(2) $group"
> 
> 
> $ns at 10 "finish"
> $ns run
> 
> 
> 
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> 
> Thanks in Advance.
> 
> 
> 
>