NS2入门学习（二）之tcl脚本示例

1、示例分析

tcl语法与python相差不多，以《NS与网络模拟》中的第一个tcl脚本为例，学习如下：

#建立一个Simulator对象的实例并把它赋值给变量ns
set ns [new Simulator]
#打开一个名为linktrace.tr的文件，用来记录模拟过程的trace数据，变量nf指向该文件
set nf [open linktrace.tr w]
$ns trace-all $nf


#打开一个名为namtrace.nam的文件，用来记录nam的trace数据，变量namtracefd指向该文件
set namtracefd [open linktrace.nam w]
$ns namtrace-all $namtracefd




#Define a 'finish' procedure
#建立一个名为finish的过程，用来关闭两个trace文件，并调用nam程序
proc finish {} {
        global ns nf namtracefd
        $ns flush-trace
        #Close the NAM trace file
        close $nf
	close $namtracefd
        #Execute NAM on the trace file
        exec nam linktrace.nam &
        exit 0
}
 
#Create four nodes 创建2个节点并分别赋值给n0和n1
set n0 [$ns node]
set n1 [$ns node]


#Create links between the nodes ，设定带宽为1Mbit/s,延时为10ms，队列类型为DropTail
$ns duplex-link $n0 $n1 1Mb 10ms DropTail


#创建一个UDP Agent并把它绑定到n0上
set udp0 [new Agent/UDP]
$ns attach-agent $n0 $udp0


#Setup a CBR over UDP connection，CBR的流量发生器，设置分组大小为500Bytes，发送间隔为#5ms，然后把它绑定到udp0上
#有一条固定的传输速率的联机(Constant Bit Rate，CBR)，
#CBR应用程序是架构在UDP之上，因此必需在n0使用UDP agent来产生”udp”用来发送UDP封包，在n1上使用Null agent来产生”sink”以接收由n1传送过来的UDP封包，
#然后把接收的封包释放。

set cbr0 [new Application/Traffic/CBR]
$cbr0 set packet_size_ 500
$cbr0 set interval_ 0.005
$cbr0 attach-agent $udp0


#新建一个Null Agent并把它绑定到n1上，Null是一种数据接收器
set null0 [new Agent/Null]
$ns attach-agent $n1 $null0


#将udp0和null0两个Agent连接起来
$ns connect $udp0 $null0


#告知Simulator对象在0.5s时启动cbr0（开始发送数据），在4.5s时停止cbr0（停止发送数据）
#Schedule events for the CBR and FTP agents
$ns at 0.5 "$cbr0 start"
$ns at 4.5 "$cbr0 stop"
 
#告知Simulator对象在5s时调用finish过程
$ns at 5.0 "finish"
#开始模拟
$ns run

在执行脚本时出现问题如下

所以发现问题是在命名tr与nam文件时，名称需要相同：linktrace.tr     linktrace.nam（nam，这是给NAM用的，用来把模拟的过程用可视化的方式呈现出来，这可以让使用者用”看”的方式去了解封包传送是如何从来源端送到接收端）

2、运行之后可以查看到nam仿真过程，如下图

3、在wxjtest.tcl相同目录下回会看到生成的linktrace.tr和linktrace.nam，接下来需要利用awk工具来分析数据并利用图形工具生成图形。