5 NS2编程出错调试实例.docVIP

NS2编程出错调试实例 1 引言 NS2缺乏比较好的调试工具，当我们编写的一个比较长的TCL脚本出错时往往不知道问题出在哪里。在调试NS2程序时，我们更重要的是要有耐心，仔细分析出错的原因。经验往往会在这时起到很重要的作用。下面是我调试一个脚本的经验，希望能够对调试TCL脚本有所启发。 2 调试实例 程序依旧是上次试验的程序，即有四个节点进行消息传送。这次的目的是查看即时的C++参数值，测量FTP那条TCP Flow的congestion window变化。具体程序参考0/~smallko/ns2/module.htm后面部分的[范例二]。 下面是我的程序，以及出错的地方。红色的部分是我的调试经验。 #set a simulator set ns [new Simulator] #针对不同的资料流设定不同的颜色，这是给NAM用的 $ns color 1 Blue $ns color 2 Red #开启一个NAM trace file set nf [open out.nam w] $ns namtrace-all $nf #开启一个档案，用来记录封包传送的过程 set nd [open out.tr w] $ns trace-all $nd #开启一个档案，用来记录TCP Flow的congestion window变化情况 set wnd_trace [open cwnd.tr w] #定义一个记录的程序，每个0.1秒就去查看目前TCP Flow的值 proc record {} { global ns tcp wnd_trace set time 0.1 #读取C++内cwnd_的变量值 set curr_cwnd [$tcp set cwnd_] set now [$ns now] puts $wnd_trace $now $curr_cwnd $ns at [expr $now+$time] record } #定义一个结束的程序 #这里把函数中第一行的wnd_trace写成了wnd_race，运行给出的出错信息为 #ns: finish: cant read wnd_trace: no such variable # while executing #close $wnd_trace # (procedure finish line 6) # invoked from within #finish #这说明问题出在finish这个函数 proc finish {} { global ns nf nd wnd_race $ns flush-trace close $nf close $nd close $wnd_trace #以背景执行的方法去执行NAM exec nam out.nam exit 0 } #产生四个节点 set n0 [$ns node] set n1 [$ns node] set n2 [$ns node] set n3 [$ns node] #把节点连接起来 $ns duplex-link $n0 $n2 2Mb 10ms DropTail $ns duplex-link $n1 $n2 2Mb 10ms DropTail $ns duplex-link $n2 $n3 1.7Mb 20ms DropTail set qn2n3_ [[$ns link $n2 $n3] queue] #设定n2到n3之间的Queue Size为10个封包大小 $ns queue-limit $n2 $n3 10 #设定节点的位置，这是给NAM用的 $ns duplex-link-op $n0 $n2 orient right-down $ns duplex-link-op $n1 $n2 orient right-up $ns duplex-link-op $n2 $n3 orient right #观测n2到n3之间queue的变化，这是要给NAM用的 $ns duplex-link-op $n2 $n3 queuePos 0.5 #建立一条TCP连接 set tcp [new Agent/TCP] $tcp set class_ 2 $ns attach-agent $n0 $tcp set sink [new Agent/TCPSink] $ns attach-agent $n3 $sink $ns connect $tcp $sink #在NAM中，TCP的连线会以蓝色表示 $tcp set fid_