【正文】 set val(mac) Mac/802_11 。 MAC type MAC類型 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) 50 。 max packet in ifq IFQ最大包 set val(nn) 8 。移動節(jié)點數(shù)量 set val(rp) DSDV 。 routing protocol 路由協(xié)定 set val(x) 500 。 X尺寸的地形 set val(y) 500 。 Y尺寸的地形 Mac/802_11 set RTSThreshold_ 3000 Mac/802_11 set basicRate_ 1Mb Mac/802_11 set dataRate_ 2Mb 2）初始化跟蹤檔案 ===================================================================== *** 吞吐量跟蹤 *** set f0 [open w] set f1 [open w] set f2 [open w] set f3 [open w] *** 數(shù)據(jù)包丟失跟蹤 *** set f4 [open w] set f5 [open w] set f6 [open w] set f7 [open w] *** 分組延遲跟蹤 *** set f8 [open w] set f9 [open w] set f10 [open w] set f11 [open w] 用圖記錄的統(tǒng)計 exec xgraph geometry 800x400 amp。 exec xgraph geometry 800x400 amp。 exec xgraph geometry 800x400 amp。 源代碼（ ） =================================================================== Define Node Configuration paramaters定義節(jié)點的配置參數(shù) =================================================================== set val(chan) Channel/WirelessChannel 。 channel type 通道類型 set val(prop) Propagation/TwoRayGround 。 radiopropagation model 無線傳播模型 set val(if) Phy/WirelessPhy 。 work interface type 網(wǎng)絡(luò)接 口類型 set val(mac) Mac/802_11 。 MAC type MAC類型 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) 50 。 max packet in ifq IFQ最大包 set val(nn) 8 。 number of mobilenodes 移動節(jié)點數(shù)量 set val(rp) DSDV 。 routing protocol 路由協(xié)定 set val(x) 500 。 X dimension of the topography X尺寸的地形 set val(y) 500 。 Y dimension of the topography Y尺寸的地形 Mac/802_11 set RTSThreshold_ 3000 Mac/802_11 set basicRate_ 1Mb Mac/802_11 set dataRate_ 2Mb ===================================================================== 初始化跟蹤檔案 desctiptors“ 25 ===================================================================== *** 吞吐量跟蹤 *** set f0 [open w] set f1 [open w] set f2 [open w] set f3 [open w] *** 數(shù)據(jù)包丟失跟蹤 *** set f4 [open w] set f5 [open w] set f6 [open w] set f7 [open w] *** 分組延遲跟蹤 *** set f8 [open w] set f9 [open w] set f10 [open w] set f11 [open w] 以下部分的代碼，在 入門實例 1 中已有詳盡的注釋啦！ set ns_ [new Simulator] set tracefd [open w] $ns_ traceall $tracefd set namtrace [open w] $ns_ namtraceallwireless $namtrace $val(x) $val(y) set topo [new Topography] $topo load_flatgrid 500 500 建立常規(guī)運營總監(jiān)（ GOD）對象。 它是用來存儲全局信息的環(huán)境狀況，網(wǎng)絡(luò)，或節(jié)點的 觀察員將存在，但不會參與模擬的。 creategod $val(nn) 配置節(jié)點 $ns_ nodeconfig adhocRouting $val(rp) \ llType $val(ll) \ macType $val(mac) \ ifqType $val(ifq) \ ifqLen $val(ifqlen) \ antType $val(ant) \ propType $val(prop) \ phyType $val(if) \ channelType $val(chan) \ topoInstance $topo \ agentTrace ON \ routerTrace ON \ macTrace OFF \ movementTrace OFF 創(chuàng)建節(jié)點 for {set i 0} {$i $val(nn) } {incr i} { set node_($i) [$ns_ node] $node_($i) randommotion 0 。 禁用隨機(jī)運動 } 初始化節(jié)點坐標(biāo) $node_(0) set X_ 26 $node_(0) set Y_ $node_(0) set Z_ $node_(1) set X_ $node_(1) set Y_ $node_(1) set Z_ $node_(2) set X_ $node_(2) set Y_ $node_(2) set Z_ $node_(3) set X_ $node_(3) set Y_ $node_(3) set Z_ $node_(4) set X_ $node_(4) set Y_ $node_(4) set Z_ $node_(5) set X_ $node_(5) set Y_ $node_(5) set Z_ $node_(6) set X_ $node_(6) set Y_ $node_(6) set Z_ $node_(7) set X_ $node_(7) set Y_ $node_(7) set Z_ 設(shè)置節(jié)點之間的流量 TCP連接之間 node_(0) and node_(1) 創(chuàng)建恒四個比特率的流量來源 ============================================================ 以下的這段代 碼可以寫成一個過程，那樣就方便多啦！ 先整理， 以后我再回頭改吧！ ============================================================ set agent1 [new Agent/UDP] 。 Create TCP Agent創(chuàng)建 TCP代理 $agent1 set prio_ 0 。 設(shè)置其優(yōu)先級為 0 創(chuàng)建虧損監(jiān)視器片，為了能夠跟蹤數(shù)字 obytes的 set sink [new Agent/LossMonitor] $ns_ attachagent $node_(0) $agent1 。 源節(jié)點將代理 $ns_ attachagent $node_(1) $sink 。 附加劑到匯聚節(jié)點 $ns_ connect $agent1 $sink 。 連接節(jié)點 set app1 [new Application/Traffic/CBR] 。 創(chuàng)建恒定比特率的應(yīng)用 $app1 set packetSize_ 512 。 設(shè)置數(shù)據(jù)包大小為 512字節(jié) $app1 set rate_ 600Kb 。 集的 CBR率為 200比特 /秒 $app1 attachagent $agent1 。 附加應(yīng)用程序代理 set agent2 [new Agent/UDP] 。 創(chuàng)建 TCP代理 $agent2 set prio_ 1 。 設(shè)置優(yōu)先級為 1 創(chuàng)建為損耗監(jiān)測 接收器能夠接收道數(shù) obytes set sink2 [new Agent/LossMonitor] 27 $ns_ attachagent $node_(2) $agent2 。 附加劑對源節(jié)點 $ns_ attachagent $node_(3) $sink2 。 附加劑到匯聚節(jié)點 $ns_ connect $agent2 $sink2 。 Connect the nodes set app2 [new Application/Traffic/CBR] 。 創(chuàng)建恒定比特率的應(yīng)用 $app2 set packetSize_ 512 。 設(shè)置數(shù)據(jù)包大小為 512字節(jié) $app2 set rate_ 600Kb 。 集的 CBR率為 200比特 /秒 $app2 attachagent $agent2 。 附加應(yīng)用程序代理 set agent3 [new Agent/UDP] 。 創(chuàng)建 TCP代理 $agent3 set prio_ 2 。 設(shè)置優(yōu)先級為 2 set sink3 [new Agent/LossMoni