hello everybody:I use NS2-2.27 recently,the OS is Fedora Core 5 ,and encounter
a problem while I run a wireless simulation.first is the tcl
script:mobileIP.tcl#
======================================================================#
Options#
====================================================================== set
opt(nn) 1 ;# one MHset num_wired_nodes 2
;# two wired nodes set opt(x) 670 ;# x coordinate of
topologyset opt(y) 670 ;# y coordinate of topology set
opt(ftp1-start) 100.0 ;#start to transfer ftpset opt(stop)
250 ;#simulation stop set opt(tr-ns) infra-out.tr ;#
set trace fileset opt(tr-nam) infra-out.nam ;# set nam #
======================================================================#
MAC#
======================================================================
Mac/802_11!
set dataRate_ 2.0e6 ;# transfer rate 2MbpsMac/802_11 set
RTSThreshold_ 3000 ;# not use RTS/CTS #
======================================================================#
Nodes#
====================================================================== set ns_
[new Simulator]$ns_ node-config -addressType hierarchical ;# address
mode AddrParams set domain_num_ 3 ;# set 3 domain: wired, wireless,
wirelesslappend cluster_num 2 1 1 ;# set 2 clusters for wired
domain,1 to wireless 1, 1 to wireless 2AddrParams set cluster_num_
$cluster_numlappend eilastlevel 1 1 2 1 ;#set 1 node for wired
domain, cluster 1, 1 node for wired domain, cluster 2
;# set two nodes for wireless 1, cluster 1, set one node for wireless 2,
cluster 1AddrParams set nodes_num_ $eilastlevel ;# of each domain set tracefd
[open $opt(tr-ns) w]set namtrace [open $opt(tr-nam) w]$ns_ trace!
-all $tracefd$ns_ namtrace-all-wireless $namtrace $opt(x) $opt(y) set
topo [new Topography]$topo load_flatgrid $opt(x) $opt(y) create-god [expr
$opt(nn) + 2]# 2 for HA and FA
#-----------------------------------------------------------#
wired nodes#-----------------------------------------------------------
#set wired nodesset temp {0.0.0 0.1.0} ;# hierarchical addressesfor
{set i 0} {$i < $num_wired_nodes} {incr i} { set W($i) [$ns_ node [lindex
$temp $i]]} #-----------------------------------------------------------#
hybrid and wireless
nodes#----------------------------------------------------------- $ns_
node-config -mobileIP ON \ -adhocRoutiing DSDV \
-llType LL \ -macType Mac/802_11 \ -ifqType
Queue/DropTail/PriQueue \ -ifqLen 50 \ -antType
Antenna/OmniAntenna \ -propType Propagation/TwoRayGround \
-phyType Phy/WirelessPhy \ -channel [n!
ew "Channel/WirelessChannel"] \ -topoInstance $topo \
-wiredRouting ON \ -agentTrace ON \
-routerTrace OFF \ -macTrace OFF # set HA and FAset HA [$ns_
node 1.0.0] ;#domain 2, cluster 1, node 1set FA [$ns_ node 2.0.0] ;#domain
3, cluster 1, node 1 $HA set X_ 1.00$HA set Y_ 2.00$HA set Z_ 0.00 $FA set X_
650.00$FA set Y_ 600.00$FA set Z_ 0.00 # create links between wired and
BaseStation nodes$ns_ duplex-link $W(0) $W(1) 5Mb 2ms DropTail$ns_ duplex-link
$W(1) $HA 5Mb 2ms DropTail$ns_ duplex-link $W(1) $FA 5Mb 2ms DropTail $ns_
duplex-link-op $W(0) $W(1) orient down$ns_ duplex-link-op $W(1) $HA orient
left-down$ns_ duplex-link-op $W(1) $FA orient right-down # create a mobilenode
(in the domain of the HA)# that is moving between HA and FA.$ns_ node-config
-wiredRouting OFF #set Mobile Hostset MH [$ns_ node 1.0.1]#register MH to HAset
HAaddress [AddrParams addr2id [$HA node-addr]][$MH set regagent!
_] set home_agent_ $HAaddress$MH set Z_ 0.00$MH set Y_ 2.00$MH set X_
2.00 # at 100 sec,MH move towards FA$ns_ at 100.00 "$MH setdest 640.00 610.00
20.00"# at 200 sec,MH move towards HA$ns_ at 200.00 "$MH setdest 2.00 2.00
20.00" # Define initial node position in nam$ns_ initial_node_pos $MH 20
#==================================================================#
Agents#================================================================== set
tcp1 [new Agent/TCP]$tcp1 set class_ 2set sink1 [new Agent/TCPSink]$ns_
attach-agent $W(0) $tcp1$ns_ attach-agent $MH $sink1$ns_ connect $tcp1
$sink1set ftp1 [new Application/FTP]$ftp1 attach-agent $tcp1$ns_ at
$opt(ftp1-start) "$ftp1 start"
#==================================================================#
End#================================================================== $ns_ at
$opt(stop).0 "$MH reset";$ns_ at $opt(stop).0 "$HA reset";$ns_ at $opt(stop).0
"$FA reset"; $ns_ at $opt(stop).0002 "puts \"NS EXITING...\" ; $ns_ halt"$ns_
at $opt(stop)!
.0001 "finish" proc finish {} { global ns_ tracefd namtrace close
$tracefd close $namtrace exec rm -f out-tcp.xgr exec awk -f
fil-tcp.awk infra-out.tr > out-tcp.xgr exec xgraph out-tcp.xgr & exec nam
infra-out.nam &} puts "Starting Simulation..."$ns_
run***************************************************************************AND
THEN WHEN I use "ns mobileIP.tcl",system return following error info:[EMAIL
PROTECTED] testns]# ns mobileIP.tclnum_nodes is set 3can't read "regagent_": no
such variable while executing"subst $[subst $var]" (procedure "_o115"
line 5) (SplitObject set line 5) invoked from within"$MH set regagent_"
invoked from within"[$MH set regagent_] set home_agent_ $HAaddress" (file
"mobileIP.tcl" line 264)
I can run the test-suite-WLtutorial.tcl wireless3,and not appear above error
info. I use google to find the reason,but I can't find anything useful.Hope
anyone can give some advises!Thanks in advance.
_________________________________________________________________
中国十大热门旅游景点
http://search.msn.com/results.aspx?q=%E4%B8%AD%E5%9B%BD%E5%8D%81%E5%A4%A7%E9%A3%8E%E6%99%AF&mkt=zh-CN&form=QBRE
