运行tcl脚本时出错

时间:2014-03-20 17:41:22

标签: linux tcl ns2

我正在运行使用RTP进行视频传输的tcl脚本。为此,我在现有文件中进行了一些更改并对其进行了修改。在那之后我试图运行这个cript我 陷入以下错误。

错误:无法统计starwars.nsformat分段错误

可以任何身体帮助??

set ns [new Simulator] 
set end_sim_time 10.0

#Open the nam trace file 
set nf [open final.nam w] 
set tf [open final.tr w] 

$ns namtrace-all $nf 
$ns trace-all $tf 

#Define a 'finish' procedure 
proc finish {} { 
        global ns nf tf 
        $ns flush-trace 
        #Close the trace file 
        close $nf 
        close $tf 
        #Execute nam on the trace file 
        exec nam final.nam & 
        exit 0 
} 

set node_(s1) [$ns node] 
set node_(s2) [$ns node] 
set node_(r1) [$ns node] 

$ns duplex-link $node_(s1) $node_(r1) 10Mb 5ms DropTail 
$ns duplex-link $node_(s2) $node_(r1) 10Mb 5ms DropTail 

set trace_file [new Tracefile] 
$trace_file filename starwars.nsformat 

set RTP_s [new Agent/RTP_v2] 
set RTCP_r [new Agent/RTCP_v2] 

set self [new Session/RTP] 

$ns attach-agent $node_(s1) $RTP_s 
$ns attach-agent $node_(s2) $RTCP_r 
$ns connect $RTP_s $RTCP_r 

set video [new Application/Traffic/Trace] 
$video attach-tracefile $trace_file 
$video attach-agent $RTP_s 

$RTCP_r session $self 
$RTP_s session $self 

$RTCP_r set interval_ 100ms 
$RTCP_r set seqno_ 0
$RTP_s set packetSize_ 1064 

$ns at 0.0 "$video start" 
$ns at 0.0 "$RTCP_r start" 
$ns at $end_sim_time    { 
                        $video stop 
                        $RTCP_r stop 
                        #$RTP_s stop 
                        finish 
                        } 

$ns run

0 个答案:

没有答案
相关问题