[ns] Multicast in wired-cum-wireless scenario

[Micheal Murray]

Hi all,

I realise there have been many threads posted on this or similar topics.
Through working with those and the example test-suite scripts in tcl/test I
have been making progress.

I came across a similar error to the one posted in the thread:
First try in wireless multicast
http://mailman.isi.edu/pipermail/ns-users/2006-September/057345.html

The test-suite-hier-routing.tcl in tcl/test suggests that
 $ns node-config addressType_ hierarchical
must be declared before implementing the multicast command
 $ns multicast_ on

Using this in a basic script I now can execute ns on my script with no
segfaults or errors.
However on analysis of the output traces no traffic seems to arrive at my
mobile node.
The base-station node instantly returns a prune message to the source under
DM multicast operation.
It could be that the mobile node's association with its basestation node is
problematic.
Or the join-group procedure isn't entirely effective.
Has anyone reached the same stage/problem as me?
I'll paste some of the script incase anyone is interested or maybe it might
come in useful to somebody.

Thanks for your time,
Micheal

#=============================================
set ns [new Simulator]

#Define hierarchical address type for all nodes
$ns node-config -addressType hierarchical

#Enable Multicast routing facilities on all nodes
$ns multicast on
set group [Node allocaddr]


# Setup address parameters for hierarchical routing
AddrParams set domain_num_ 3           ;# number of domains
lappend cluster_num 2 1 1              ;# number of clusters in each domain
AddrParams set cluster_num_ $cluster_num
lappend eilastlevel 1 1 2 2            ;# number of nodes in each cluster
AddrParams set nodes_num_ $eilastlevel ;# of each domain

#
#                  2        4
#                /
#              /
#    0 - - - 1
#              \
#                \
#                  3        5
#

.......

# Store wire-less domain addresses
set temp {1.0.0 1.0.1 2.0.0 2.0.1}
#debug 1
# Create Base-station Nodes
set node_(b2) [$ns node [lindex $temp 0]]

$node_(b2) set X_ 500.0
$node_(b2) set Y_ 450.0
$node_(b2) set Z_ 0.0
.......

#===========================================================
# Configure nodes for Wireless node creation
$ns node-config -wiredRouting OFF

# Create wireless nodes
set node_(m4) [$ns node [lindex $temp 1]]
#new MashInspector
#debug 1
$node_(m4) base-station [AddrParams addr2id [$node_(b2) node-addr]]

# Initial Co-ordinates
$node_(m4) set X_ 510.0     ;# initially 10m away from basestation
$node_(m4) set Y_ 450.0
#$node_(m4) set Y_ 600.0
$node_(m4) set Z_ 0.0

......

set mproto DM
set mrthandle [$ns mrtproto $mproto {}]

....

#Setup a UDP source
set udp_s [new Agent/UDP]
$ns attach-agent $node_(s0) $udp_s
$udp_s set dst_addr_ $group
$udp_s set dst_port_ 0
$udp_s set packetSize_ 1500
$udp_s set fid_ 1

#Setup a CBR Application
set sendr [new Application/Traffic/CBR]
$sendr attach-agent $udp_s
$sendr set rate_ 300Kb
$sendr set packetSize_ 1500
$sendr set random_ false

#Setup Receivers
set recvr1 [new Agent/LossMonitor]
$ns attach-agent $node_(m4) $recvr1

.....

$ns at 0.1 "$sendr start"
$ns at 0.4 "$node_(m4) join-group $recvr1 $group"
$ns at 2.0 "$node_(m4) leave-group $recvr1 $group"
$ns at 2.5 "$node_(m4) join-group $recvr1 $group"

....