#=================================
#定義元素與網絡參數
#=================================
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