2 problems in your simulation, I think
(1) not use PriQueue, so routing message not get priority.
(2) ifqlen is set too small, so routing message can be always dropped.
that can lead to your poor results.
wang gang.
Hi,
my tcl script....
set val(chan) Channel/WirelessChannel ;# channel type
set val(prop) Propagation/TwoRayGround ;# radio-propagation
model
set val(netif) Phy/WirelessPhy ;# network interface type
set val(mac) Mac/802_11 ;# MAC type
Mac/802_11 set dataRate_ 11Mb ;# Data Rate
11 Mbps
Mac/802_11 set basicRate_ 1Mb ;# Basic Rate
1 Mbps
Mac/802_11 set SlotTime_ 0.000020 ;# 20us
Mac/802_11 set sifs_ 0.000010 ;# 10us
Mac/802_11 set PreambleLenght_ 144 ;# 144 bits
Mac/802_11 set PLCPHeaderLength_ 48 ;# 48 bits
Mac/802_11 set PLCPDataRate_ 1Mb ;# 1Mbps
set val(ifq) Queue/DropTail ;# interface queue type/PriQueue
set val(ll) LL ;# link layer type
set val(ant) Antenna/OmniAntenna ;# antenna model
set val(ifqlen) 10 ;# max packet in ifq
set val(nn) 2 ;# number of mobilenodes
set val(rp) DSDV ;# routing protocol DSDV
set ns [new Simulator]
$ns color 0 blue
$ns color 1 red
# set up topography object
set topo [new Topography]
$topo load_flatgrid 400 200
#Open the trace file
set tf [open out.tr w]
#$ns use-newtrace
$ns trace-all $tf
#Open the nam trace file
set nf [open out.nam w]
$ns namtrace-all-wireless $nf 400 200
# Create God
create-god $val(nn)
Agent/DSDV set perup_ 15000000 ;# ~ infinite periodic update
$ns node-config -adhocRouting $val(rp) \
-llType $val(ll) \
-macType $val(mac) \
-ifqType $val(ifq) \
-ifqLen $val(ifqlen) \
-antType $val(ant) \
-propType $val(prop) \
-phyType $val(netif) \
-channelType $val(chan) \
-topoInstance $topo \
#-agentTrace OFF \
-agentTrace ON \
-routerTrace OFF \
-macTrace ON \
-movementTrace OFF
# Create and configure nodes
set nodeA [$ns node]
$nodeA random-motion 0
$nodeA set X_ 100.0
$nodeA set Y_ 100.0
$nodeA set Z_ 0.0
set nodeB [$ns node]
$nodeB random-motion 0
$nodeB set X_ 300.0
$nodeB set Y_ 100.0
$nodeB set Z_ 0.0
$ns at 0.0 "$nodeA setdest 100.0 100.0 0.0"
$ns at 0.0 "$nodeB setdest 300.0 100.0 0.0"
# Setup UDP Connection
set udpA [new Agent/UDP]
$ns attach-agent $nodeA $udpA
$udpA set packetSize_ 1024
set udpSinkB [new Agent/Null]
$ns attach-agent $nodeB $udpSinkB
$ns connect $udpA $udpSinkB
# Setup CBR over UDP Connection
set cbrA [new Application/Traffic/CBR]
$cbrA attach-agent $udpA
$cbrA set type_ CBR
$cbrA set packetSize_ 1004
$cbrA set rate_ 11Mb
$cbrA set random_ false
# Schedule simulation events
$ns at 1.0 "$cbrA start"
$ns at 31.0 "$cbrA stop"
$ns at 31.0000001 "stop"
$ns at 31.0000002 "puts \"NS EXITING...\" ; $ns halt"
proc stop {} {
global ns tf nf
$ns flush-trace
close $nf
close $tf
exit 0
}
puts "Starting Simulation..."
$ns run
_________________________________________________________________
Customise your home page with RSS feeds at MSN Ireland! http://ie.msn.com/
