Hi all In wireless scenario that picture of this show at below
Node 0 is sender and node 24 is receiver I want to use UDP agent for this nodes I use follow code for this purpose Please tell me is the following file correct and suitable? Why the CBR interval has not effect on time when the nodes' energy is finished? picture of nam file that show my topology is : http://rapidshare.com/files/70500344/Screenshot.png I'm waiting for your reply very thanks -- Amin Irandoost # ====================================================================== # Define options # ====================================================================== #set val(lifetime) 4000; set opt(chan) Channel/WirelessChannel set opt(prop) Propagation/TwoRayGround set opt(netif) Phy/WirelessPhy set opt(mac) Mac/SMAC set opt(ifq) Queue/DropTail/PriQueue set opt(ll) LL set opt(ant) Antenna/OmniAntenna set opt(x) 200.0 ;# X dimension of the topography set opt(y) 200.0 ;# Y dimension of the topography set opt(ifqlen) 50 ;# max packet in ifq set opt(seed) 0.0 set opt(tr) 2.tr ;# trace file set opt(nam) 2.nam set opt(adhocRouting) AODV set opt(nn) 25 ;# how many nodes are simulated set opt(energymodel) EnergyModel set opt(stop) 4000.0 ;# simulation time set val(initialenergy) 300.0 set val(receivepower) 0.395 ;# Receiving Power set val(transmitpower) 0.660 ;# Transmitting Power set val(idlepower) 0.350 ;# Idle Power set val(sleeppower) 0.001 ;# sleep Power LL set bandwidth_ 20kb # ===================================================================== # 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 # Initialize the SharedMedia interface with parameters to make # it work like the 914MHz Lucent WaveLAN DSSS radio interface Phy/WirelessPhy set CPThresh_ 10.0 Phy/WirelessPhy set CSThresh_ 1.559e-11 Phy/WirelessPhy set RXThresh_ 2.13643e-07 Phy/WirelessPhy set Rb_ 2*1e6 Phy/WirelessPhy set Pt_ 0.281838 Phy/WirelessPhy set freq_ 9.14e+8 Phy/WirelessPhy set L_ 1.0 proc finish {} { global ns_ tracefd namtrace $ns_ flush-trace close $namtrace close $tracefd puts "\n running nam...\n" # exec nam 1.nam & exit 0 } # AMAC settings Mac/SMAC set syncFlag_ 1 ; # sleep wakeup cycles Mac/SMAC set dutyCycle_ 60 set ns_ [new Simulator] $ns_ use-scheduler Heap $ns_ set WirelessNewTrace_ ON set topo [new Topography] set tracefd [open $opt(tr) w] set namtrace [open $opt(nam) w] $ns_ trace-all $tracefd $topo load_flatgrid $opt(x) $opt(y) $ns_ namtrace-all-wireless $namtrace 200.0 200.0 set cha [new $opt(chan)] # # Create god # create-god $opt(nn) $ns_ node-config -adhocRouting $opt(adhocRouting) \ -llType $opt(ll) \ -macType $opt(mac) \ -ifqType $opt(ifq) \ -ifqLen $opt(ifqlen) \ -antType $opt(ant) \ -propType $opt(prop) \ -phyType $opt(netif) \ -channel $cha \ -topoInstance $topo \ -WiredRouting OFF \ -energyModel $opt(energymodel) \ -idlePower $val(idlepower) \ -rxPower $val(receivepower) \ -txPower $val(transmitpower) \ -sleepPower $val(sleeppower) \ -initialEnergy $val(initialenergy) \ -agentTrace ON \ -routerTrace OFF \ -macTrace OFF set j 0 set k 0 for {set i 0} {$i < $opt(nn) } {incr i} { set node_($i) [$ns_ node] $node_($i) random-motion 0 ;# disable random motion if {$i%5==0} { set j [expr $j+20] if {$i!=0} { set k 0} } $node_($i) set X_ [set k [expr $k+20]] $node_($i) set Y_ $j $node_($i) set Z_ 0.0 } for { set j 0} { $j < $opt(nn)} {incr j} { $ns_ initial_node_pos $node_($j) 2 $node_($j) color blue $node_($j) log-energy } *for { set j 0} { $j < $opt(nn)} {incr j} { set udp_($j) [new Agent/UDP] $ns_ attach-agent $node_($j) $udp_($j) } set null_(0) [new Agent/Null] $ns_ attach-agent $node_([expr $opt(nn)-1]) $null_(0)* *set cbr [new Application/Traffic/CBR] $cbr set packetSize_ 50 $cbr set interval_ 3.0 $cbr attach-agent $udp_(0) $ns_ connect $udp_(0) $null_(0) $ns_ at 50.0 "$cbr star*t" # # Tell all the nodes when the simulation ends # for {set i 0} {$i < $opt(nn) } {incr i} { $ns_ at $opt(stop) "$node_($i) reset"; } $ns_ at [expr $opt(stop)-0.1] "finish" puts "Starting Simulation..." $ns_ run
