test_different_speed_ifqlen.tcl

ns2 wireless仿真 tcl脚本实例 很有参考价值

set val(chan)           Channel/WirelessChannel    ;# channel type
set val(prop)           Propagation/TwoRayGround   ;# radio-propagation model
set val(netif)          Phy/WirelessPhy            ;# network interface type
set val(mac)            Mac/802_11                 ;# MAC type
set val(ifq)            Queue/DropTail/PriQueue    ;# interface queue type
set val(ll)             LL                         ;# link layer type
set val(ant)            Antenna/OmniAntenna        ;# antenna model
set val(ifqlen)         100                        ;# max packet in ifq
set val(rp) DumbAgent
 
set ns [new Simulator]

#Mac/802_11 set dataRate_  2Mb
#Mac/802_11 set basicRate_ 1Mb

Mac/802_11 set RTSThreshold_    3000

set f [open test.tr w]
$ns trace-all $f
$ns eventtrace-all
set nf [open test.nam w]
$ns namtrace-all-wireless $nf 500 500

# set up topography object
set topo       [new Topography]

$topo load_flatgrid 500 500

# Create God
create-god 2

# create channel 
set chan [new $val(chan)]

$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) \
                -channel $chan \
                -topoInstance $topo \
                -agentTrace ON \
                -routerTrace OFF \
                -macTrace ON \
                -movementTrace OFF 
 

for {set i 0} {$i < 2} {incr i} {
        set node_($i) [$ns node]
        $node_($i) random-motion 0
}

set n0_mac [$node_(0) set mac_(0)]
set n1_mac [$node_(1) set mac_(0)]

$n0_mac set dataRate_  11Mb
$n0_mac set basicRate_ 1Mb

$n1_mac set dataRate_  11Mb
$n1_mac set basicRate_ 1Mb

$ns at 4.0 "$n0_mac set dataRate_  5.5Mb"
$ns at 7.0 "$n0_mac set dataRate_  2Mb"
$ns at 10.0 "$n0_mac set dataRate_  1Mb"
$ns at 15.0 "$n0_mac set dataRate_  2Mb"

set n0_ifq [$node_(0) set ifq_(0)]
set queuechan [open qlen.tr w]
$n0_ifq trace curq_
$n0_ifq attach $queuechan

$node_(0) set X_ 30.0
$node_(0) set Y_ 30.0
$node_(0) set Z_ 0.0

$node_(1) set X_ 50.0
$node_(1) set Y_ 30.0
$node_(1) set Z_ 0.0

set udp [new Agent/mUDP]
#set the sender trace file name to sd1
$udp set_filename sd1
$ns attach-agent $node_(0) $udp
set null [new Agent/mUdpSink]
#set the receiver filename to rd1
$null set_filename rd1
$ns attach-agent $node_(1) $null
$ns connect $udp $null 

set cbr [new Application/Traffic/CBR]
$cbr attach-agent $udp
$cbr set type_ CBR
$cbr set packet_size_ 1000
$cbr set rate_ 5Mb
$cbr set random_ false
$ns at 1.0 "$cbr start"
$ns at 20.0 "$cbr stop"

$ns at 15.0 "$cbr set rate_ 1Mb"

for {set i 0} {$i < 2} {incr i} {
        $ns initial_node_pos $node_($i) 30
        $ns at 20.0 "$node_($i) reset";
}

$ns at 20.0 "finish"
$ns at 20.1 "puts \"NS EXITING...\"; $ns halt"

#INSERT ANNOTATIONS HERE
proc finish {} {
        global ns f nf val
        $ns flush-trace
        close $f
        close $nf
}

puts "Starting Simulation..."
$ns run