【NS2仿真】UDP協議

#
# cbr
#  \    
#  udp                        sink  
#    \                         /
#     n0--------5M 2ms---------n1
#
#

set ns [new Simulator]

set f [open out.tr w]
$ns trace-all $f
set nf [open out.nam w]
$ns namtrace-all $nf

proc finish {} {
    global ns nf f
    $ns flush-trace
    close $f
    close $nf
    exec nam out.nam &
    exit 0
}

#設置並鏈接兩個節點
set n0 [$ns node]
set n1 [$ns node]

$ns duplex-link $n0 $n1 5M 2ms DropTail
$ns duplex-link-op $n0 $n1 orient right

#設置傳輸層並鏈接
set udp [new Agent/UDP]
$ns attach-agent $n0 $udp
set null [new Agent/Null]
$ns attach-agent $n1 $null
$ns connect $udp $null

#設置應用層
set cbr [new Application/Traffic/CBR]
$cbr attach-agent $udp

#設置執行與中止順序
$ns at 0.01 "$cbr start"
$ns at 0.09 "finish"

$ns run