tcl脚本

#无线节点参数

set val(chan) Channel/WirelessChannel ；#无线信道

set val(prop) Propagation/TwoRayGround ；#无线传输模型是TwoRayGround set val(netif) Phy/WirelessPhy ；#网络接口类型是无线物理层

set val(mac) Mac/802_11 ；#MAC层协议采用802.11

set val(ifq) Queue/DropTail/PriQueue ；#接口队列类型是IFQ队列

set val(ll) LL ；#逻辑链路层类型LL层

set val(ant) Antenna/OmniAntenna ；#天线类型是全向天线

set val(ifqlen) 50 ；#网络接口队列的大小是50

set val(rp) AODV ；#无线路由协议是AODV协议set val(x) 600 ；#设定拓扑范围——长度，600m set val(y) 200 ；#设定拓扑范围——宽度，200m set val(stop) 10.0 ；#设定模拟时间，10s

set val(nn) 3 ；#节点数，3个

#建立一个模拟实例

set ns [new Simulator]

#开启Trace跟踪文件和NAM显示文件

set tracefd [open wireless.tr w]

set namtrace [open wireless.nam w]

$ns trace-all $tracefd

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

#建立一个拓扑对象，记录节点的移动情况

set topo [new Topography]

$topo load_flatgrid $val(x) $val(y)

#创建God(General Operations Diretor)对象，存储网络状态以及节点间连接信息

create-god $val(nn)

#创建物理信道对象

set chan_1_ [new $val(chan)]

#配置无线节点（包括使用何种路由协议，何种MAC协议，无线信道模型等）

$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) \

-channel $chan_1_ \

-topoInstance $topo \

-agentTrace ON \

-routerTrace ON \

-macTrace ON \

-movementTrace OFF

#建立无线节点并设置节点的位置（节点位置决定了拓扑结构）

set n(0) [$ns node]

$n(0) random-motion 0

$n(0) set X_ 100.0

$n(0) set Y_ 100.0

$n(0) set Z_ 0.0

$ns initial_node_pos $n(0) 60

set n(1) [$ns node]

$n(1) random-motion 0

$n(1) set X_ 300.0

$n(1) set Y_ 100.0

$n(1) set Z_ 0.0

$ns initial_node_pos $n(1) 60

set n(2) [$ns node]

$n(2) random-motion 0

$n(2) set X_ 500.0

$n(2) set Y_ 100.0

$n(2) set Z_ 0.0

$ns initial_node_pos $n(2) 60

#建立UDP代理

set udp0 [new Agent/UDP] ；#建立一个UDP发送代理

$ns attach-agent $n(0) $udp0 ；#将UDP发送代理绑定到节点0

set null0 [new Agent/Null] ；#建立一个UDP接收代理

$ns attach-agent $n(2) $null0 ；#将UDP接收代理绑定到节点2

$ns connect $udp0 $null0 ；#连接UDP发送代理和接收代理

#在UDP代理上建立CBR流

set cbr0 [new Application/Traffic/CBR] ；#建立一个CBR流应用

$cbr0 attach-agent $udp0 ；#将CBR流应用绑定到UDP发送代理

#仿真结束时重置节点

for {set i 0} {$i < 3} {incr i} {

$ns at 10.0 "$n($i) reset";

}

#启动和结束代理

$ns at 0.5 "$cbr0 start"

$ns at 9.5 "$cbr0 stop"

#定义结束过程，关闭Trace文件和NAM显示文件，模拟结束时调用proc finish {} {

global ns tracefd namtrace

$ns flush-trace

close $tracefd

close $namtrace

exit 0

}

#模拟结束时调用结束过程

$ns at $val(stop) "finish"

$ns at $val(stop) "puts \"NS EXISTING...\"; $ns halt"

puts "Start simulation..."

#执行模拟

$ns run