roaming-node.tcl

DSR-UU is a DSR implementation that runs in Linux and in the ns-2 network simulator. DSR-UU imple

# Copyright (c) 1999 Regents of the University of Southern California.
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions
# are met:
# 1. Redistributions of source code must retain the above copyright
#    notice, this list of conditions and the following disclaimer.
# 2. Redistributions in binary form must reproduce the above copyright
#    notice, this list of conditions and the following disclaimer in the
#    documentation and/or other materials provided with the distribution.
# 3. All advertising materials mentioning features or use of this software
#    must display the following acknowledgement:
#      This product includes software developed by the Computer Systems
#      Engineering Group at Lawrence Berkeley Laboratory.
# 4. Neither the name of the University nor of the Laboratory may be used
#    to endorse or promote products derived from this software without
#    specific prior written permission.
#
# THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
# ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
# SUCH DAMAGE.
#
#
# roaming-aodv-uu.tcl:
# Roaming node scenario using AODV-UU (inspired by APE roaming node scenario)
#
# Some source code was borrowed from wireless1.tcl.
#
# NOTE: Requires tracing support for packets of type PT_PING to be added
# to cmu-trace.cc.

# ======================================================================
# Define options
# ======================================================================

set val(chan)           Channel/WirelessChannel
#set val(prop)           Propagation/Shadowing
set val(prop)           Propagation/TwoRayGround
set val(netif)          Phy/WirelessPhy
set val(mac)            Mac/802_11
set val(ifq)            Queue/DropTail/PriQueue
set val(ll)             LL
set val(ant)            Antenna/OmniAntenna
set val(x)              50      ;# X dimension of the topography
set val(y)              15      ;# Y dimension of the topography
set val(ifqlen)         50      ;# max packet in ifq
set val(seed)           0.0
set val(adhocRP)        AODVUU
set val(nn)             4       ;# how many nodes are simulated
set val(stop)           290.0   ;# simulation time
set opt(prot)           dsruu
# =====================================================================
# Main Program
# ======================================================================
proc getopt {argc argv} {
    global opt
    lappend optlist prot

    for {set i 0} {$i < $argc} {incr i} {
	set arg [lindex $argv $i]

	if {[string range $arg 0 0] != "-"} continue
	
	set name [string range $arg 1 end]
	set opt($name) [lindex $argv [expr $i+1]]
    }
}

getopt $argc $argv

if { $opt(prot) == "aodvuu" } {
    set val(adhocRP) AODVUU;
} elseif { $opt(prot) == "aodv" } {
    set val(adhocRP) AODV;
} elseif { $opt(prot) == "dsruu" } {
    set val(adhocRP) DSRUU;
    set val(ifq)  CMUPriQueue;
} elseif { $opt(prot) == "dsr" } {
    set val(adhocRP) DSR;
    set val(ifq)  CMUPriQueue;
} else {
    puts "Invalid routing protocol"
    exit
}

set val(tr)             roaming-node-$val(adhocRP).tr
set val(nam)            roaming-node-$val(adhocRP).nam

puts "Running simulation with $val(adhocRP)"

#
# Initialize global variables
#

# Create simulator instance
set ns_ [new Simulator]

# Setup topography object
set topo [new Topography]

# Create trace object for ns and nam
set tracefd  [open $val(tr) w]
set namtrace [open $val(nam) w]

$ns_ trace-all $tracefd
$ns_ namtrace-all-wireless $namtrace $val(x) $val(y)

# Define topology
$topo load_flatgrid $val(x) $val(y)

# Create God
set god_ [create-god $val(nn)]

# Make queue prioritize routing packets
Queue/DropTail/PriQueue set Prefer_Routing_Protocols 1

# Set parameters for wireless interface (ORiNOCO PC Card)
# Figures taken from ORiNOCO PC Card Specifications
#
#        (dBm/10)
# mW = 10
#
#
# dBm = 10 * log  (mW / 1) = 10 * log  (mW)
#               10                   10
#
# NOTE: Because receiver sensitivity depends on speed, and speed depends on
# packet type (unicast/broadcast), this might not model the real world
# perfectly. More specifically, the carrier sense threshold should be set to
# a smaller value for speeds < 11 Mbps (e.g. for broadcast packets).

Phy/WirelessPhy set Pt_ 0.031622777        ;# Tx power (W),
                                           ;# 15 dBm

Phy/WirelessPhy set bandwidth_ 11Mb        ;# 11 Mbps bandwidth
Mac/802_11 set dataRate_ 11Mb              ;# 11 Mbps for data
Mac/802_11 set basicRate_ 1Mb              ;# 1 Mbps for broadcasts

Phy/WirelessPhy set freq_ 2.472e9          ;# Europe, Channel 13, 2.472 GHz
Phy/WirelessPhy set CPThresh_ 10.0         ;# Capture threshold (dB)

Phy/WirelessPhy set CSThresh_ 5.011872e-12 ;# Carrier sense threshold (W),
                                           ;# receiver sensitivity -83 dBm

Phy/WirelessPhy set L_ 1.0                 ;# System loss

Phy/WirelessPhy set RXThresh_ 5.82587e-09  ;# Receive threshold (W),
                                           ;# from threshold utility (22.5 m)
                                           ;# given the other parameters

# Set parameters for shadowing propagation model
#set propinst [new Propagation/Shadowing]
#$propinst set pathlossExp_ 4.0
#$propinst set std_db_ 6.9
#$propinst set dist0_ 1.0
#$propinst seed predef 0

# Define how nodes should be created
$ns_ node-config -adhocRouting $val(adhocRP) \
	-llType $val(ll) \
	-macType $val(mac) \
	-ifqType $val(ifq) \
	-ifqLen $val(ifqlen) \
	-antType $val(ant) \
	-propType $val(prop) \
	-phyType $val(netif) \
	-channelType $val(chan) \
	-topoInstance $topo \
	-agentTrace ON \
	-routerTrace ON \
	-macTrace ON
#        -propInstance $propinst

#
# Setting up the nodes
#

# Create the specified number of nodes and "attach" them to the channel
for {set i 0} {$i < $val(nn) } {incr i} {
    set node_($i) [$ns_ node]	
    $node_($i) random-motion 0		;# disable random motion

    set r [$node_($i) set ragent_]      ;# get hold of routing agent
    $r set debug_ 1                     ;# set routing agent options...
    $r set log_to_file_ 1
    $r set rt_log_interval_ 1000
    
    # set nodetr($i) [open dsr-$i.log w]
#     $r tracetarget $nodetr($i)
}

# Node 0: "Gateway", i.e. node being pinged
# Node 1: Client 1 at the corner (C1)
# Node 2: Client 2 at Richard's room (C2)
# Node 3: Mobile Node, i.e. pinging node (MN)

# Ping agent recv instance procedure, required for Ping agent to work
Agent/Ping instproc recv {from rtt} {
#    puts "Received ping reply from $from, RTT = $rtt ms"
}

# Create Ping agents at GW and mobile node
set ping(0) [new Agent/Ping]
$ping(0) set packetSize_ 580
$ns_ attach-agent $node_(0) $ping(0)

set ping(1) [new Agent/Ping]
$ping(1) set packetSize_ 580
$ns_ attach-agent $node_(3) $ping(1)

# Ping client at mobile node should generate 10 packets/second
set pingrate 10

# Schedule sending of Ping packets from mobile node
for {set i 0} {$i < [expr $val(stop) * $pingrate]} {incr i} {
$ns_ at [expr $i * 1.0/$pingrate] "$ping(1) send"
}
 
# Connect Ping agents
$ns_ connect $ping(1) $ping(0)

puts $tracefd "M 0.0 nn $val(nn) x $val(x) y $val(y) rp $val(adhocRP)"
puts $tracefd "M 0.0 prop $val(prop) ant $val(ant)"

# Positions of nodes etc.
set GW_X 0.0
set GW_Y 0.0
set GW_Z 0.0

set C1_X 10.8
set C1_Y 8.0
set C1_Z 0.0

set C2_X 22.8
set C2_Y 8.6
set C2_Z 0.0

set MN_X $C1_X
set MN_Y $C1_Y
set MN_Z 0.0

set ROOM_X 44.8
set ROOM_Y 8.0
set ROOM_Z 0.0

# Initial positioning of nodes
$node_(0) set X_ $GW_X
$node_(0) set Y_ $GW_Y
$node_(0) set Z_ $GW_Z

$node_(1) set X_ $C1_X
$node_(1) set Y_ $C1_Y
$node_(1) set Z_ $C1_Z

$node_(2) set X_ $C2_X
$node_(2) set Y_ $C2_Y
$node_(2) set Z_ $C2_Z

$node_(3) set X_ $MN_X
$node_(3) set Y_ $MN_Y
$node_(3) set Z_ $MN_Z

# Define node initial positions in nam
for {set i 0} {$i < $val(nn)} {incr i} {

   # The function must be called after mobility model is defined
   # (10 defines the node size in nam)
   $ns_ initial_node_pos $node_($i) 10
}

# Speed of movement between C1 and C2
set SPEED_1 [expr 13.55 / 15.0] ; # Total 13.55 m during 15 seconds

# Speed of movement between C2 and room 1412
set SPEED_2 [expr 25.3 / 30.0] ;  # Total 25.3 m during 30 seconds

# At 40.0: Move mobile node towards C2
$ns_ at 40.0 "$node_(3) setdest [expr $C1_X + 1.25] $C1_Y $SPEED_1"
$ns_ at 41.38 "$node_(3) setdest [expr $C1_X + 1.25] [expr $C1_Y + 1.55] $SPEED_1"
$ns_ at 43.1 "$node_(3) setdest $C2_X [expr $C2_Y + 0.95] $SPEED_1"

# At 55.0: Pause mobile node at C2 for 40 seconds

# At 95.0: Move mobile node towards room 1412
$ns_ at 95.0 "$node_(3) setdest [expr $C2_X + 11.0] [expr $C2_Y + 0.95] $SPEED_2"
$ns_ at 108.04 "$node_(3) setdest [expr $C2_X + 11.0] [expr $C2_Y - 2.35] $SPEED_2"
$ns_ at 111.95 "$node_(3) setdest $ROOM_X [expr $ROOM_Y - 1.75] $SPEED_2"

# At 125.0: Pause mobile node at 1412 for 40 seconds

# At 165.0: Move mobile node towards C2
$ns_ at 165.0 "$node_(3) setdest [expr $C2_X + 11.0] [expr $C2_Y - 2.35] $SPEED_2"
$ns_ at 178.04 "$node_(3) setdest [expr $C2_X + 11.0] [expr $C2_Y + 0.95] $SPEED_2"
$ns_ at 181.95 "$node_(3) setdest $C2_X [expr $C2_Y + 0.95] $SPEED_2"

# At 195.0: Pause mobile node at C2 for 40 seconds

# At 235.0: Move mobile node towards C1
$ns_ at 235.0 "$node_(3) setdest [expr $C1_X + 1.25] [expr $C1_Y + 1.55] $SPEED_1"
$ns_ at 246.90 "$node_(3) setdest [expr $C1_X + 1.25] $C1_Y $SPEED_1"
$ns_ at 248.62 "$node_(3) setdest $C1_X $C1_Y $SPEED_1"

# At 250.0: Pause mobile node at C1 for 40 seconds

# At end: Tell nodes that the simulation ends
for {set i 0} {$i < $val(nn) } {incr i} {
    $ns_ at $val(stop).0 "$node_($i) reset";
}

proc stop {} {
    global ns_
    $ns_ flush-trace
}

$ns_ at $val(stop).0001 "stop"
$ns_ at $val(stop).0002 "puts \"NS EXITING...\" ; $ns_ halt"

puts "Starting Simulation..."
$ns_ run