English
- # Test for IEEE 802.16 nodes.
- # @author rouil
- # Test file for wimax
- # Scenario: Communication between MNs and Sink Node through 802.16 BS.
- #
- # Topology scenario:
- #
- #
- # |-----|
- # | MN | ; 1.0.1
- # |-----|
- #
- #
- # (^)
- # |
- # |--------------|
- # | Base Station | ; 1.0.0
- # |--------------|
- # |
- # |
- # |-----------|
- # | Sink node | ; 0.0.0
- # |-----------|
- #
- #check input parameters
- if {$argc != 0} {
- puts ""
- puts "Wrong Number of Arguments! No arguments in this topology"
- puts ""
- exit (1)
- }
- # set global variables
- set nb_mn 50 ;# max number of mobile node
- set packet_size 1500 ;# packet size in bytes at CBR applications
- set gap_size 1 ;#compute gap size between packets
- puts "gap size=$gap_size"
- set traffic_start 100
- set traffic_stop 200
- set simulation_stop 300
- #define debug values
- Mac/802_16 set debug_ 0
- #define coverage area for base station
- Phy/WirelessPhy set Pt_ 0.025
- Phy/WirelessPhy set RXThresh_ 2.025e-12 ;#500m radius
- Phy/WirelessPhy set CSThresh_ [expr 0.9*[Phy/WirelessPhy set RXThresh_]]
- # Parameter for wireless nodes
- set opt(chan) Channel/WirelessChannel ;# channel type
- set opt(prop) Propagation/TwoRayGround ;# radio-propagation model
- set opt(netif) Phy/WirelessPhy/OFDM ;# network interface type
- set opt(mac) Mac/802_16 ;# MAC type
- set opt(ifq) Queue/DropTail/PriQueue ;# interface queue type
- 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) DSDV ;# routing protocol
- set opt(x) 1100 ;# X dimension of the topography
- set opt(y) 1100 ;# Y dimension of the topography
- #defines function for flushing and closing files
- proc finish {} {
- global ns tf output_dir nb_mn
- $ns flush-trace
- close $tf
- exit 0
- }
- #create the simulator
- set ns [new Simulator]
- $ns use-newtrace
- #create the topography
- set topo [new Topography]
- $topo load_flatgrid $opt(x) $opt(y)
- #open file for trace
- set tf [open out.res w]
- $ns trace-all $tf
- # set up for hierarchical routing (needed for routing over a basestation)
- #puts "start hierarchical addressing"
- $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 1 [expr ($nb_mn+1)] ;# number of nodes for each cluster (1 for sink and one for mobile nodes + base station
- AddrParams set nodes_num_ $eilastlevel
- puts "Configuration of hierarchical addressing done"
- # Create God
- create-god [expr ($nb_mn + 2)] ;# nb_mn + 2 (base station and sink node)
- #puts "God node created"
- #creates the sink node in first addressing space.
- set sinkNode [$ns node 0.0.0]
- #provide some co-ord (fixed) to base station node
- $sinkNode set X_ 50.0
- $sinkNode set Y_ 50.0
- $sinkNode set Z_ 0.0
- #puts "sink node created"
- #creates the Access Point (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 [new $opt(chan)]
- -topoInstance $topo
- -wiredRouting ON
- -agentTrace ON
- -routerTrace ON
- -macTrace ON
- -movementTrace OFF
- #puts "Configuration of base station"
- set bstation [$ns node 1.0.0]
- $bstation random-motion 0
- #puts "Base-Station node created"
- #provide some co-ord (fixed) to base station node
- $bstation set X_ 550.0
- $bstation set Y_ 550.0
- $bstation set Z_ 0.0
- set clas [new SDUClassifier/Dest]
- [$bstation set mac_(0)] add-classifier $clas
- #set the scheduler for the node. Must be changed to -shed [new $opt(sched)]
- set bs_sched [new WimaxScheduler/BS]
- [$bstation set mac_(0)] set-scheduler $bs_sched
- [$bstation set mac_(0)] set-channel 0
- # creation of the mobile nodes
- $ns node-config -wiredRouting OFF
- -macTrace ON ;# Mobile nodes cannot do routing.
- for {set i 0} {$i < $nb_mn} {incr i} {
- set wl_node_($i) [$ns node 1.0.[expr $i + 1]] ;# create the node with given @.
- $wl_node_($i) random-motion 0 ;# disable random motion
- $wl_node_($i) base-station [AddrParams addr2id [$bstation node-addr]] ;#attach mn to basestation
- #compute position of the node
- $wl_node_($i) set X_ [expr 340.0+$i]
- #$ns at 4.0 "$wl_node_($i) set X_ 80"
- #$ns at 6.0 "$wl_node_($i) set X_ 50"
- $wl_node_($i) set Y_ 550.0
- $wl_node_($i) set Z_ 0.0
- $ns at 0 "$wl_node_($i) setdest 1060.0 550.0 1.0"
- puts "wireless node $i created ..." ;# debug info
- set clas [new SDUClassifier/Dest]
- [$wl_node_($i) set mac_(0)] add-classifier $clas
- #set the scheduler for the node. Must be changed to -shed [new $opt(sched)]
- set ss_sched [new WimaxScheduler/SS]
- [$wl_node_($i) set mac_(0)] set-scheduler $ss_sched
- [$wl_node_($i) set mac_(0)] set-channel 0
- #create source traffic
- #Create a UDP agent and attach it to node n0
- set udp_($i) [new Agent/UDP]
- $udp_($i) set packetSize_ 1500
- $ns attach-agent $wl_node_($i) $udp_($i)
- # Create a CBR traffic source and attach it to udp0
- set cbr_($i) [new Application/Traffic/CBR]
- $cbr_($i) set packetSize_ $packet_size
- $cbr_($i) set interval_ $gap_size
- $cbr_($i) attach-agent $udp_($i)
- #create an sink into the sink node
- # Create the Null agent to sink traffic
- set null_($i) [new Agent/Null]
- $ns attach-agent $sinkNode $null_($i)
- # Attach the 2 agents
- $ns connect $udp_($i) $null_($i)
- }
- # create the link between sink node and base station
- $ns duplex-link $sinkNode $bstation 100Mb 1ms DropTail
- # Traffic scenario: here the all start talking at the same time
- for {set i 0} {$i < $nb_mn} {incr i} {
- $ns at $traffic_start "$cbr_($i) start"
- $ns at $traffic_stop "$cbr_($i) stop"
- }
- $ns at $simulation_stop "finish"
- # Run the simulation
- puts "Running simulation for $nb_mn mobile nodes..."
- $ns run
- puts "Simulation done."
