err_test1.tcl.bak

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

set ns [new Simulator]

 

#number of nodes

set num_wired_nodes  1

set num_mobile_nodes 1

set num_bs_nodes     1 ;# number of base stations

set num_nodes [expr $num_wired_nodes + $num_mobile_nodes + $num_bs_nodes]

set bs_id $num_wired_nodes

 

# Parameter for wireless nodes

set opt(chan)           Channel/WirelessChannel    ;# channel type

set opt(prop)           Propagation/TwoRayGround   ;# radio-propagation model

set opt(netif)          Phy/WirelessPhy            ;# network interface type

set opt(mac)            Mac/802_11                 ;# MAC type

set opt(ifq)            Queue/DropTail/PriQueue    ;# interface queue type

set opt(ifqlen)         50

set opt(ll)             LL                         ;# link layer type

set opt(ant)            Antenna/OmniAntenna        ;# antenna model

set opt(ifqlen)         50                        ;# max packet in ifq

set opt(adhocRouting)   DSDR                       ;# routing protocol

set opt(x)          500            ;# X dimension of the topography

set opt(y)          500          ;# Y dimension of the topography

 

#set up for hierarchical routing

#(needed for routing over a basestation)

$ns node-config -addressType hierarchical

AddrParams set domain_num_ 2          ;# domain number

lappend cluster_num 1 1               ;# cluster number for each domain 

AddrParams set cluster_num_ $cluster_num

lappend eilastlevel $num_wired_nodes [expr $num_mobile_nodes + $num_bs_nodes] ;# number of nodes for each cluster             

AddrParams set nodes_num_ $eilastlevel

 

#Open the nam trace file

set nf [open out.nam w]

$ns namtrace-all-wireless $nf $opt(x) $opt(y)

set ntr [open out.tr w]

$ns trace-all $ntr


proc UniformErr1 {} {                
	set err [new ErrorModel]
	$err unit packet  
	$err set rate_ 0.5   
	return $err        
}   

proc UniformErr2 {} {                
	set err [new ErrorModel]
	$err unit packet  
	$err set rate_ 0.05   
	return $err        
}   

set chan    [new $opt(chan)]

set topo    [new Topography]

$topo load_flatgrid $opt(x) $opt(y)

 

# Create God

create-god [expr $num_mobile_nodes + $num_bs_nodes]

 

# creating wired nodes

for {set i 0} {$i < $num_wired_nodes} {incr i} {

        set W($i) [$ns node 0.0.$i]

    puts "wired node $i created"

}

# creating base station

$ns node-config -adhocRouting $opt(adhocRouting) \
                -llType $opt(ll) \
                -macType $opt(mac) \
                -ifqType $opt(ifq) \
                -ifqLen $opt(ifqlen) \
                -antType $opt(ant) \
                -propType $opt(prop) \
                -phyType $opt(netif) \
                -channel $chan \
                -topoInstance $topo \
                -wiredRouting ON \
                -agentTrace OFF \
                -routerTrace OFF \
                -macTrace OFF \
                -movementTrace OFF \
                -IncomingErrProc UniformErr1 \
                -OutcomingErrProc UniformErr1
               

set BS(0) [$ns node 1.0.0]
     puts "ok"

$BS(0) random-motion 0

puts "Base-Station node $bs_id created"

#provide some co-ord (fixed) to base station node

$BS(0) set X_ 250.0

$BS(0) set Y_ 250.0

$BS(0) set Z_ 0.0

 

set  rng  [new RNG]

$rng seed 1

set  rand1  [new RandomVariable/Uniform]

$rand1  use-rng $rng

$rand1  set  min_ -100.0

$rand1  set  max_ 100.0

 

# creating mobile nodes

$ns node-config -wiredRouting OFF

for {set i 0} {$i < $num_mobile_nodes} {incr i} {

    set wl_node_($i) [$ns node 1.0.[expr $i + 1]]   

    $wl_node_($i) random-motion 0               ;# disable random motion

    puts "wireless node $i created ..."

    $wl_node_($i) base-station [AddrParams addr2id [$BS(0) node-addr]]

    set x [expr 250+[$rand1 value]]

    set y [expr 250+[$rand1 value]]

    $wl_node_($i) set X_ $x

    $wl_node_($i) set Y_ $y

    $wl_node_($i) set Z_ 0.0

    puts "X_:$x Y_:$y"

}

 

# linking of root to base-station node

$ns duplex-link $W(0) $BS(0) 10Mb 10ms DropTail

set q [[$ns link $W(0) $BS(0)] queue]

 
set udp [new Agent/UDP]

$ns attach-agent $W(0) $udp

set null [new Agent/Null]

$ns attach-agent $wl_node_(0) $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_ 1mb

$cbr set random_ false


$ns at 50.1 "$wl_node_(0) reset"

$ns at 50.0001 "$W(0) reset"

$ns at 50.0001 "$BS(0) reset"

$ns at 50.0002 "stop "

$ns at 50.0003 "$ns halt"

 

# Define node initial position in nam

for {set i 0} {$i < $num_mobile_nodes} {incr i} {

    $ns initial_node_pos $wl_node_($i) 20

}

 
$ns at 0.0 "$cbr start"
$ns at 50.0 "$cbr stop"


proc stop {} {
    global ns ntr nf
    close $ntr
    close $nf
}

# run the simulation
$ns run