此範例的目的為了產生四個點, 網路拓樸如下 : Node1 是 CBR, Node0 是 FTP, 分別經過 Node2 送資料給 Node3, 程式碼 ns-simple.tcl 內容如下 : # 首先先建立一個NS2模擬的物件 set ns [new Simulator] # 定義兩種顏色，以便到時候再nam模擬時，能依顏色看的出來封包的流向 $ns color 1 Blue $ns color 2 Red # 如同前面語法所介紹的，建立一個nam所能執行的trace-file set nf [open out.nam w] $ns namtrace-all $nf # 定義一個叫做 'finish' 的 procedure proc finish {} { global ns nf $ns flush-trace # Close the NAM trace file close $nf # Execute NAM on the trace file exec nam out.nam & exit 0 } # 建立四個點 set n0 [$ns node] set n1 [$ns node] set n2 [$ns node] set n3 [$ns node] # 創造點和點之間的連結 $ns duplex-link $n0 $n2 2Mb 10ms DropTail $ns duplex-link $n1 $n2 2Mb 10ms DropTail $ns duplex-link $n2 $n3 1.7Mb 20ms DropTail # 設定在nam中每個點所在的相關位置 $ns duplex-link-op $n0 $n2 orient right-down $ns duplex-link-op $n1 $n2 orient right-up $ns duplex-link-op $n2 $n3 orient right # 產生一個 TCP Agent 以及 TCPSink Agent(接收端)並作連結 set tcp [new Agent/TCP] $ns attach-agent $n0 $tcp set sink [new Agent/TCPSink] $ns attach-agent $n3 $sink $ns connect $tcp $sink $tcp set fid_ 1 # 因為 TCP agent 不會產生 traffic 所以再加上 FTP Protocol 來產生 traffic set ftp [new Application/FTP] $ftp attach-agent $tcp # 建立一個 UDP agent 和一個 NULL agent 作連結 set udp [new Agent/UDP] $ns attach-agent $n1 $udp set null [new Agent/Null] $ns attach-agent $n3 $null $ns connect $udp $null $udp set fid_ 2 # 在 UDP agent 加上一個 CBR agent, 其中 CBR(Constant Bits Rate) 只是依固定的速度產生封包流量 set cbr [new Application/Traffic/CBR] $cbr attach-agent $udp $cbr set packet_size_ 1000 $cbr set rate_ 1mb # Schedule events for the CBR and FTP agents $ns at 0.1 "$cbr start" $ns at 1.0 "$ftp start" $ns at 4.0 "$ftp stop" $ns at 4.5 "$cbr stop" # 在5秒時候呼叫我們自己定義的 procedure 來結束NS2的模擬 $ns at 5.0 "finish" # 開始執行模擬 $ns run 模擬結果 :