在NS2中添加COPE协议后运行cope-tcpap.tcl文件时出现Segmentation fault错误，请教各位大牛们怎么弄？

jingziwo 2012-04-17 07:41:34

运行后显示：
INITIALIZE THE LIST xListHead
*** NOTE: no connection pattern specified.
Loading scenario file...
Load complete...
Starting Simulation...
channel.cc:sendUp - Calc highestAntennaZ_ and distCST_
highestAntennaZ_ = 1.5, distCST_ = 550.0
SORTING LISTS ...DONE!
Segmentation fault
-----------------------------------------------------------------------------
原cope-tcpap.tcl文件：
set opt(chan) Channel/WirelessChannel
set opt(prop) Propagation/TwoRayGround
#set opt(netif) NetIf/SharedMedia
set opt(netif) Phy/WirelessPhy
#set opt(mac) Mac/802_11
set opt(mac) Mac/802_11
#set opt(ifq) Queue/DropTail/PriQueue
#set opt(ifq) CMUPriQueue
set opt(ifq) COPE
set opt(ll) LL
set opt(ant) Antenna/OmniAntenna
set opt(x) 670 ;# X dimension of the topography
set opt(y) 670 ;# Y dimension of the topography
#set opt(cp) "../mobility/scene/cbr-3-test"
#set opt(cp) "../mobility/scene/traffic-3-test-new"
set opt(cp) ""
set opt(sc) "./tcl/mobility/scene/scene-3-test-new"
set opt(ifqlen) 50 ;# max packet in ifq
set opt(nn) 3 ;# number of nodes
set opt(seed) 0.0
set opt(stop) 100 ;# simulation time 2000.0
set opt(tr) cope-tcpap.tr ;# trace file
set opt(rp) dsr ;# routing protocol script
#set opt(rp) aodv ;# routing protocol script
set opt(lm) "off" ;# log movement
#对于TCP窗口，建立一个专门的文件记录其变化趋势
set winfile_(0) [open cope-tcpap0.win w]
set winfile_(1) [open cope-tcpap1.win w]
# ======================================================================
set AgentTrace ON
set RouterTrace ON
set MacTrace ON
LL set mindelay_ 50us
LL set delay_ 25us
LL set bandwidth_ 0 ;# not used
Agent/Null set sport_ 0
Agent/Null set dport_ 0
Agent/CBR set sport_ 0
Agent/CBR set dport_ 0
Agent/TCPSink set sport_ 0
Agent/TCPSink set dport_ 0
Agent/TCP set sport_ 0
Agent/TCP set dport_ 0
Agent/TCP set packetSize_ 1460
Simulator set COPE ON
COPE set txtime_factor_ 32
COPE set gc_interval_ 1.0
Queue/DropTail/PriQueue set Prefer_Routing_Protocols 1
# unity gain, omni-directional antennas
# set up the antennas to be centered in the node and 1.5 meters above it
Antenna/OmniAntenna set X_ 0
Antenna/OmniAntenna set Y_ 0
Antenna/OmniAntenna set Z_ 1.5
Antenna/OmniAntenna set Gt_ 1.0
Antenna/OmniAntenna set Gr_ 1.0
# Initialize the SharedMedia interface with parameters to make
# it work like the 914MHz Lucent WaveLAN DSSS radio interface
Phy/WirelessPhy set CPThresh_ 10.0
Phy/WirelessPhy set CSThresh_ 1.559e-11
Phy/WirelessPhy set RXThresh_ 3.652e-10
Phy/WirelessPhy set Rb_ 2*1e6
Phy/WirelessPhy set Pt_ 0.2818
Phy/WirelessPhy set freq_ 914e+6
Phy/WirelessPhy set L_ 1.0
Mac/802_11 set basicRate_ 2e6
Mac/802_11 set dataRate_ 2e6
Phy/WirelessPhy set bandwidth_ 2e6
Phy/WirelessPhy set Rb_ 2e6
# ======================================================================
。。。
# Agent/TCP/Newreno/AP set history_ 25
set tcp_($fi) [new Agent/TCP/Newreno]
# $tcp_($fi) set backoff_ 2
# set tcpsink_($fi) [new Agent/TCPSink]
$ns_ attach-agent $node_($src) $tcp_($fi)
# $ns_ attach-agent $node_($dst) $tcpsink_($fi)
# $ns_ connect $tcp_($fi) $tcpsink_($fi)
set mtcpsink_($fi) [new Agent/TCPSink/copeTcpSink]
$mtcpsink_($fi) set_filename cope_tcpap_sink_$fi
$ns_ attach-agent $node_($dst) $mtcpsink_($fi)
$ns_ connect $tcp_($fi) $mtcpsink_($fi)
$tcp_($fi) set fid_ $fi
# $tcp_($fi) set window_ 64
# $tcp_($fi) set maxcwnd_ 40
set ftp_($fi) [new Application/FTP]
$ftp_($fi) attach-agent $tcp_($fi)
if { $log_file_prefix != "" } {
# $tcpsink_($fi) set total_bytes_ 0
# $ns_ register_record $tcpsink_($fi) $log_file_prefix$fi.tr
set tcptrace_($fi) [open $log_file_prefix$fi.log w]
$tcp_($fi) set trace_all_oneline_ false
$tcp_($fi) trace cwnd_
# $tcp_($fi) trace rtt_
# $tcp_($fi) trace srtt_
# $tcp_($fi) trace ssthresh_
$tcp_($fi) attach $tcptrace_($fi)
$ns_ at $opt(stop) "flush $tcptrace_($fi)"
$ns_ at $opt(stop) "close $tcptrace_($fi)"
}
$ns_ at $start "$ftp_($fi) start"
# $ns_ at $opt(stop) "$mtcpsink($fi) closefile"
incr fi
}
Simulator instproc register_record {agent file} {
$self instvar agent_list log_file_list
lappend agent_list $agent
lappend log_file_list [open $file w]
}
###################################################
proc plotWindow {tcpSource file} {
global ns_
#设置抽样距离，每过0.1s后再调用自己
set time 0.1
set now [$ns_ now]
set cwnd [$tcpSource set cwnd_]
set wnd [$tcpSource set window_]
#把当前时间数据和cwnd的数据记录到file所指向的文件中
puts $file "$now $cwnd"
#这是一个递归过程，在过了0.1秒后继续调用本函数，并记录时间数据和cwnd数据
$ns_ at [expr $now+$time] "plotWindow $tcpSource $file" }
####################################################
。。。
# ======================================================================
# Main Program
# ======================================================================
getopt $argc $argv
#
# Source External TCL Scripts
#
source ./tcl/lib/ns-mobilenode.tcl
。。。
source ./tcl/lib/ns-cmutrace.tcl
# do the get opt again incase the routing protocol file added some more
# options to look for
getopt $argc $argv
。。。
#
# Initialize Global Variables
#
set ns_ [new Simulator]
set chan [new $opt(chan)]
set prop [new $opt(prop)]
set topo [new Topography]
set tracefd [open $opt(tr) w]
$ns_ node-config -macTrace ON
set nf [open nam-out-test.nam w]
set f [open trace-out-test.tr w]
$ns_ namtrace-all-wireless $nf $opt(x) $opt(y)
$ns_ trace-all $f
#$ns_ copeValve "ON"
$topo load_flatgrid $opt(x) $opt(y)
$prop topography $topo
# Create God
create-god $opt(nn)
# log the mobile nodes movements if desired
#
if { $opt(lm) == "on" } {
log-movement
}
# Create the specified number of nodes $opt(nn) and "attach" them
# the channel.
# Each routing protocol script is expected to have defined a proc
# create-mobile-node that builds a mobile node and inserts it into the
# array global $node_($i)
#
。。。
#enable node trace in nam

for {set i 0} {$i < $opt(nn)} {incr i} {
$node_($i) namattach $nf
# 20 defines the node size in nam, must adjust it according to your scenario
$ns_ initial_node_pos $node_($i) 20
}
###################################################
# Set God for COPE----thie is necessary
for {set i 0} {$i < $opt(nn) } {incr i} {
#set node_($i) [$ns_ node]
$node_($i) random-motion 0 ;# disable random motion
$god_ new_node $node_($i)
}
###################################################
#
# Source the Connection and Movement scripts
#
if { $opt(cp) == "" } {
puts "*** NOTE: no connection pattern specified."
set opt(cp) "none"
} else {
puts "Loading connection pattern..."
source $opt(cp)
}
create_tcp_connection 0 2 cope-tcpap 0.000000
create_tcp_connection 2 0 cope-tcpap 0.000000
#在0.1开始记录TCP的情况和窗口信息
$ns_ at 0.1 "plotWindow $tcp_(0) $winfile_(0)"
$ns_ at 0.1 "plotWindow $tcp_(1) $winfile_(1)"
# Tell all the nodes when the simulation ends
#
for {set i } {$i < $opt(nn) } {incr i} {
$ns_ at $opt(stop).000000001 "$node_($i) reset";
}
$ns_ at $opt(stop).000000002 "puts \"NS EXITING...\" ; $ns_ halt"
if { $opt(sc) == "" } {
puts "*** NOTE: no scenario file specified."
set opt(sc) "none"
} else {
puts "Loading scenario file..."
source $opt(sc)
puts "Load complete..."
}
puts $tracefd "M 0.0 nn $opt(nn) x $opt(x) y $opt(y) rp $opt(rp)"
puts $tracefd "M 0.0 sc $opt(sc) cp $opt(cp) seed $opt(seed)"
puts $tracefd "M 0.0 prop $opt(prop) ant $opt(ant)"
puts "Starting Simulation..."
$ns_ run
proc stop {} {
global ns_ f nf
$ns_ flush-trace
close $f
close $nf
exec nam nam-out-test.nam &
exit 0
}

...全文