hi all,
i have installed aodv+ for gateway discovery on ns-2.28 (redhat 9)
aodv+ was in ns2 contributed code section
it worked everything fine for all the example scripts provided......
but when i changed the number of nodes in the given example
wired_wireless_ex.tcl
i received a segmentation fault
i don't know wheres the fault .please atleast help me how to debug ns2 scripts
containing
segmentation faults........
*************************************
here is the complete code
**************************************
#####try.tcl
set opt(namfile) out.nam
set opt(tracefile) out.tr
set opt(x) 500; #x dimension of the topography
set opt(y) 500; #y dimension of the topography
set opt(wirelessNodes) 6; #mobile nodes
set opt(wiredNodes) 8; #hosts and routers
set opt(gatewayNodes) 2; #gateways
set val(stop) 60.0; #simulation time
set val(start-src) 1
set val(stop-src) 50
set opt(gw_discovery) reactive; #gateway discovery method
# ======================================================================
#---------------------------
#Initialize Global Variables
#---------------------------
#create a simulator object
set ns [new Simulator]
$ns color 0 Brown
#----------------------------------------
#Define The Hierachial Topology Structure
#----------------------------------------
$ns node-config -addressType hierarchical
#Nbr of domains
AddrParams set domain_num_ 3
#Nbr of clusters (=subdomains) in each domain
lappend clusterNbr 2 2 1
AddrParams set cluster_num_ $clusterNbr
#Nbr of nodes in each cluster
lappend eilastlevel 3 2 4 4 3
AddrParams set nodes_num_ $eilastlevel
######
#create trace objects for ns and nam
$ns use-newtrace
set nstrace [open $opt(tracefile) w]
$ns trace-all $nstrace
set namtrace [open $opt(namfile) w]
$ns namtrace-all-wireless $namtrace $opt(x) $opt(y)
#create a topology object and define topology (500mx500m)
set topo [new Topography]
$topo load_flatgrid $opt(x) $opt(y)
#Choose method for gateway discovery
if {$opt(gw_discovery) == "proactive"} {
Agent/AODV set gw_discovery 0
}
if {$opt(gw_discovery) == "hybrid"} {
Agent/AODV set gw_discovery 1
}
if {$opt(gw_discovery) == "reactive"} {
Agent/AODV set gw_discovery 2
}
#create wired nodes
set temp {2.0.0 2.0.1 2.0.2 2.0.3 2.1.4 2.1.5 2.1.6 2.1.7}
for {set i 0} {$i < $opt(wiredNodes)} {incr i} {
set host($i) [$ns node [lindex $temp $i]]
}
#create God (General Operations Director)
create-god [expr $opt(wirelessNodes)+$opt(gatewayNodes)]]
#--------------------------------------
#Configure for Gateway and Mobile Nodes
#--------------------------------------
#Use hierarchical addresses for GWs and MNs
#configure for mobile nodes and gateways
$ns node-config -adhocRouting AODV
$ns node-config -llType LL
$ns node-config -macType Mac/802_11
$ns node-config -ifqType Queue/DropTail/PriQueue
$ns node-config -ifqLen 50
$ns node-config -antType Antenna/OmniAntenna
$ns node-config -propType Propagation/TwoRayGround
$ns node-config -phyType Phy/WirelessPhy
$ns node-config -topoInstance $topo
$ns node-config -channel [new Channel/WirelessChannel]
$ns node-config -agentTrace ON
$ns node-config -routerTrace ON
$ns node-config -macTrace ON
$ns node-config -movementTrace OFF
#############3
#configure for gateways
$ns node-config -wiredRouting ON
#create gateway
set gw(0) [$ns node 0.0.0]
#set initial coordinates
$gw(0) set X_ 100.0
$gw(0) set Y_ 250.0
$gw(0) set Z_ 0.0
$ns at 0.00 "$gw(0) setdest 100 250 20"
########try
set gw(1) [$ns node 1.0.0]
#set initial coordinates
$gw(1) set X_ 500.0
$gw(1) set Y_ 250.0
$gw(1) set Z_ 0.0
$ns at 0.00 "$gw(1) setdest 500 250 20"
#Define node initial position in nam
#configure for mobile nodes
$ns node-config -wiredRouting OFF
#create mobile nodes in the same domain as gw(0)
set temp {0.0.1 0.0.2 0.1.0 0.1.1 1.0.1 1.0.2}
for {set i 0} {$i < $opt(wirelessNodes)} {incr i} {
set mobile($i) [$ns node [lindex $temp [expr $i]]]
if {$i<4} {
$mobile($i) base-station [AddrParams addr2id [$gw(0) node-addr]]
} else {
$mobile($i) base-station [AddrParams addr2id [$gw(1) node-addr]]
}
}
$mobile(0) set X_ 10
$mobile(0) set Y_ 200
$mobile(0) set Z_ 0.0
$mobile(1) set X_ 60
$mobile(1) set Y_ 320
$mobile(1) set Z_ 0.0
$mobile(2) set X_ 50
$mobile(2) set Y_ 250
$mobile(2) set Z_ 0.0
$mobile(3) set X_ 100
$mobile(3) set Y_ 100
$mobile(3) set Z_ 0.0
$mobile(4) set X_ 500
$mobile(4) set Y_ 150
$mobile(4) set Z_ 0.0
$mobile(5) set X_ 600
$mobile(5) set Y_ 250
$mobile(5) set Z_ 0.0
#####################33
puts ""
for {set i 0} {$i < $opt(wiredNodes) } {incr i} {
puts "host$i = [$host($i) node-addr] = [AddrParams addr2id [$host($i)
node-addr]]"
}
puts "gw0 = [$gw(0) node-addr] = [AddrParams addr2id [$gw(0) node-addr]]"
puts "gw1 = [$gw(1) node-addr] = [AddrParams addr2id [$gw(1) node-addr]]"
for {set i 0} {$i < $opt(wirelessNodes)} {incr i} {
puts "mobile($i) = [$mobile($i) node-addr] = [AddrParams addr2id
[$mobile($i) node-addr]]"
}
puts ""
$host(0) color blue
$host(1) color blue
$host(2) color blue
$host(3) color blue
$host(4) color blue
$host(5) color blue
$host(6) color blue
$host(7) color blue
$gw(0) color red
$gw(1) color red
for {set i 0} {$i < $opt(wiredNodes) } {incr i} {
$ns at 0.0 "$host($i) label \"HOST $i\""
}
$ns at 0.0 "$gw(0) label GATEWAY"
$ns at 0.0 "$gw(1) label GATEWAY"
for {set i 0} {$i < $opt(wirelessNodes)} {incr i} {
$ns at 0.0 "$mobile($i) label \"MN $i\""
}
#################33
#create links between wired nodes and basestation node
$ns duplex-link $gw(0) $host(0) 5Mb 2ms DropTail
$ns duplex-link $host(1) $gw(0) 5Mb 2ms DropTail
$ns duplex-link $host(0) $host(3) 5Mb 2ms DropTail
$ns duplex-link $host(1) $host(4) 5Mb 2ms DropTail
$ns duplex-link $host(1) $host(2) 5Mb 2ms DropTail
$ns duplex-link $host(2) $host(5) 5Mb 2ms DropTail
$ns duplex-link $host(3) $host(4) 5Mb 2ms DropTail
$ns duplex-link $host(3) $host(6) 5Mb 2ms DropTail
$ns duplex-link $host(4) $host(5) 5Mb 2ms DropTail
$ns duplex-link $host(4) $host(6) 5Mb 2ms DropTail
$ns duplex-link $host(4) $host(7) 5Mb 2ms DropTail
$ns duplex-link $host(5) $host(7) 5Mb 2ms DropTail
$ns duplex-link $host(6) $host(7) 5Mb 2ms DropTail
$ns duplex-link $host(7) $gw(1) 5Mb 2ms DropTail
$ns duplex-link $host(6) $gw(1) 5Mb 2ms DropTail
#$ns duplex-link-op $host(0) $host(1) orient up
#$ns duplex-link-op $host(1) $gw(0) orient right-up
$ns duplex-link-op $gw(0) $host(0) orient right-up
$ns duplex-link-op $host(1) $gw(0) orient left-up
$ns duplex-link-op $host(0) $host(3) orient right
$ns duplex-link-op $host(1) $host(4) orient right-up
$ns duplex-link-op $host(1) $host(2) orient right-down
$ns duplex-link-op $host(2) $host(5) orient right
$ns duplex-link-op $host(3) $host(4) orient down
$ns duplex-link-op $host(3) $host(6) orient right
$ns duplex-link-op $host(4) $host(5) orient down
$ns duplex-link-op $host(4) $host(6) orient right-up
$ns duplex-link-op $host(4) $host(7) orient right
$ns duplex-link-op $host(5) $host(7) orient right-up
$ns duplex-link-op $host(6) $host(7) orient down
$ns duplex-link-op $host(7) $gw(1) orient right
$ns duplex-link-op $host(6) $gw(1) orient right
#---------------------
#Setup Traffic
#---------------------
#MN5 ==> HOST0
for {set i 0} {$i < 3} { incr i} {
set src($i) [new Agent/UDP]
set dst($i) [new Agent/Null]
$src($i) set fid_ ($i)
}
$ns attach-agent $mobile(3) $src(0)
$ns attach-agent $mobile(1) $src(1)
$ns attach-agent $mobile(4) $src(2)
for {set i 0} {$i < 3} { incr i} {
$ns connect $src($i) $dst($i)
set cbr($i) [new Application/Traffic/CBR]
$cbr($i) attach-agent $src($i)
$cbr($i) set packetSize_ 512
$cbr($i) set interval_ 0.2
$ns at $val(start-src) "$cbr($i) start"
$ns at $val(stop-src) "$cbr($i) stop"
}
#$ns at $val(start-src) "$ns trace-annotate \"MN 5 ==> HOST 0 at
t=$val(start-src) s!\""
#---------------------
#Setup Node Movement
#---------------------
#-----------------------------------
#Define Node Initial Position In Nam
#-----------------------------------
#20 defines the node size in nam, must adjust it according to your scenario
#The function must be called after mobility model is defined
for {set i 0} {$i < $opt(wirelessNodes)} {incr i} {
$ns initial_node_pos $mobile($i) 20
}
#-----------------------------------
#Tell Nodes When The Simulation Ends
#-----------------------------------
for {set i 0} {$i < $opt(wirelessNodes)} {incr i} {
$ns at $val(stop).0 "$mobile($i) reset"
}
$ns at $val(stop).0 "$gw(0) reset";
$ns at $val(stop).0 "$gw(1) reset";
$ns at $val(stop).0001 "stop"
$ns at $val(stop).0002 "puts \"NS EXITING...\" ; $ns halt"
proc stop {} {
global ns nstrace namtrace opt
$ns flush-trace
close $nstrace
close $namtrace
exec nam $opt(namfile) &
exit 0
}
puts "Starting simulation..."
$ns run
Send free SMS to your Friends on Mobile from your Yahoo! Messenger. Download
Now! http://messenger.yahoo.com/download.php
