---------------------------- Original Message ----------------------------
Subject: Ad Hoc in Point-to-Multipoint with CBR
From: [EMAIL PROTECTED]
Date: Fri, July 28, 2006 10:31 am
To: ns-users@isi.edu
--------------------------------------------------------------------------
Hello,
I am working with AODV, DSDV and DSR in point-to-multipoint and
multipoint-to-point scenario with 11 nodes.
In the multipoint-to-point scenario, the senders starts a CBR traffic to
the receiver with 1 second interval and, after 11 seconds, as expected,
there are 10 simultaneous flows.
The problem occurs in the point-to-multipoint scenario. The sender starts
a CBR traffic to all receivers with 1 second interval, so after 11
seconds, there supposed to be 10 flows from the sender to the receivers,
but in fact, there are only 3 simultaneous flows. Does anyone know the
reason?
I am appending a shell script file and the TCL file.
Thanks in advance.
Etienne Oliveira.
Shell Script
------------------------------------------------------------------
ns DSR-11n-1s-10r.tcl
for i in 1 2 3 4 5 6 7 8 9 10
do
a=`grep "_${i}_ AGT" DSR-11n-1s-10r.tr | grep "^r" | grep cbr | wc -l`
at=`grep "_${i}_ AGT" DSR-11n-1s-10r.tr | grep "^r" | grep "cbr 200" |
tail -1 | cut -d" " -f2`
echo " _${i}_ --> AGT=$a ends in $at"
done
------------------------------------------------------------------
TCL FILE
------------------------------------------------------------------
set val(chan) Channel/WirelessChannel
set val(prop) Propagation/TwoRayGround
set val(netif) Phy/WirelessPhy
set val(mac) Mac/802_11
set val(ifq) CMUPriQueue
set val(ll) LL
set val(ant) Antenna/OmniAntenna
set val(x) 670 ;# X dimension of the topography
set val(y) 670 ;# Y dimension of the topography
set val(ifqlen) 50 ;# max packet in ifq
set val(nn) 11 ;# number of nodes - 1sender - 10receivers
set val(seed) 0.0
set val(stop) 40 ;# simulation time
set val(tr) "DSR-11n-1s-10r.tr" ;# trace file
set val(adhocRouting) DSR ;# protocol for ad-hoc network
set val(receivers) 10 ;# receivers
# =====================================================================
# Main Program
# ======================================================================
#
# Initialize Global Variables
#
# set date rate
$val(mac) set dataRate_ 11Mb
$val(mac) set basicRate_ 11Mb
# ==================================================================
# Main Program
# =================================================================
#
# Initialize Global Variables
#
set ns_ [new Simulator]
set topo [new Topography]
set tracefd [open $val(tr) w]
$ns_ trace-all $tracefd
$topo load_flatgrid $val(x) $val(y)
set god_ [create-god $val(nn)]
#global node setting
$ns_ node-config -adhocRouting $val(adhocRouting) \
-llType $val(ll) \
-macType $val(mac) \
-ifqType $val(ifq) \
-ifqLen $val(ifqlen) \
-antType $val(ant) \
-propType $val(prop) \
-phyType $val(netif) \
-channel [new $val(chan)] \
-topoInstance $topo \
-agentTrace ON \
-routerTrace OFF \
-macTrace ON \
-movementTrace OFF
#
# Create the specified number of nodes [$val(nn)] and "attach" them
# to the channel.
for {set i 0} {$i < $val(nn) } {incr i} {
set node_($i) [$ns_ node]
$node_($i) random-motion 0 ;# disable random motion
}
#
# Define initial position - Scennario File
#
$node_(0) set X_ 250.00
$node_(0) set Y_ 250.00
$node_(0) set Z_ 0.0
$node_(1) set X_ 420.09
$node_(1) set Y_ 197.19
$node_(1) set Z_ 0.0
$node_(2) set X_ 391.55
$node_(2) set Y_ 399.22
$node_(2) set Z_ 0.0
$node_(3) set X_ 355.82
$node_(3) set Y_ 198.78
$node_(3) set Z_ 0.0
$node_(4) set X_ 267.61
$node_(4) set Y_ 284.11
$node_(4) set Z_ 0.0
$node_(5) set X_ 238.89
$node_(5) set Y_ 276.98
$node_(5) set Z_ 0.0
$node_(6) set X_ 238.70
$node_(6) set Y_ 214.44
$node_(6) set Z_ 0.0
$node_(7) set X_ 282.39
$node_(7) set Y_ 256.70
$node_(7) set Z_ 0.0
$node_(8) set X_ 376.11
$node_(8) set Y_ 358.10
$node_(8) set Z_ 0.0
$node_(9) set X_ 317.86
$node_(9) set Y_ 358.65
$node_(9) set Z_ 0.0
$node_(10) set X_ 70.80
$node_(10) set Y_ 303.48
$node_(10) set Z_ 0.0
#
# Define traffic model and startup and shutdown node (connection pattern)
#
# (1) one sender
for {set i 1} {$i <= $val(receivers) } {incr i} {
set udp_($i) [new Agent/UDP]
$ns_ attach-agent $node_(0) $udp_($i)
set cbr_($i) [new Application/Traffic/CBR]
$cbr_($i) attach-agent $udp_($i)
$udp_($i) set packetSize_ 200
$udp_($i) set rate_ 150Kb
set null_($i) [new Agent/Null]
$ns_ attach-agent $node_($i) $null_($i)
$ns_ connect $udp_($i) $null_($i)
$ns_ at $i.0 "$cbr_($i) start"
}
#
# Tell nodes when the simulation ends
#
for {set i 0} {$i < $val(nn) } {incr i} {
$ns_ at $val(stop).0 "$node_($i) reset";
}
$ns_ at $val(stop).0 "stop"
$ns_ at $val(stop).01 "puts \"NS EXITING...\" ; $ns_ halt"
proc stop {} {
global ns_ tracefd
$ns_ flush-trace
close $tracefd
}
puts $tracefd "M 0.0 nn $val(nn) x $val(x) y $val(y) rp $val(adhocRouting)
$val(stop) seconds"
puts $tracefd "M 0.0 prop $val(prop) ant $val(ant) ifq $val(ifq)"
puts "Starting Simulation..."
$ns_ run
------------------------------------------------------------------
