puma.tcl

组播路由协议

set opt(stop)	15.0
set nodes       25
set mobility   	1
set scenario   	1
set pausetime 	0
set traffic    	cbr
set senders    	5
set receivers   20
set X		1000
set Y		1000

LL set mindelay_                50us
LL set delay_                   25us
LL set bandwidth_               0       ;# not used

Antenna/OmniAntenna set X_ 0
Antenna/OmniAntenna set Y_ 0
Antenna/OmniAntenna set Z_ 1.5
Antenna/OmniAntenna set Gt_ 1.0
Antenna/OmniAntenna set Gr_ 1.0

Phy/WirelessPhy set CPThresh_ 10.0
Phy/WirelessPhy set CSThresh_ 1.559e-11
Phy/WirelessPhy set RXThresh_ 3.652e-10
Phy/WirelessPhy set Rb_ 2*1e6
Phy/WirelessPhy set Pt_ 0.2818
Phy/WirelessPhy set freq_ 914e+6
Phy/WirelessPhy set L_ 1.0

set ns_ [new Simulator]

set topo [new Topography]
$topo load_flatgrid $X $Y

set tracenam [open puma.nam w]
$ns_ namtrace-all-wireless $tracenam $X $Y

set tracefd [open puma.tr w]
#$ns_ use-newtrace
$ns_ trace-all $tracefd

set god_ [create-god $nodes]

$ns_ node-config -adhocRouting PUMA \
           -llType LL \
           -macType Mac/802_11 \
           -ifqLen 50 \
           -ifqType Queue/DropTail/PriQueue \
           -antType Antenna/OmniAntenna \
           -propType Propagation/TwoRayGround \
           -phyType Phy/WirelessPhy \
           -channel [new Channel/WirelessChannel] \
           -topoInstance $topo \
           -agentTrace OFF \
           -routerTrace ON \
           -macTrace OFF

for {set i 0} {$i < $nodes} {incr i} {
   set node_($i) [$ns_ node]
   $node_($i) random-motion 0;
}

puts "Loading connection pattern ..."
source "scenarios/cbr"

puts "Loading scenarios file..."
source "scenarios/scen"

for {set i 0} {$i < $nodes} {incr i} {
   $ns_ at $opt(stop) "$node_($i) reset";
}

Node instproc join { group } {
    $self instvar ragent_
    set group [expr $group]

    $ragent_ join $group
}

Node instproc leave { group } {
    $self instvar ragent_
    set group [expr $group] ;

    $ragent_ leave $group
}

$ns_ at $opt(stop) "$ns_ halt"
puts "Starting Simulation ..."
$ns_ run
puts "NS EXITING..."