[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Q]DM, Multicast Routing Bug!
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.
>
>
>
>