看n2实例 #Create a simulator object

set ns [new Simulator]



#Define different colors for data flows

#$ns color 1 Blue

#$ns color 2 Red



#Open the nam trace file

set nf [open out-1.nam w]

$ns namtrace-all $nf



set f0 [open out0.tr w]

set f1 [open out1.tr w]



#Define a finish procedure

proc finish {} {

global ns nf

$ns flush-trace

　　#Close the trace file

close $nf

　　#Execute nam on the trace file

exit 0

}



#Create four nodes

set n0 [$ns node]

set n1 [$ns node]

set n2 [$ns node]

set n3 [$ns node]



#Create links between the nodes

$ns duplex-link $n0 $n2 1Mb 10ms