#无线节点参数 set val(chan) set val(prop) set val(netif) set val(mac) set val(ifq) set val(ll) set val(ant) set val(ifqlen) set val(rp) set val(x) set val(y) set val(stop) set val(nn) #建立一个模拟实例 set ns [new Simulator]
Channel/WirelessChannel Propagation/TwoRayGround Phy/WirelessPhy Mac/802_11 Queue/DropTail/PriQueue LL Antenna/OmniAntenna 50 AODV 600 200 10.0 3
；#无线信道 ； #无线传输模型是 TwoRayGround ；#网络接口类型是无线物理层 ；#MAC 层协议采用 802.11 ；#接口队列类型是 IFQ 队列 ；#逻辑链路层类型 LL 层 ；#天线类型是全向天线 ；#网络接口队列的大小是 50 ；#无线路由协议是 AODV 协议 ；#设定拓扑范围——长度，600m ；#设定拓扑范围——宽度，200m ；#设定模拟时间，10s ；#节点数，3 个
#开启 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] $ns attach-agent $n(0) $udp0 set null0 [new Agent/Null] $ns attach-agent $n(2) $null0 $ns connect $udp0 $null0 #在 UDP 代理上建立 CBR 流 set cbr0 [new Application/Traffic/CBR] $cbr0 attach-agent $udp0 #仿真结束时重置节点 for {set i 0} {$i < 3} {incr i} { $ns at 10.0 "$n($i) reset"; } #启动和结束代理
；#建立一个 UDP 发送代理 ；#将 UDP 发送代理绑定到节点 0 ；#建立一个 UDP 接收代理 ；#将 UDP 接收代理绑定到节点 2 ；#连接 UDP 发送代理和接收代理 ；#建立一个 CBR 流应用 ；#将 CBR 流应用绑定到 UDP 发送代理
$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