udpinwirelessnetwork.tcl

无线网络中进行UDP模拟

set val(prop)    Propagation/TwoRayGround
set val(netif)    Phy/WirelessPhy
set val(mac)    Mac/802_11
set val(ifq)     Queue/DropTail/PriQueue
set val(ll)      LL
set val(ant)     Antenna/OmniAntenna
set val(ifqlen)   50
set val(rp)      DSDV

set ns_ [new Simulator]

set topo    [new Topography]
$topo load_flatgrid 700 700

set f [open 2-2.tr w]
$ns_ trace-all $f
$ns_ eventtrace-all
set nf [open 2-2.nam w]
$ns_ namtrace-all-wireless $nf 700 700

create-god 2

$ns_ node-config -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 Channel/WirelessChannel \
                -topoInstance $topo \
                -agentTrace ON \
                -routerTrace OFF \
                -macTrace ON \
                -movementTrace OFF

set node_(0) [$ns_ node]
set node_(1) [$ns_ node]

$node_(0) label "Node 0"
$node_(0) set X_ 10.0
$node_(0) set Y_ 10.0
$node_(0) set Z_ 0.0

$node_(1) label "Node 1"
$node_(1) set X_ 600.0
$node_(1) set Y_ 600.0
$node_(1) set Z_ 0.0
 
set udp1 [new Agent/UDP]
set null1 [new Agent/Null]
$ns_ attach-agent $node_(0) $udp1
$ns_ attach-agent $node_(1) $null1
$ns_ connect $udp1 $null1
set cbr1 [new Application/Traffic/CBR]
$cbr1 set rate_ 0.5Mb
$cbr1 set packetSize_ 200
$cbr1 attach-agent $udp1
$ns_ at 5.0 "$cbr1 start"

$ns_ at 0.0 "$node_(0) reset"
$ns_ at 0.0 "$node_(1) reset"

$ns_ at 0.6 "$node_(0) setdest 300.0 250.0 60.0"
$ns_ at 1.1 "$node_(1) setdest 300.0 300.0 60.0"
$ns_ at 40 "$node_(0) setdest 600.0 600.0 20.0"
$ns_ at 40.1 "$node_(1) setdest 100.0 100.0 20.0"

$ns_ at 50.0 "finish"
$ns_ at 50.1 "puts \"NS EXITING...\";$ns_ halt"

proc finish {} {
     global ns_ f nf val
     $ns_ flush-trace
     close $f
     close $nf
}

puts "Starting Simulation..."
$ns_ run