lab13_2.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)         50                        ;# max packet in ifq
set val(rp)             DSDV
 
set ns [new Simulator]

#disable RTS/CTS
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 3

# 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 destination node -> node C
set node_(0) [$ns node]
$node_(0) random-motion 0 
$node_(0) set X_ 100
$node_(0) set Y_ 100 

 
# setup 11M data_rate nodes -> node B
     	set 11m_node_(0) [$ns node] 
     	set rng [new RNG]
	$rng seed 1
	set RVdistance [new RandomVariable/Uniform]
	$RVdistance set min_ 1
	$RVdistance set max_ 10
	$RVdistance use-rng $rng
    	$11m_node_(0) random-motion 0
    	$11m_node_(0) set X_ [expr 100 + [$RVdistance value] ]
    	$11m_node_(0) set Y_ [expr 100 + [$RVdistance value] ]
	$11m_node_(0) set Z_ 0.0
#砞﹚MAC肚块硉