hi
I want to create a handover scenario, between 2 base station, using an
extension of the mac 802.11 : Mac/802_11Ext
i have created the scenario, but the mobile node can not connect to the
second base station during the handover process.
my tcl script is the following:
#802.11p default parameters
Phy/WirelessPhyExt set CSThresh_ 3.162e-12 ;#-85 dBm Wireless
interface sensitivity (sensitivity defined in the standard)
Phy/WirelessPhyExt set Pt_ 0.001
Phy/WirelessPhyExt set freq_ 5.9e+9
Phy/WirelessPhyExt set noise_floor_ 1.26e-13 ;#-99 dBm for 10MHz
bandwidth
Phy/WirelessPhyExt set L_ 1.0 ;#default radio
circuit gain/loss
Phy/WirelessPhyExt set PowerMonitorThresh_ 6.310e-14 ;#-102dBm power
monitor sensitivity
Phy/WirelessPhyExt set HeaderDuration_ 0.000040 ;#40 us
Phy/WirelessPhyExt set BasicModulationScheme_ 0
Phy/WirelessPhyExt set PreambleCaptureSwitch_ 1
Phy/WirelessPhyExt set DataCaptureSwitch_ 0
Phy/WirelessPhyExt set SINR_PreambleCapture_ 2.5118; ;# 4 dB
Phy/WirelessPhyExt set SINR_DataCapture_ 100.0; ;# 10 dB
Phy/WirelessPhyExt set trace_dist_ 1e6 ;# PHY trace until
distance of 1 Mio. km ("infinty")
Phy/WirelessPhyExt set PHY_DBG_ 0
Mac/802_11Ext set CWMin_ 15
Mac/802_11Ext set CWMax_ 1023
Mac/802_11Ext set SlotTime_ 0.000013
Mac/802_11Ext set SIFS_ 0.000032
Mac/802_11Ext set ShortRetryLimit_ 7
Mac/802_11Ext set LongRetryLimit_ 4
Mac/802_11Ext set HeaderDuration_ 0.000040
Mac/802_11Ext set SymbolDuration_ 0.000008
Mac/802_11Ext set BasicModulationScheme_ 0
Mac/802_11Ext set use_802_11a_flag_ true
Mac/802_11Ext set RTSThreshold_ 2346
Mac/802_11Ext set MAC_DBG 0
#=====================================================================
#configure RF model parameters
Antenna/OmniAntenna set Gt_ 1.0
Antenna/OmniAntenna set Gr_ 1.0
Propagation/Nakagami set use_nakagami_dist_ false
Propagation/Nakagami set gamma0_ 2.0
Propagation/Nakagami set gamma1_ 2.0
Propagation/Nakagami set gamma2_ 2.0
Propagation/Nakagami set d0_gamma_ 200
Propagation/Nakagami set d1_gamma_ 500
Propagation/Nakagami set m0_ 1.0
Propagation/Nakagami set m1_ 1.0
Propagation/Nakagami set m2_ 1.0
Propagation/Nakagami set d0_m_ 80
Propagation/Nakagami set d1_m_ 200
#=======================================================================
set val(chan) Channel/WirelessChannel
set val(prop) Propagation/TwoRayGround
set val(netif) Phy/WirelessPhyExt
set val(mac) Mac/802_11Ext
set val(ifq) Queue/DropTail/PriQueue
set val(ll) LL
set val(ant) Antenna/OmniAntenna
set val(x) 700 ;# X dimension of the topography
set val(y) 600 ;# Y dimension of the topography
set val(ifqlen) 50 ;# max packet in ifq
set val(nn) 2 ;# how many Mobile nodes are simulated
set val(rp) DSDV
set val(stop) 250 ;# simulation time
set num_wired_nodes 2
set num_bs_nodes 2
# =====================================================================
set ns [new Simulator]
# set up for hierarchical routing
$ns node-config -addressType hierarchical
AddrParams set domain_num_ 3 ;# number of domains
lappend cluster_num 2 1 1 ;# number of clusters in
each domain
AddrParams set cluster_num_ $cluster_num
lappend eilastlevel 1 1 2 2 ;# number of nodes in each
cluster for each domain
AddrParams set nodes_num_ $eilastlevel
set tracefd [open trace.tr w]
set namtrace [open out.nam w]
$ns trace-all $tracefd
$ns namtrace-all-wireless $namtrace $val(x) $val(y)
$ns namtrace-all $namtrace
# set up topography object
set topo [new Topography]
$topo load_flatgrid $val(x) $val(y)
#God (General Operations Director) is the object that is used to store global
information about the state of the environment, network or nodes
create-god [expr $val(nn) + $num_bs_nodes]
# Create channel
set chan_ [new $val(chan)]
# create wired nodes
set temp {0.0.0 0.1.0}
# for {set i 0} {$i < $num_wired_nodes} {incr i} {
# set W($i) [$ns node [lindex $temp $i]]
# }
set W(0) [$ns node 0.0.0]
set W(1) [$ns node 0.1.0]
# configure for base-station node
# nodes configuration
$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) \
-channel $chan_ \
-topoInstance $topo \
-wiredRouting ON \
-agentTrace OFF \
-routerTrace OFF \
-macTrace ON
# -movementTrace OFF \
# -phyTrace OFF
#create base-station node
set temp {1.0.0 1.0.1} ;# hier address to be used for BS
set temp {2.0.0 2.0.1}
set BS(0) [$ns node 1.0.0]
$BS(0) random-motion 0 ;# disable random motion
set BS(1) [$ns node 2.0.0]
$BS(1) random-motion 0 ;# disable random motion
# Provide initial location of mobile nodes
$BS(0) set X_ 200.0
$BS(0) set Y_ 400.0
$BS(0) set Z_ 0.0
$BS(1) set X_ 400.0
$BS(1) set Y_ 400.0
$BS(1) set Z_ 0.0
#configure for mobilenodes
$ns node-config -wiredRouting OFF
# now create mobilenodes
set node(0) [ $ns node 1.0.1 ]
$node(0) base-station [AddrParams addr2id \ [$BS(0) node-addr]] ;# provide
each mobilenode with hier address of its base-station
$node(0) set X_ 40.0
$node(0) set Y_ 330.0
$node(0) set Z_ 0.0
set node(1) [ $ns node 2.0.1 ]
$node(1) base-station [AddrParams addr2id \ [$BS(1) node-addr]] ;# provide
each mobilenode with hier address of its base-station
$node(1) set X_ 500.0
$node(1) set Y_ 300.0
$node(1) set Z_ 0.0
# create links between wired and BaseStation nodes
$ns duplex-link $W(0) $W(1) 5Mb 200ms DropTail
$ns duplex-link $W(1) $BS(0) 5Mb 200ms DropTail
$ns duplex-link $W(1) $BS(1) 5Mb 200ms DropTail
$ns duplex-link-op $W(0) $W(1) orient down
$ns duplex-link-op $W(1) $BS(0) orient left-down
$ns duplex-link-op $W(1) $BS(1) orient right-down
# setup TCP connections between a wired node and the Mobilenode
set tcp1 [new Agent/TCP]
$tcp1 set class_ 2
set sink1 [new Agent/TCPSink]
$ns attach-agent $W(0) $tcp1
$ns attach-agent $node(0) $sink1
$ns connect $tcp1 $sink1
set ftp1 [new Application/FTP]
$ftp1 attach-agent $tcp1
$ns at 6.0 "$ftp1 start"
# Generation of movements
$ns at 10 "$node(0) setdest 500.0 330.0 20.0"
# Define node initial position in nam
#for {set i 0} {$i < $val(bs)} { incr i } {
# 30 defines the node size for nam
#$ns initial_node_pos $BS($i) 100
#}
$ns initial_node_pos $node(0) 20
$ns initial_node_pos $node(1) 20
# Telling nodes when the simulation ends
$ns at $val(stop).0000010 "$BS(0) reset";
$ns at $val(stop).0000010 "$BS(1) reset";
$ns at $val(stop).0000010 "$node(0) reset";
$ns at $val(stop).0000010 "$node(1) reset";
# ending nam and the simulation
#$ns at $val(stop).0010 "$ns nam-end-wireless $val(stop)"
$ns at $val(stop).1 "puts \"end simulation\" ; $ns halt"
proc finish {} {
global ns tracefd namtrace
$ns flush-trace
close $tracefd
close $namtrace
exec nam out.nam &
}
$ns at 150 "finish"
$ns run
please i need help
thank you very much
best regards
