【正文】 間間隔執(zhí)行 Record 過程 } $ns at Record 。 的時候開始記錄過程 $ns at $ftp start $ns at finish 。 的時候完成 $ns run 。開始運行 、 NAM 動畫演示 10 11 12 、流量分析（曲線模擬） 分析：從 執(zhí)行的是慢啟動過程，之后執(zhí)行的擁塞控制過程。 有線節(jié)點與無線節(jié)點的混合仿真模擬實驗 、 tcl 文件（ ） 定義選項，設(shè)定模擬需要的一些屬性。 set val(chan) Channel/WirelessChannel 。 無線信道類型 set val(prop) Propagation/TwoRayGround 。 無限信號傳輸模型 set val(if) Phy/WirelessPhy 。 物理層類型為無線物理層 set val(mac) Mac/802_11 。 MAC 層采用 協(xié)議 set val(ifq) Queue/DropTail/PriQueue 。 接口隊列類型為 IFQ 隊列 set val(ll) LL 邏輯鏈路層類型 LL 層 set val(ant) Antenna/OmniAntenna 。 天線類型為全向天線 set val(ifqlen) 50 。 隊列長 度 13 set val(nn) 2 。 移動節(jié)點個數(shù) set val(rp) DSDV 。 路由協(xié)議 set val(x) 500 。 拓?fù)涞?X 尺寸（單位 m） set val(y) 500 。 拓?fù)涞?Y 尺寸 初始化全局變量 建立一個 Simulator 對象的實例并賦值給變量 ns_ set ns_ [new Simulator] 打開一個名為 的文件（若不存在，則創(chuàng)建），設(shè)定文件可寫，變量 tracefd指向該文件 Set tracefd [open w] 調(diào)用 Simulator 類的 traceall 方法將整個模擬過程寫入 的 Trace 文件中 $ns_ traceall $tracefd set namtracefd [open w] 在拓?fù)浞秶鷥?nèi)建立無線 nam 跟蹤 $ns_ namtraceallwireless $namtracefd $val(x) $val(y) 建立一個 Topography 對象，該對象會保證節(jié)點在拓?fù)溥吔绶秶鷥?nèi)運動 set topo [new Topography] 設(shè)定模擬所采用的場景的長寬尺寸 $topo load_flatgrid $val(x) $val(y) 建立一個 God 對象。 God 對象主要用來對路由協(xié)議做性能評價，它存儲了節(jié)點總數(shù)，節(jié)點間最短路徑等信息。節(jié)點的 MAC 對象會調(diào)用 God 對象，因此即使不使用也仍然要建立此對象。 creategod $val(nn) 建立指定數(shù)目 [$val(nn)]的移動節(jié)點并將它們連接至信道。 這里建立了兩個節(jié)點： node(0)， node(1) 配置節(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 14 建立兩個節(jié)點，關(guān)閉節(jié)點的隨機(jī)運動功能，即節(jié)點的運動完全有程序指定 for {set i 0} {$i $val(nn) } {incr i} { set node_($i) [$ns_ node] $node_($i) randommotion 0 。 } 為移動節(jié)點指定初始的 X， Y 坐 標(biāo)，此處 Z 坐標(biāo)為 0 $node_(0) set X_ $node_(0) set Y_ $node_(0) set Z_ $node_(1) set X_ $node_(1) set Y_ $node_(1) set Z_ 下面產(chǎn)生一些簡單的運動 Node_(1)在 ，以 (,)運動 $ns_ at $node_(1) setdest Node_(0)在 ，以 (,)運動 $ns_ at $node_(0) setdest Node_(1)在 ，以 (,)運動 $ns_ at $node_(1) setdest 設(shè)置節(jié)點間的流量 創(chuàng)建一個 TCP 源代理對象 tcp set tcp [new Agent/TCP] class_是 agent 類中定義的整型變量 ,用于分類，之后可用于著色。此程序無用。 $tcp set class_ 2 創(chuàng)建分組的接收代理對象 sink set sink [new Agent/TCPSink] 將源代理對象 tcp 綁定到節(jié)點 0 $ns_ attachagent $node_(0) $tcp 將接收代理對象 sink 綁定到節(jié)點 1 $ns_ attachagent $node_(1) $sink 在源代理對象 tcp 和接收代理對象 sink 之間建立連接 $ns_ connect $tcp $sink 在 TCP 連接上創(chuàng)建一個 FTP 流 量模擬器，因為 TCP 不會產(chǎn)生自己的流量 set ftp [new Application/FTP] $ftp attachagent $tcp 在 啟動 ftp 流量模擬器 $ns_ at $ftp start 模擬結(jié)束時告知節(jié)點 for {set i 0} {$i $val(nn) } {incr i} { 在模擬結(jié)束前 ()重置節(jié)點中的所有對象 $ns_ at $node_($i) reset。 } 15 告知 Simulator 對象在 時調(diào)用 stop 過程 $ns_ at stop 在 時輸出提示語句并終止調(diào)度器 $ns_ at puts \NS EXITING...\ 。 $ns_ halt stop 過程 proc stop {} { global ns_ tracefd namtracefd 。聲明全局變量 $ns_ flushtrace 。清空跟蹤的緩沖區(qū) close $tracefd 。關(guān)閉文件 close $namtracefd exec nam amp。 。啟動 nam exit 0 } puts Starting Simulation... 啟動調(diào)度器 $ns_ run 2． NAM 動畫顯示 、 awk 文件分析 、 文件 BEGIN { highest_uid=0。 highest_uid 會保存一處理過的分組中最大的 uid } { event=$1。 第一個字段 $1 標(biāo)識事件的類型 16 time=$2。 第二個字段 $2 標(biāo)識事件發(fā)生的時間 node=$3。 第三個字段 $3 標(biāo)識事件發(fā)生所在的地點 len=length(node) 有線 trace 和無線 trace 格式不同，通過判斷 node 的字段唱得知是哪一種格式 if(len==3) 無線 trace 格式 $3 如“ _x_”，字段長 len=3 {node_ =substr(node,2,1)。 獲取節(jié)點號 trace_type=$4。 無線 trace 第四個字段 $4 為事件發(fā)生所在的網(wǎng)絡(luò)層面 flag=$5。 uid=$6。 無線 trace 第 6 個字段 $6 為分組的 uid pkt_type=$7。 無線 trace 第 7 個字段 $7 為分組的類型 pkt_size=$8。 無線 trace 第 8 個字段 $8 為分組的大小 } Else 有線 trace 格式 $3 如“ x”，字段長 len=1 {from_node =$3。 有線 trace 第 3 個字段 $3 為分組的源節(jié)點 to_node=$4。 有線 trace 第 4 個字段 $4 為分組的目的節(jié)點 pkt_type=$5。 有線 trace 第 5 個字段 $5 為分組的類型 pkt_size=$6。 有線 trace 第 6 個字段 $6 為分組的大小 flag=$7。 uid=$12。 有線 trace 第 12 個字段 $12 為分組的 uid } if(len==3) 如果分析的是無線 trace 記錄 if(event==s amp。amp。 node_==2 amp。amp。 pkt_type==cbr amp。amp。 highest_uid==uid) start_time[uid]=time。 源節(jié)點是無線節(jié)點 2，保存源節(jié)點發(fā)送分組的時間 } else { 如果分析的是有線 trace 記錄 if(event==r amp。amp。 to_node==0 amp。amp。 pkt_type==cbr amp。amp。 highest_uid==uid) end_time[uid]=time。 目的節(jié)點是無線節(jié)點 0，保存目的節(jié)點發(fā)送分組的時間 } if(event==s amp。amp。 node_==2 amp。amp。 pkt_type==cbr amp。amp。 highest_uiduid) highest_uid=uid。 更新 highest_uid 的值 } END { id=1。 delay=。 for(i=0。i=highest_uid。i++) { start=start_time[i]。 end=end_time[i