返回信息流出现问题：Error!!
str2addr:Address 7239534 outside range of address field length 20488
tcl：
#增加全局变量 opt(rate)和过程 getopt
set opt(rate) 0
proc getopt {argc argv} {
global opt
set opt(rate) [lindex $argv 0 ]
}
set val(mm) 4
#无线节点参数
set val(chan) Channel/WirelessChannel
set val(prop) Propagation/TwoRayGround
set val(netif) Phy/WirelessPhy
set val(mac) Mac/802_11
set val(ifq) Queue/DropTail/PriQueue
set val(ll) LL
set val(ant) Antenna/OmniAntenna
set val(ifqlen) 50
set val(rp) DSDV
set val(nn) 4
set val(x) 600
set val(y) 600
set val(stop) 10.0
#建立一个simulator实例
set ns [new Simulator]
#设定分层路由地址
$ns node-config -addressType hierarchical
AddrParams set domain_num_ 2
lappend cluster_num 1 1
AddrParams set cluster_num_ $cluster_num
lappend eilastlevel 1 3
AddrParams set nodes_num_ $eilastlevel
puts "configuration of hierarchical addressing done"
#$ns use-newtrace
#设置 trace
set tracefd [open wired_wireless.tr w]
set namtrace [open wired_wireless.nam w]
$ns trace-all $tracefd
$ns namtrace-all-wireless $namtrace $val(x) $val(y)
#建立topology对象
set topo [new Topography]
$topo load_flatgrid $val(x) $val(y)
#创建 god
create-god $val(nn)
set sinkNode [$ns node 0.0.0 ]
$sinkNode set X_ 500
$sinkNode set Y_ 300
$sinkNode set Z_ 0
$ns initial_node_pos $sinkNode 60
set chan_1_ [new $val(chan) ]
#无线节点配置
$ns node-config -wireRouting ON \
-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_1_ \
-topoInstance $topo \
-agentTrace ON \
-routerTrace ON \
-macTrace ON \
-movementTrace OFF
for {set i 0} {$i<$val(nn)} {incr i} {
set node_($i)[$ns node]
}
#新建BS节点
set bs(0) [$ns node 1.0.0 ]
$bs(0) random-motion 0
#节点标签与初始位置设定
$bs(0) set X_ 200.0
$bs(0) set Y_ 300.0
$bs(0) set Z_ 0.0
$ns initial_node_pos $bs(0) 60
#定义节点间的链路
$ns duplex-link $sinkNode $bs(0) 10Mb 1ms DropTail
$ns duplex-link-op $sinkNode $bs(0) orient left
#定义链路的队列长度
#$ns queue-limit $bs(0) $sinkNode 10
#监视链路的队列
#$ns duplex-link-op $bs(0) $sinkNode queuePos 0.5
$ns node-config -wiredRouting OFF \
-macType Mac/802_11
#新建ss节点
set ss(0) [ $ns node 1.0.1 ]
$ss(0) base-station [AddrParams addr2id [ $bs(0) node-addr ]]
$ss(0) set X_ 50.0
$ss(0) set Y_ 450.0
$ss(0) set Z_ 0.0
$ns initial_node_pos $ss(0) 60
set ss(1) [$ns node 1.0.2]
$ss(1) base-station [AddrParams addr2id [$bs(0) node-addr]]
$ss(1) set X_ 50.0
$ss(1) set Y_ 150.0
$ss(1) set Z_ 0.0
$ns initial_node_pos $ss(1) 60
getopt $argc $argv
puts "opt(rate)=$opt(rate)"
#建立一个UDP代理udp0以及与udp0相绑定的数据流cbr0
set udp0 [new Agent/UDP]
$ns attach-agent $ss(0) $udp0
set null0 [new Agent/Null]
$ns attach-agent $sinkNode $null0
$ns connect $udp0 $null0
set cbr0 [new Application/Traffic/CBR]
$cbr0 attach-agent $udp0
$cbr0 set rate_ $opt(rate) Kb
#建立一个UDP代理udp1以及与udp1相绑定的数据流cbr0
set udp1 [new Agent/UDP]
$ns attach-agent $sinkNode $udp1
set null1 [new Agent/Null]
$ns attach-agent $ss(1) $null1
$ns connect $udp1 $null1
set cbr1 [new Application/Traffic/CBR]
$cbr1 attach-agent $udp1
$cbr1 set rate_ $opt(rate) Kb
#设置启动和停止数据流的时间
$ns at 0.5 "$cbr0 start"
$ns at 1.0 "cbr1 start"
$ns at 9.0 "$cbr1 stop"
$ns at 9.5 "$cbr0 stop"
#定义结束过程，关闭trace文件和NAM显示文件，模拟结束时调用
proc finish {} {
global ns tracefd namtrace
$ns flush-trace
close $tracefd
close $namtrace
exit 0
}
#模拟结束时调用结束过程
$ns at $val(stop) "finish"
$ns at $val(stop) "puts \"NS EXITSTING...\"; $ns halt"
puts "Start Simulation...."
#执行模拟
$ns run
这是一条镜像帖。来源：北邮人论坛 / communications / #21700同步于 2012/11/15
Communications机器人发帖
ns2:使用分层路由时出现地址溢出，求大牛指点。
mafu007
2012/11/15镜像同步0 回复
订阅后，新回复会通过你的通知中心匿名送达。
0 条回复
暂无回复 · 你可以订阅本帖等待新回复。