【正文】 。$ns run 。開始運行、NAM動畫演示、流量分析（曲線模擬）分析：，之后執(zhí)行的擁塞控制過程。有線節(jié)點與無線節(jié)點的混合仿真模擬實驗、tcl文件（） 定義選項，設定模擬需要的一些屬性。set val(chan) Channel/WirelessChannel 。 無線信道類型set val(prop) Propagation/TwoRayGround 。 無限信號傳輸模型set val(netif) Phy/WirelessPhy 。 物理層類型為無線物理層set val(mac) Mac/802_11 。 set val(ifq) Queue/DropTail/PriQueue 。 接口隊列類型為IFQ隊列set val(ll) LL 邏輯鏈路層類型LL層set val(ant) Antenna/OmniAntenna 。 天線類型為全向天線set val(ifqlen) 50 。 隊列長度set val(nn) 2 。 移動節(jié)點個數(shù)set val(rp) DSDV 。 路由協(xié)議set val(x) 500 。 拓撲的X尺寸（單位m）set val(y) 500 。 拓撲的Y尺寸 初始化全局變量建立一個Simulator對象的實例并賦值給變量ns_set ns_ [new Simulator]（若不存在，則創(chuàng)建），設定文件可寫，變量tracefd指向該文件Set tracefd [open w]$ns_ traceall $tracefdset namtracefd [open w]在拓撲范圍內建立無線nam跟蹤$ns_ namtraceallwireless $namtracefd $val(x) $val(y)建立一個Topography對象，該對象會保證節(jié)點在拓撲邊界范圍內運動set topo [new Topography]設定模擬所采用的場景的長寬尺寸$topo load_flatgrid $val(x) $val(y) 建立一個God對象。God對象主要用來對路由協(xié)議做性能評價，它存儲了節(jié)點總數(shù)，節(jié)點間最短路徑等信息。節(jié)點的MAC對象會調用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(netif) \ channelType $val(chan) \ topoInstance $topo \ agentTrace ON \ routerTrace ON \ macTrace OFF \ movementTrace OFF 建立兩個節(jié)點，關閉節(jié)點的隨機運動功能，即節(jié)點的運動完全有程序指定 for {set i 0} {$i $val(nn) } {incr i} {set node_($i) [$ns_ node] $node_($i) randommotion 0 。} 為移動節(jié)點指定初始的X，Y坐標，此處Z坐標為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_ 下面產生一些簡單的運動 Node_(1)，(,)運動$ns_ at $node_(1) setdest Node_(0)，(,)運動$ns_ at $node_(0) setdest Node_(1)，(,)運動$ns_ at $node_(1) setdest 設置節(jié)點間的流量創(chuàng)建一個TCP源代理對象tcpset tcp [new Agent/TCP]class_是agent類中定義的整型變量,用于分類，之后可用于著色。此程序無用。$tcp set class_ 2創(chuàng)建分組的接收代理對象sinkset 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不會產生自己的流量set ftp [new Application/FTP]$ftp attachagent $tcp$ns_ at $ftp start模擬結束時告知節(jié)點for {set i 0} {$i $val(nn) } {incr i} {在模擬結束前()重置節(jié)點中的所有對象 $ns_ at $node_($i) reset。}$ns_ at stop$ns_ at puts \NS EXITING...\ 。 $ns_ haltstop過程proc stop {} { global ns_ tracefd namtracefd 。聲明全局變量 $ns_ flushtrace 。清空跟蹤的緩沖區(qū) close $tracefd 。關閉文件 close $namtracefd exec nam amp。 。啟動nam exit 0}puts Starting Simulation...啟動調度器$ns_ run2．NAM動畫顯示、awk文件分析、 文件BEGIN { highest_uid=0。 highest_uid 會保存一處理過的分組中最大的uid}{ event=$1。 第一個字段$1標識事件的類型 time=$2。 第二個字段$2標識事件發(fā)生的時間 node=$3。 第三個字段$3標識事件發(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)絡層面flag=$5。 uid=$6。 無線trace第6個字段$6為分組的uidpkt_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]。 delay=end start。 計算分組的延遲時間 if( startend) printf(%d %.9f\n,rate,delay)。 打印節(jié)點 delay=delay+(end start)。 節(jié)點之間發(fā)送的分組機分組的延遲時間 }}、BEGIN { init=0。 i=0。 } { event = $1。 time = $2。