先上张图片,这是运行的图片。
下面说下代码,柯志恒老师的详细解释就不说了,下面说下我的理解:
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 [