Hi all
I wrote the following code for broadcasting a message in Wireless sensor
network,but i couldn't see any message passing in NAM
please tell me whether or not I can see this event in NAM and Is
broadcasting work truly?
How can I test the VERITY of broadcasting?
please Help me
i'm waitng for your reply
Thanks in advances
# ======================================================================
# Define options
# ======================================================================
set opt(chan) Channel/WirelessChannel ;# channel type
set opt(prop) Propagation/TwoRayGround ;# radio-propagation model
set opt(ant) Antenna/OmniAntenna ;# Antenna type
set val(ll) LL ;# Link layer type
set opt(ifq) Queue/DropTail/PriQueue ;# Interface queue type
set opt(ifqlen) 500 ;# max packet in ifq
set opt(netif) Phy/WirelessPhy ;# network interface type
set opt(mac) Mac/802_11 ;# MAC type
set opt(nn) 5 ;# number of mobilenodes
set val(rp) DSDV ;# routing protocol
set opt(x) 100 ;# X dimension of the topography
set opt(y) 100 ;# Y dimension of the topography
set opt(stop) 20.0 ;# simulation time
proc finish {} {
global ns_ f na
$ns_ flush-trace
close $f
close $na
exec nam 1.nam &
exit 0
}
set ns_ [new Simulator]
set f [open 1.tr w]
$ns_ trace-all $f
set na [open 1.nam w]
$ns_ namtrace-all-wireless $na 100 100
set topo [new Topography]
$topo load_flatgrid $opt(x) $opt(y)
set god_ [create-god $opt(nn)]
$ns_ node-config -adhocRouting $val(rp) \
-llType $val(ll) \
-macType $opt(mac) \
-ifqType $opt(ifq) \
-ifqLen $opt(ifqlen) \
-antType $opt(ant) \
-propType $opt(prop) \
-phyType $opt(netif) \
-channel [new $opt(chan)] \
-topoInstance $topo \
-WiredRouting OFF \
-agentTrace ON \
-macTrace OFF \
-movementTrace OFF \
-routerTrace OFF
for { set j 0} { $j < $opt(nn)} {incr j} {
set node_($j) [$ns_ node]
$node_($j) random-motion 0
}
$node_(0) set X_ 5
$node_(0) set Y_ 5
$node_(1) set X_ 1
$node_(1) set Y_ 1
$node_(2) set X_ 9
$node_(2) set Y_ 9
$node_(3) set X_ 6
$node_(3) set Y_ 6
$node_(4) set X_ 8
$node_(4) set Y_ 20
$ns_ at 0.1 "$node_(0) setdest 70 90 10"
$ns_ at 0.1 "$node_(1) setdest 4 10 10"
$ns_ at 0.1 "$node_(2) setdest 2 90 10"
$ns_ at 0.1 "$node_(3) setdest 40 90 10"
$ns_ at 0.1 "$node_(4) setdest 20 90 10"
$ns_ color $node_(1) blue ; #why the color is not set???
$ns_ color $node_(4) red ; #why the color is not set???
set udp [new Agent/MessagePassing]
$ns_ attach-agent $node_(1) $udp
set sink [new Agent/MessagePassing]
$ns_ attach-agent $node_(4) $sink
set sink1 [new Agent/MessagePassing]
$ns_ attach-agent $node_(0) $sink1
set sink2 [new Agent/MessagePassing]
$ns_ attach-agent $node_(2) $sink2
set sink3 [new Agent/MessagePassing]
$ns_ attach-agent $node_(3) $sink3
$ns_ connect $udp $sink2 ;#do this code is needed for broadcasting????????
$ns_ connect $udp $sink1
$ns_ connect $udp $sink
$ns_ connect $udp $sink3
$udp set dst_addr_ -1 ;#set destination address -1 for
broadcasting????????????
$udp set dst_port_ 255 ;#set destination port -255 on DSDV for
broadcasting?????????
$ns_ at 6.0 "amin"
$ns_ at 7.0 "amin"
$ns_ at 8.0 "amin"
proc amin {} {
global udp , node_
for { set i 0 } { $i < 4 } { incr i } {
$udp send 1 {[$node_($i) id]}
;#broadcasting????????????????????
puts "\nNode [$node_($i) node-addr] send [$node_($i) node-addr] \n"
}
}
for {set i 0} {$i < $opt(nn) } {incr i} {
$ns_ at $opt(stop).000000001 "$node_($i) reset";
}
$ns_ at $opt(stop).00000001 "puts \"NS EXITING...\" ; $ns_ halt"
$ns_ at 19.99 "finish"
puts "Starting Simulation..."
$ns_ run
