LinuxQuestions.org

LinuxQuestions.org (/questions/)
-   Linux - Newbie (http://www.linuxquestions.org/questions/linux-newbie-8/)
-   -   How to patch GPSR routing protocol to ns-2.35 (http://www.linuxquestions.org/questions/linux-newbie-8/how-to-patch-gpsr-routing-protocol-to-ns-2-35-a-4175431318/)

sukhalid 10-09-2012 06:52 AM

How to patch GPSR routing protocol to ns-2.35
 
Hi,
I have patched GPSR to ns-2.35 using keliu' code. It works fine with given tcl file. I need to move nodes according to mine own mobility scenario and compare them to AODV protocol.
I have two problems
1. I don't understand what this command in gpsr.tcl file means
Code:

proc gpsr-create-mobile-node { id args } {
        .........................       
if [info exists opt(energy)] {
        $node addenergymodel [new $opt(energy) $node 10 0.5 0.2]}
        .............

What are these figures (0.5, 0.2), are these energy consumed in reception and transmission or some thing else.

Secondly I want move mobile node created using proc defined in gpsr.tcl file according to my own mobility plan e.g.
Code:

$ns_ at 0.000000000000 "$node_(0) setdest 144.816950690450 20.073824649527 0.324133202939"
$ns_ at 0.000000000000 "$node_(1) setdest 93.957720171475 192.140808646867 1.452613500562"
$ns_ at 12.158688172971 "$node_(23) setdest 113.137798368154 39.443538618334 0.902003496971"
$ns_ at 14.805074599534 "$node_(2) setdest 152.227654369397 20.766089279052 1.742469780423"

But when I run simulation it gives error like this:[QUOTE]Load complete...
Starting Simulation...
ns: _o18 setdest 144.816950690450 20.073824649527 0.324133202939:
(_o18 cmd line 1)
invoked from within
"_o18 cmd setdest 144.816950690450 20.073824649527 0.324133202939"
invoked from within
"catch "$self cmd $args" ret"
invoked from within
"if [catch "$self cmd $args" ret] {
set cls [$self info class]
global errorInfo
set savedInfo $errorInfo
error "error when calling class $cls: $args" $..."
(procedure "_o18" line 2)
(SplitObject unknown line 2)
invoked from within
"_o18 setdest 144.816950690450 20.073824649527 0.324133202939"
[\QUOTE]
Urgent help is needed please

ImaneZ 07-26-2013 06:46 AM

About patching GPSR
 
Hello,

Please i want to patch GPSR on NS2.35 and i don't know how?

can you help me, and send me the module and the patch if it's possible!

thanx in advance.

hemantnyadav 08-15-2013 11:56 PM

I need patch for GPSR to ns2.35 and please tell me how to install or use
 
[QUOTE=sukhalid;4801195]Hi,
I have patched GPSR to ns-2.35 using keliu' code. It works fine with given tcl file. I need to move nodes according to mine own mobility scenario and compare them to AODV protocol.
I have two problems
1. I don't understand what this command in gpsr.tcl file means
Code:

proc gpsr-create-mobile-node { id args } {
        .........................       
if [info exists opt(energy)] {
        $node addenergymodel [new $opt(energy) $node 10 0.5 0.2]}
        .............

What are these figures (0.5, 0.2), are these energy consumed in reception and transmission or some thing else.

Secondly I want move mobile node created using proc defined in gpsr.tcl file according to my own mobility plan e.g.
Code:

$ns_ at 0.000000000000 "$node_(0) setdest 144.816950690450 20.073824649527 0.324133202939"
$ns_ at 0.000000000000 "$node_(1) setdest 93.957720171475 192.140808646867 1.452613500562"
$ns_ at 12.158688172971 "$node_(23) setdest 113.137798368154 39.443538618334 0.902003496971"
$ns_ at 14.805074599534 "$node_(2) setdest 152.227654369397 20.766089279052 1.742469780423"

But when I run simulation it gives error like this:
Quote:

Load complete...
Starting Simulation...
ns: _o18 setdest 144.816950690450 20.073824649527 0.324133202939:
(_o18 cmd line 1)
invoked from within
"_o18 cmd setdest 144.816950690450 20.073824649527 0.324133202939"
invoked from within
"catch "$self cmd $args" ret"
invoked from within
"if [catch "$self cmd $args" ret] {
set cls [$self info class]
global errorInfo
set savedInfo $errorInfo
error "error when calling class $cls: $args" $..."
(procedure "_o18" line 2)
(SplitObject unknown line 2)
invoked from within
"_o18 setdest 144.816950690450 20.073824649527 0.324133202939"
[\QUOTE]
Urgent help is needed please

maulanaibrahim 05-27-2014 11:29 AM

ask for solving problem
 
im facing the same problem..are you solved the problem? please share the solution..i really need it.thx

farfattou 08-09-2014 08:45 AM

hi,
I need to patch gpsr on ns-2.35
any help plz

knudfl 12-20-2014 07:32 AM

New patches :

GPSR-KeLiu, ns235 https://drive.google.com/file/d/0B7S...ew?usp=sharing
→ gpsr-KeLiu_ns235.patch

GPSR-KeLiu, ns234 https://drive.google.com/file/d/0B7S...ew?usp=sharing
→ gpsr-KeLiu_ns234.patch

GPSR-hls, ns235 http://network-simulator-ns-2.7690.n...g-td29371.html

GPSR-hls, ns234 https://drive.google.com/file/d/0B7S...ew?usp=sharing
→ GPSR-hls_ns234.patch

-

Noor Hassan Baloch 02-17-2015 12:50 PM

how to patch GPSR in NS2.35

knudfl 02-17-2015 01:22 PM

← ← #7.

? How to patch ns-2.35 with gpsr :
Please read post #6, and follow the links.

huynhloc.dv11 04-10-2015 10:00 PM

Can you help me??
 
I did install patch for ns2.35.

But i can't run file keliu gpsr.tcl with command: ns-keliu gpsr.tcl

huynhloc@ubuntu:~/ns/ns-allinone-2.35/ns-2.35$ cd examples-01.2015
huynhloc@ubuntu:~/ns/ns-allinone-2.35/ns-2.35/examples-01.2015$ ns-keliu gpsr50.tcl
ns-keliu: command not found

knudfl 04-11-2015 04:22 AM

Post #9, @huynhloc.dv11 : Welcome to LQ.

The file "ns-keliu" must be created, before you can use it.

Example :
$ cd ns-allinone-2.35/ns-2.35/
$ cp ns ns235-KeLiu ( Any name can be used )
$ sudo cp ns235-KeLiu /usr/local/bin/


-

h8yung 06-24-2016 03:12 AM

do you get the right result?
 
[QUOTE=hemantnyadav;5010173]
Quote:

Originally Posted by sukhalid (Post 4801195)
Hi,
I have patched GPSR to ns-2.35 using keliu' code. It works fine with given tcl file. I need to move nodes according to mine own mobility scenario and compare them to AODV protocol.
I have two problems
1. I don't understand what this command in gpsr.tcl file means
Code:

proc gpsr-create-mobile-node { id args } {
        .........................       
if [info exists opt(energy)] {
        $node addenergymodel [new $opt(energy) $node 10 0.5 0.2]}
        .............

What are these figures (0.5, 0.2), are these energy consumed in reception and transmission or some thing else.

Secondly I want move mobile node created using proc defined in gpsr.tcl file according to my own mobility plan e.g.
Code:

$ns_ at 0.000000000000 "$node_(0) setdest 144.816950690450 20.073824649527 0.324133202939"
$ns_ at 0.000000000000 "$node_(1) setdest 93.957720171475 192.140808646867 1.452613500562"
$ns_ at 12.158688172971 "$node_(23) setdest 113.137798368154 39.443538618334 0.902003496971"
$ns_ at 14.805074599534 "$node_(2) setdest 152.227654369397 20.766089279052 1.742469780423"

But when I run simulation it gives error like this:


Rach k 06-25-2016 12:05 AM

hi sukkhalid,
i am facing the same problem as you mentioned in post #1. I have patched gpsr keliu for ns-2.34. May i know what steps has to be taken to correct it.

h8yung 06-25-2016 02:39 AM

your tcl have some problem.you should change your tcl.

Rach k 06-25-2016 03:39 AM

hi,
I have changed the values of number of nodes, seed value in wireless-gpsr.tcl and included node movement file generated by VanetMobiSim and Cbr file. which has worked well for both AODV and OLSR. But it isnt working for gpsr.
It shows the below error

Load complete...
Starting Simulation...
ns: _o18 setdest 144.816950690450 20.073824649527 0.324133202939:
(_o18 cmd line 1)
invoked from within
"_o18 cmd setdest 144.816950690450 20.073824649527 0.324133202939"
invoked from within
"catch "$self cmd $args" ret"
invoked from within
"if [catch "$self cmd $args" ret] {
set cls [$self info class]
global errorInfo
set savedInfo $errorInfo
error "error when calling class $cls: $args" $..."
(procedure "_o18" line 2)
(SplitObject unknown line 2)
invoked from within
"_o18 setdest 144.816950690450 20.073824649527 0.324133202939"

Rach k 06-25-2016 04:41 AM

plz help me, anyone can say what is going wrong.
tcl code
Code:

# Copyright (c) 1997 Regents of the University of 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.
#
# $Header: /home/cvs/repository/kliu/ns2/gpsr/wireless-gpsr.tcl,v 1.8 2005/12/01 00:03:17 kliu Exp $
#
# Ported from CMU/Monarch's code, nov'98 -Padma.




# ======================================================================
# Default Script Options
# ======================================================================
set opt(chan)                Channel/WirelessChannel
set opt(prop)                Propagation/TwoRayGround
set opt(netif)                Phy/WirelessPhy
set opt(mac)                Mac/802_11
set opt(ifq)                Queue/DropTail/PriQueue        ;# for dsdv
set opt(ll)                LL
set opt(ant)            Antenna/OmniAntenna

set opt(x)                1001                ;# X dimension of the topography
set opt(y)                1001                ;# Y dimension of the topography
set opt(cp)                "cbr-15-5.tcl"
set opt(sc)                "scenario.ns_movements"

set opt(ifqlen)                50                ;# max packet in ifq
set opt(nn)                15                ;# number of nodes
set opt(seed)                5.0
set opt(stop)                1000.0                ;# simulation time
set opt(tr)                trace.tr                ;# trace file
set opt(nam)            nam.out.tr
set opt(rp)            gpsr                ;# routing protocol script (dsr or dsdv)
set opt(lm)            "off"                ;# log movement

# ======================================================================

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

Agent/Null set sport_                0
Agent/Null set dport_                0

Agent/CBR set sport_                0
Agent/CBR set dport_                0

Agent/TCPSink set sport_        0
Agent/TCPSink set dport_        0

Agent/TCP set sport_                0
Agent/TCP set dport_                0
Agent/TCP set packetSize_        1460

Queue/DropTail/PriQueue set Prefer_Routing_Protocols    1

# unity gain, omni-directional antennas
# set up the antennas to be centered in the node and 1.5 meters above it
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

# Initialize the SharedMedia interface with parameters to make
# it work like the 914MHz Lucent WaveLAN DSSS radio interface
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 freq_ 914e+6
Phy/WirelessPhy set L_ 1.0


# The transimssion radio range
#Phy/WirelessPhy set Pt_ 6.9872e-4    ;# ?m
Phy/WirelessPhy set Pt_ 8.5872e-4    ;# 40m
#Phy/WirelessPhy set Pt_ 1.33826e-3  ;# 50m
#Phy/WirelessPhy set Pt_ 7.214e-3    ;# 100m
#Phy/WirelessPhy set Pt_ 0.2818      ;# 250m
# ======================================================================

# Agent/GPSR setting
Agent/GPSR set planar_type_  1  ;#1=GG planarize, 0=RNG planarize
Agent/GPSR set hello_period_  5.0 ;#Hello message period

# ======================================================================

proc usage { argv0 }  {
        puts "Usage: $argv0"
        puts "\tmandatory arguments:"
        puts "\t\t\[-x MAXX\] \[-y MAXY\]"
        puts "\toptional arguments:"
        puts "\t\t\[-cp conn pattern\] \[-sc scenario\] \[-nn nodes\]"
        puts "\t\t\[-seed seed\] \[-stop sec\] \[-tr tracefile\]\n"
}


proc getopt {argc argv} {
        global opt
        lappend optlist cp nn seed sc stop tr x y

        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]]
        }
}


#proc cmu-trace { ttype atype node } {
#        global ns_ tracefd
#
#        puts ABC
#        if { $tracefd == "" } {
#                return ""
#        }
#        puts BCD
#        set T [new CMUTrace/$ttype $atype]
#        $T target [$ns_ set nullAgent_]
#        $T attach $tracefd
#        $T set src_ [$node id]
#       
#        $T node $node
#
#        return $T
#}




proc log-movement {} {
    global logtimer ns_ ns

    set ns $ns_
    source ../tcl/mobility/timer.tcl
    Class LogTimer -superclass Timer
    LogTimer instproc timeout {} {
        global opt node_;
        for {set i 0} {$i < $opt(nn)} {incr i} {
            $node_($i) log-movement
        }
        $self sched 0.1
    }

    set logtimer [new LogTimer]
    $logtimer sched 0.1
}

# ======================================================================
# Main Program
# ======================================================================
#
# Source External TCL Scripts
#
#source ../lib/ns-mobilenode.tcl

#if { $opt(rp) != "" } {
        #source ../mobility/$opt(rp).tcl
        #} elseif { [catch { set env(NS_PROTO_SCRIPT) } ] == 1 } {
        #puts "\nenvironment variable NS_PROTO_SCRIPT not set!\n"
        #exit
#} else {
        #puts "\n*** using script $env(NS_PROTO_SCRIPT)\n\n";
        #source $env(NS_PROTO_SCRIPT)
#}
#source ../tcl/lib/ns-cmutrace.tcl
source ../tcl/lib/ns-bsnode.tcl
source ../tcl/mobility/com.tcl

# do the get opt again incase the routing protocol file added some more
# options to look for
getopt $argc $argv

if { $opt(x) == 0 || $opt(y) == 0 } {
        usage $argv0
        exit 1
}

if {$opt(seed) > 0} {
        puts "Seeding Random number generator with $opt(seed)\n"
        ns-random $opt(seed)
}

#
# Initialize Global Variables
#
set ns_                [new Simulator]
set chan        [new $opt(chan)]
set prop        [new $opt(prop)]
set topo        [new Topography]

set tracefd  [open $opt(tr) w]
$ns_ trace-all  $tracefd

set namfile [open $opt(nam) w]
$ns_ namtrace-all $namfile

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

$prop topography $topo

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


#
#  Create the specified number of nodes $opt(nn) and "attach" them
#  the channel.
#  Each routing protocol script is expected to have defined a proc
#  create-mobile-node that builds a mobile node and inserts it into the
#  array global $node_($i)
#

$ns_ node-config -adhocRouting gpsr \
                -llType $opt(ll) \
                -macType $opt(mac) \
                -ifqType $opt(ifq) \
                -ifqLen $opt(ifqlen) \
                -antType $opt(ant) \
                -propType $opt(prop) \
                -phyType $opt(netif) \
                -channelType $opt(chan) \
                -topoInstance $topo \
                -agentTrace ON \
                -routerTrace ON \
                -macTrace OFF \
                -movementTrace OFF

source ./gpsr.tcl

for {set i 0} {$i < $opt(nn) } {incr i} {
    gpsr-create-mobile-node $i
}


#
# Source the Connection and Movement scripts
#
if { $opt(cp) == "" } {
        puts "*** NOTE: no connection pattern specified."
        set opt(cp) "none"
} else {
        puts "Loading connection pattern..."
        source $opt(cp)
}




#
# Tell all the nodes when the simulation ends
#
for {set i 0} {$i < $opt(nn) } {incr i} {
    $ns_ at $opt(stop).000000001 "$node_($i) reset";
}
$ns_ at $opt(stop).00000001 "puts \"NS EXITING...\" ; $ns_ halt"


if { $opt(sc) == "" } {
        puts "*** NOTE: no scenario file specified."
        set opt(sc) "none"
} else {
        puts "Loading scenario file..."
        source $opt(sc)
        puts "Load complete..."
}

puts $tracefd "M 0.0 nn $opt(nn) x $opt(x) y $opt(y) rp $opt(rp)"
puts $tracefd "M 0.0 sc $opt(sc) cp $opt(cp) seed $opt(seed)"
puts $tracefd "M 0.0 prop $opt(prop) ant $opt(ant)"

puts "Starting Simulation..."

proc finish {} {
    global ns_ tracefd namfile
    $ns_ flush-trace
    close $tracefd
    close $namfile
    exit 0
}

$ns_ at $opt(stop) "finish"

$ns_ run

This is the output i m getting
Quote:

ubuntu34@ubuntu:~/Downloads/ns-allinone-2.34/ns-2.34/gpsr$ ns-gpsr-keliu g1.tcl
Seeding Random number generator with 5.0

num_nodes is set 15
warning: Please use -channel as shown in tcl/ex/wireless-mitf.tcl
GPSR configuration file
INITIALIZE THE LIST xListHead
Loading connection pattern...
Loading scenario file...
Load complete...
Starting Simulation...
SORTING LISTS ...DONE!
NS EXITING...



All times are GMT -5. The time now is 10:59 AM.