NS网络模拟与协议仿真源代码.doc

第4章 例1 #建立一个模拟 set ns [new Simulator] #定义不同数据流的颜色（NAM显示时用到） $ns color 1 Blue $ns color 2 Red #开启Trace跟踪和NAM跟踪 set tracefd [open wired.tr w] $ns trace-all $tracefd set nf [open wired.nam w] $ns namtrace-all $nf #定义结束进程 proc finish {} { global ns tracefd nf $ns flush-trace close $tracefd close $nf exit 0 } #定义节点 set n0 [$ns node] set n1 [$ns node] set n2 [$ns node] set n3 [$ns node] set n4 [$ns node] set n5 [$ns node] #$n5 color black $n5 color red #定义节点间的链路 $ns duplex-link $n0 $n1 2Mb 10ms DropTail $ns duplex-link $n1 $n2 2Mb 10ms DropTail $ns duplex-link $n1 $n4 2Mb 20ms DropTail $ns dupl