Dear ns-2 users and developers 
I have been working on ns2.29 using Directed Diffusion (RMST) to
simulate my network.

1- I attached the rmst as DiffApp to the node that conflict NS2 that
says agents should be attached to nodes and applications to the agents
so should i create diffusion agents and attach it to the nodes before.

2- i managed to run the simulation with zigbee and in the trace file i
can see packets being sent and received but as diffusion is defined to
do gradient reinforcement so can i see the packets which execute these
reinforcements in the trace file and what will they be labelled.

3- in term of packets forwarding i cannot see any packet being forwarded
from the far nodes toward the rmst sink in the trace file so should i
add the routing tables manually to each node or it is internally
implemented in the diffusion application

i have added my scripts at the end 

With all appreciate to any reply or suggestion 

#     Simulation parameters setup

set val(chan)   Channel/WirelessChannel    ;# channel type
set val(prop)   Propagation/TwoRayGround   ;# radio-propagation model
set val(netif)  Phy/WirelessPhy/802_15_4            ;# network interface
set val(mac)    Mac/802_15_4                ;# MAC type
set val(ifq)    Queue/DropTail/PriQueue    ;# interface queue type
set val(ll)     LL                         ;# link layer type
set val(ant)    Antenna/OmniAntenna        ;# antenna model
set val(ifqlen) 50                         ;# max packet in ifq
set val(seed)           00.0
set val(nn)     20                          ;# number of mobilenodes
set val(filters)   GradientFilter             ;# filters  
set val(adhocRouting)   Directed_Diffusion         ;# routing protocol
set val(x)      400                      ;# X dimension of topography
set val(y)      400                      ;# Y dimension of topography
set val(stop)   80                         ;# time of simulation end
set val(en)     EnergyModel        ;
set val(initialenergy)  10.0               ;  

Phy/WirelessPhy set L_ 1.0                 ;#System Loss Factor
Phy/WirelessPhy set freq_ 2.472e9          ;#channel
Phy/WirelessPhy set bandwidth_ 11Mb        ;#Data Rate
Phy/WirelessPhy set Pt_ 1.8        ;#Transmit Power
Phy/WirelessPhy set CPThresh_ 100.0         ;#Collision Threshold
Phy/WirelessPhy set CSThresh_ 5.011872e-12 ;#Carrier Sense Power
Phy/WirelessPhy set RXThresh_ 5.82587e-09  ;#Receive Power Threshold
Mac/802_11 set dataRate_ 11Mb              ;#Rate for   ta Frames
Mac/802_11 set basicRate_ 1Mb              ;#Rate for Control Frames

LL set mindelay_                50us
LL set delay_                   25us
LL set bandwidth_               0       ;# not used

Queue/DropTail/PriQueue set Prefer_Routing_Protocols    1
# unity gain, omni-directional antennas
# set up the antennas to be centered in the node and 1.5 meters above it
Antenna/OmniAntenna set X_ 0
Antenna/OmniAntenna set Y_ 0
Antenna/OmniAntenna set Z_ 1.5
Antenna/OmniAntenna set Gt_ 1.0
Antenna/OmniAntenna set Gr_ 1.0
#set the default ports 
#Agent/UDP set sport_ 0
#Agent/UDP set dport_ 1
#Agent/Null set sport_ 2 
#Agent/Null set dport_ 3
#Application/DiffApp/RmstSource set sport_ 4
#Application/DiffApp/RmstSink set dport_ 5
#        Initialization        
#Create a ns simulator
set ns_ [new Simulator]
$ns_ use-newtrace

#$ns_ puts "simulation starts"

# Create the God

set god_ [create-god $val(nn)]

#Setup topography object

set topo       [new Topography]
$topo load_flatgrid $val(x) $val(y)

#Open the NS trace file

set tracefile [open w]
$ns_ trace-all $tracefile

#Open the NAM trace file
set namfile [open rmst.nam w]
$ns_ namtrace-all $namfile
$ns_ namtrace-all-wireless $namfile $val(x) $val(y)
set chan [new $val(chan)]; #Create wireless channel

#     Mobile node parameter setup
#Setting the sensing nodes 
#set val(adhocrouting)     AODV
$ns_ node-config -adhocRouting $val(adhocRouting) \
                 -MPLS ON \
                 -llType $val(ll) \
                 -macType $val(mac) \
                 -ifqType $val(ifq) \
                 -ifqLen $val(ifqlen) \
                 -antType $val(ant) \
                 -propType $val(prop) \
                 -phyType $val(netif) \
                 -channel  $chan \
                 -topoInstance $topo \
                 -diffusionFilter $val(filters) \
                 -agentTrace ON \
                 -routerTrace OFF \
                 -macTrace ON \
                 -idlePower 1.0 \
                 -rxPower 1.0 \
                 -txPower 1.0 \
                 -sleepPower 0.001 \
                 -transitionPower 0.2 \
                 -transitionTime 0.005 \
                 -initialEnergy $val(initialenergy) \
                 -energyModel $val(en) \

#creating the desired number of nodes 
for {set i 0} {$i < $val(nn)} {incr i} {
set node_($i) [$ns_ node $i]
        $node_($i) color black
        $node_($i) random-motion 0              ;# disable random motion
        $god_ new_node $node_($i)

#set the initial positions of the nodes 
$node_(0) set X_ 31.454512011851
$node_(0) set Y_ 10.109707387821
$node_(0) set Z_ 0.000000000000
$node_(1) set X_ 135.041034335395
$node_(1) set Y_ 405.737513651467
$node_(1) set Z_ 0.000000000000
$node_(2) set X_ 188.743485780117
$node_(2) set Y_ 55.526538996380
$node_(2) set Z_ 0.000000000000
$node_(3) set X_ 196.784683952856
$node_(3) set Y_ 84.409070913002
$node_(3) set Z_ 0.000000000000
$node_(4) set X_ 130.960117964937
$node_(4) set Y_ 144.467582355546
$node_(4) set Z_ 0.000000000000
$node_(5) set X_ 101.263135569806
$node_(5) set Y_ 17.451727909492
$node_(5) set Z_ 0.000000000000
$node_(6) set X_ 44.470459863044
$node_(6) set Y_ 184.344972563850
$node_(6) set Z_ 0.000000000000
$node_(7) set X_ 456.787528356492
$node_(7) set Y_ 23.395449357632
$node_(7) set Z_ 0.000000000000
$node_(8) set X_ 150.887841448344
$node_(8) set Y_ 285.005548452296
$node_(8) set Z_ 0.000000000000
$node_(9) set X_ 454.820029810669
$node_(9) set Y_ 16.247174558093
$node_(9) set Z_ 0.000000000000
$node_(10) set X_ 38.147386846751
$node_(10) set Y_ 314.880165037484
$node_(10) set Z_ 0.000000000000
$node_(11) set X_ 353.290764145665
$node_(11) set Y_ 304.586930864975
$node_(11) set Z_ 0.000000000000
$node_(12) set X_ 376.563479617518
$node_(12) set Y_ 436.784908373668
$node_(12) set Z_ 0.000000000000
$node_(13) set X_ 169.123011449721
$node_(13) set Y_ 426.037760711241
$node_(13) set Z_ 0.000000000000
$node_(14) set X_ 104.142933190272
$node_(14) set Y_ 443.761913991179
$node_(14) set Z_ 0.000000000000
$node_(15) set X_ 370.331934892815
$node_(15) set Y_ 187.819583473372
$node_(15) set Z_ 0.000000000000
$node_(16) set X_ 34.298816727045
$node_(16) set Y_ 61.539912549849
$node_(16) set Z_ 0.000000000000
$node_(17) set X_ 104.367920828175
$node_(17) set Y_ 276.111349796681
$node_(17) set Z_ 0.000000000000
$node_(18) set X_ 266.513537483945
$node_(18) set Y_ 247.013554996536
$node_(18) set Z_ 0.000000000000
$node_(19) set X_ 189.999330444229
$node_(19) set Y_ 248.468574993653
$node_(19) set Z_ 0.000000000000
#$ns_ at 2 $node_(0) setdest 275.0 275.0 15 
for {set i 0} {$i < $val(nn)} {incr i} {
$ns_ initial_node_pos $node_($i) 25
#$ns_ initial_node_pos $node_(1) 25
#$ns_ initial_node_pos $node_(2) 25

#set the diffusion agents 
for {set i 0} {$i < $val(nn)} {incr i} {
set d_($i) [new Agent/Diffusion]
$node_($i) attach $d_($i) $i

#connect the agents 
#$ns_ connect $d_(1) $d_(0)
#$ns_ connect $d_(2) $d_(0)

#define the rmstfilers 
for {set i 0} {$i < $val(nn)} {incr i} { 
set rmst_filter_($i) [new Application/DiffApp/RmstFilter]
$ns_ attach-diffapp $node_($i) $rmst_filter_($i) 
#define the rmst source application and attach it to the diffusion

for {set i 1} {$i < $val(nn)} {incr i} {
set src_($i) [new Application/DiffApp/RmstSource] 
$ns_ attach-diffapp $node_($i) $src_($i) 
#set src_(2) [new Application/DiffApp/RmstSource] 
#$ns_ attach-diffapp $node_(2) $src_(2)

#Define the rmst sink 

set snk [new Application/DiffApp/RmstSink]
$ns_ attach-diffapp $node_(0) $snk

#start the schedule 
#$ns_ at 0.5 "$src_(1) subscribe"
#$ns_ at 0.6 "$src_(1) start"
#$ns_ at 0.7 "$src_(2) subscribe"
#$ns_ at 0.8 "$src_(2) start"
#$ns_ at 0.2 "$snk subscribe"
#$ns_ at 0.3 "$snk start"

for {set i 1} {$i < $val(nn) } {incr i} {
$ns_ at [expr $i + 0.5] "$src_($i) subscribe"
#$ns_ at [expr $i + 0.7] "$src_() subscribe"
$ns_ at $i "$snk subscribe"
$ns_ at 0.1 "$rmst_filter_($i) start"
# Tell nodes when the simulation ends
for {set i 0} {$i < $val(nn) } {incr i} {
  $ns_ at $val(stop).000000001 "$node_($i) reset";
# define finish proc 

proc finish {} {
 global ns_ tracefile namfile
                    $ns_ flush-trace            
                    $ns_ halt
                    #$ns_ nam-end-wireless $val(stop)
                    close $tracefile
                    close $namfile
                    exit 0

$ns_ at $val(stop).000002 "finish"
puts "Starting Simulation..."
#puts "address [$node_(0) node-addr]"
#puts "neighbors [$node_(0) neighbors]"
for {set j 0} {$j < 10} {incr j} {
for {set i 0} {$i < $val(nn)} {incr i} { 
puts "port $j of node$i has agent [$node_($i) agent $j]"
#puts "port $j has agent [$node_(1) agent $j]"
#puts "port $j has agent [$node_(2) agent $j]"
$ns_ run      

Reply via email to