新建一个仿真实例：
set ns [new Simulator]为了让nam文件和trace文件有地方可以依托，我们要打开.nam文件进行写入，并且使用句柄nf
set nf [open out.nam w]
$ns namtrace-all $nf
设置拓扑图
1、设置节点的脚本语言：建了两个节点，叫n0,n1
set n0 [$ns node]
set n1 [$ns node]2、建立一个链接
$ns duplex-link $n0 $n1 1Mb 10ms DropTail该行告诉模拟器对象将节点n0和n1用带宽1Megabit的双工链路连接，延迟10ms、DropTail队列
发送数据
1、为了能真正的发送数据，要设置“代理”——n0发送数据的代理和n1接收数据的代理
首先，设置发送数据的代理
#Create a UDP agent and attach it to node n0
set udp0 [new Agent/UDP]
$ns attach-agent $n0 $udp0# Create a CBR traffic source and attach it to udp0
set cbr0 [new Application/Traffic/CBR]
$cbr0 set packetSize_ 500
$cbr0 set interval_ 0.005
$cbr0 attach-agent $udp0脚本创建一个UDP代理并将其附加到节点n0，然后将一个CBR流量生成器附加到UDP代理。数据包大小被设置为500字节，并且每0.005秒发送一个数据包（即每秒200个数据包）。
然后 设置接收数据的代理
set null0 [new Agent/Null]
$ns attach-agent $n1 $null0以上脚本创建一个Null代理，作为流量接收器并将其附加到节点n1。
为了能互相发送数据，要将两个代理连接起来，使用以下语句：
$ns connect $udp0 $null0然后，我们要告诉CBR（发送数据的那个）什么时候开始发送，什么时候结束发送
$ns at 0.5 "$cbr0 start"
$ns at 4.5 "$cbr0 stop"上面语句就是说，在0.5s的时候开始发送，在4.5s的时候结束发送
下面是整个完整的简单的TCL脚本语言：
#Create a simulator object
set ns [new Simulator]#Open the nam trace file
set nf [open out.nam w]
$ns namtrace-all $nf#Define a 'finish' procedure
proc finish {} {global ns nf$ns flush-trace
#Close the trace fileclose $nf
#Execute nam on the trace fileexec nam out.nam &exit 0
}#Create two nodes
set n0 [$ns node]
set n1 [$ns node]#Create a duplex link between the nodes
$ns duplex-link $n0 $n1 1Mb 10ms DropTail#Create a UDP agent and attach it to node n0
set udp0 [new Agent/UDP]
$ns attach-agent $n0 $udp0# Create a CBR traffic source and attach it to udp0
set cbr0 [new Application/Traffic/CBR]
$cbr0 set packetSize_ 500
$cbr0 set interval_ 0.005
$cbr0 attach-agent $udp0#Create a Null agent (a traffic sink) and attach it to node n1
set null0 [new Agent/Null]
$ns attach-agent $n1 $null0#Connect the traffic source with the traffic sink
$ns connect $udp0 $null0 #Schedule events for the CBR agent
$ns at 0.5 "$cbr0 start"
$ns at 4.5 "$cbr0 stop"
#Call the finish procedure after 5 seconds of simulation time
$ns at 5.0 "finish"#Run the simulation
$ns run
)
2)
