aodv.tcl

aodv仿真代码 aodv仿真代码 aodv仿真代码

#=================================
#定义元素与网络参数
#=================================
set val(chan) Channel/WirelessChannel ;#采用无线信道
set val(prop) Propagation/TwoRayGround ;#无线电波的传播方式
set val(ant) Antenna/OmniAntenna ;#天线方式，全方位天线
set val(ll) LL ;#ll 层采用 LL
set val(ifq) Queue/DropTail/PriQueue ;#接口队列模型
#当仿真 DSR 协议时需将接口队列模型由 Queue/DropTail/PriQueue 改为 CMUPriQueue;
set val(ifqlen) 50 ;#ifq 队列的容量
set val(netif) Phy/WirelessPhy ;#无线物理层
set val(mac) Mac/802_11 ;#MAC 层采用 802.11
set val(nn) 5 ;#场景中的结点数
set val(rp) AODV ;#待仿真的路有协议
set val(stop) 200 ;#仿真停止时间
set val(x) 670 ;#场景的长
set val(y) 670 ;#场景的宽
#===============================
#主程序
#===============================
#初始化全局变量
set ns_ [new Simulator]
#打开跟踪文件
$ns_ use-newtrace ;#使用新的 Trace 格式
set tracefd [open aodv.tr w] ;#trace 输出文件为 aodv.tr
$ns_ trace-all $tracefd
#生成 nam 跟踪文件对象
#set namtracefd [open aodv5n.nam w]
#$ns_ namtrace-all-wireless $namtracefd $val(x) $val(y)
#定义拓扑,场景大小为 670×670
set topo [new Topography]
$topo load_flatgrid $val(x) $val(y)
#创建一个 god 实例
set god_ [create-god $val(nn)]
set channel [new Channel/WirelessChannel]
$channel set errorProbability_ 0.0
#无线节点的配置，引用前面定义的参数
$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 $channel \
-topoInstance $topo \
-agentTrace ON \
-routerTrace ON\
-macTrace OFF \
-movementTrace ON
#创建移动节点
for {set i 0} {$i < $val(nn)} {incr i} {
set node_($i) [$ns_ node]
$node_($i) random-motion 1 ;#允许随机运动
}
#调用场景文件
puts "Loading scenario file...."
source "scene_5n"
source "cbr_5n"
#定义节点在 NAM 中的初始位置
#for {set i 0} {$i < $val(nn)} {incr i} {
#$ns_ initial_node_pos $node_($i) 30
#}
proc stop {} {
global ns_ tracefd namtracefd
$ns_ flush-trace ;#刷新仿真过程中所有trace对象的缓冲区
close $tracefd ;#关闭跟踪文件
}
# 告诉每个节点什么时候 NS 运行结束
for {set i 0} {$i < $val(nn)} {incr i} {
$ns_ at $val(stop).0 "$node_($i) reset"
}
$ns_ at $val(stop).01 "stop"
$ns_ at $val(stop).0 "puts \"Exiting simulation...\" ; $ns_ halt"
puts "Starting Simulation..."
$ns_ run