ns2仿真实验（柯志亨）TCP与UDP解读（一）

先上张图片，这是运行的图片。

下面说下代码，柯志恒老师的详细解释就不说了，下面说下我的理解：

set ns [new Simulator]
$ns color 1 Blue                              //此处为什么要设置为1？  后面fid_ 1就是指的这里
$ns color 2 Red
set nf [open out.nam w]                 //以写方式打开一个nam文件out
$ns namtrace-all $nf                                                             
set nd [open out.tr w]
$ns trace-all $nd
proc finish {} {                                //此处需注意finish和{}之间有空格，同样{}和{之间也有空格，很多同学在此通不过
        global ns nf nd                      //定义一个全局变量，至于为什么要定义，参见TCL语法
        $ns flush-trace                      //执行两个trace
        close $nf
        close $nd
        exec nam out.nam &           //调用进程
        exit 0
}
set s1 [