set ns [new Simulator]#建立一个新的模拟对象simulator

 set tracef [open example1.tr w]#变量tracef指向example1.tr文件

 #ns trace-all $tacef#记录模拟过程trace数据

 set namtf [open example1.nam w]#变量namtf指向example1.nam文件

 $ns namtrace-all $namtf#记录nam的trace数据

 proc finish {} {关闭两个trace文件，在模拟结束后调用nam程序

     global ns tracef namtf

     $ns flush-trace

     close $tracef

     close $namtf

     exec nam example1.nam &

     exit

 )

 set n0 [$ns node]#创建节点n0

 set n1 [$ns node]#创建节点n1

 $ns duplex-link $n0 $n1 1Mb 10ms DropTail#在n0和n1之间建立一条双向的链路，带宽1Mbit/s，时延10ms，队列类型为DropTail。

 set udp0 [new Agent/UDP]#创建一个udp0 Agent

 $ns attach-agent $no $udp0#将udp0绑定到n0上

 set cbr0 [new Application/Traffic/CBR]#创建一个CBR流量发生器

 $cbr0 set packetSize_ #分组大小为500B

 $cbr0 set interval_ 0.005#发送间隔为5ms

 $cbr0 attach-agent $udp0#将CBR绑定到udp0上

 set null0 [new Agent/Null]#创建一个Null Agent作为数据接收器

 $ns attach-agent $n1 $null0#绑定到n1上

 $ns connect $udp0 $null0#将两个Agent连接起来

 $ns at 0.5 "$cbr0 start"#.5s时启动cbr0

 $ns at 4.5 "$cbr0 stop"#.5s时停止cbr0

 $ns at 5.0 "finish"#.0s时调用finish过程

 $ns run#开始模拟

 set val(chan) Channel/WirelessChannel #channel type，val(chan)作为变量名是一个整体，下同

 set val(proc) Propagation/TwoRayGround #radio-propagation model

 set val(netif) Phy/WirelessPhy #network interface type

 set val(mac) Mac/802_11 #MAC type

 set val(ifq) Queue/DropTail/PriQueue #interface queue type

 set val(ll) LL #link layer type

 set val(ant) Antenna/OmniAntenna #antenna model

 set val(ifqlen)  #max packet in ifq

 set val(nn)  #number of mobilenodes

 set val(rp) AODV #routing protocol

 set val(x)  #X dimension of the topography

 set val(y)  #Y dimension of the topography

 set ns [new Simulator]

 set tracefd [open wireless.tr w]

 $ns trace-all $tracefd

 set namtracefd [new wireless.nam w]

 $ns namtrace-all-wireless $namtracefd $val(x) $val(y)

 set topo [new Topography]#建立一个Topography对象，该对象可以保证节点在拓扑边界范围内运动

 $topo load_flatgrid $val(x) $val(y)#设定模拟所用场景的大小

 create-god $val(nn) #建立一个God对象，主要用来对路由协议做性能评价；节点的MAC对象会调用God对象，因此即使我们在这里并不适用God对象，仍然需要建立一个God对象

 $ns node-config -adhocRouting $val(rp)\ #配置节点参数

     -llType $val(ll)\

     -macType $val(mac)\

     -ifqType $val(ifq)\

     -ifqLen $val(ifqlen)\

     -antType $val(ant)\

     -propType $val(prop)\

     -phyType $val(netif)\

     -channelType $val(chan)\

     -topoInstance $topo\

     -agentTrace ON\

     -routerTrace ON\

     -macTrace OFF\

     -movementTrace OFF

 for{set i } {$i < $val(nn)} {incr i} {

     set node_($i) [$ns node]

     $node_($i) random-motion  #disable random motion 禁止节点随机移动，让节点按脚本规定的方式移动

 $node_() set X_ 5.0 #设定节点初始坐标X,Y,Z

 $node_() set Y_ 2.0

 $node_() set Z_ 0.0

 $node_() set X_ 390.0

 $node_() set Y_ 385.0

 $node_() set Z_ 0.0

 $ns at 5.0 "$node_(1) setdest 25.0 20.0 15.0"#节点1在5s时以15m/s的速度向坐标(25.0,20.0)的点运动

 $ns at 1.0 "$node_(0) setdest 20.0 18.0 1.0"

 $ns at  "$node_(1) setdest 490.0 480.0 15.0"

 set tcp [new Agent/TCP]

 $tcp set class_

 set sink [new Agent/TCPSink]

 $ns attach-agent $node_() $tcp

 $ns attach-agent $node_() $sink

 $ns connect $tcp $sink

 set ftp [new Appication/FTP]

 $ftp attach-agent $tcp

 $ns at 1.0 "$ftp start"

 for {set i } {$i < $val(nn)} {incr i} {

     $ns at 15.0 "$node_($i) reset"

 }

 $ns at 15.0 "stop"

 proc stop{} {

     global ns tracefd nametracefd

     $ns flush-trace

     close $tracefd

     close $nametracefd

     exec nam wireless nam &

     exit

 }

 $ns run