how to integrate the "Resource/Energy" leach class into NS-2.34?

nzny · 11-22-2012, 12:08 PM

@deepa, thank you

i've tried:

[code]
[$self node] neighbors
[\code]

it returns nothing.

I also tried to define a new function in ns-ranode.tcl, similar to getER for energy:

[code]
MobileNode/ResourceAwareNode instproc getNR {} {
$self instvar ResourceManager_

set nr [$ResourceManager_ getResourceByType Resource/NeighborResource]
return $nr
}
[\code]

then I called:

[code]

[[$self getNR] query_ext nodeID]

[\code]

it returns "". I think this is because I didn't define the ID correctly as stated here:

[code]
# Querying for a specific ID returns the descriptor for that ID
# and the distance, if the desc is a wireless neighbor.
# If that ID is not available, we return "".

[code]
Resource/NeighborResource instproc query_ext id {
$self instvar neighbor_list_

if {$id == "all"} {
return $neighbor_list_
}

foreach n $neighbor_list_ {
if {$id == [$n setId]} {
return $n
}
}

return ""
}
[\code]

if you have time, really appreciate if you could suggest how to set the ID or any related args...thank you

nzny · 11-22-2012, 12:13 PM

@deepa, thank you

i've tried:

Code:

[$self node] neighbors

it returns nothing.

I also tried to define a new function in ns-ranode.tcl, similar to getER for energy:

Code:

MobileNode/ResourceAwareNode instproc getNR {} {
    $self instvar ResourceManager_
      
    set nr [$ResourceManager_ getResourceByType Resource/NeighborResource] 
    return $nr
}

then I called:

Code:

[[$self getNR] query_ext nodeID]

it returns "". I think this is because I didn't define the ID correctly as stated here:

Code:

# Querying for a specific ID returns the descriptor for that ID
# and the distance, if the desc is a wireless neighbor.
# If that ID is not available, we return "".


Resource/NeighborResource instproc query_ext id {
    $self instvar neighbor_list_

    if {$id == "all"} {
      return $neighbor_list_
    }
    
    foreach n $neighbor_list_ {
      if {$id == [$n setId]} {
        return $n 
      }
    }

    return ""
}

really appreciate if you could suggest how to set the ID or any related args...thank you

minhntbkhn · 11-22-2012, 01:51 PM

Hi all !
Please someone can explain the meaning of these parameters, they are in condition.txt. Thanks !

Quote:

Energy Model:
RXThresh = 6e-9
CSThresh = 1e-9
Rb = 1e6
Excvr = 50e-9
Efriss_amp = 9.6741659015025702e-12
Etwo_ray_amp = 1.3037037037037037e-15
Ebf = 5e-9
Pidle = 0
Psleep = 0

nzny · 11-22-2012, 08:34 PM

@minhntbkhn

those parameters are defined in uamps.tcl together with their description...u can check in that file..

Quote:

Originally Posted by minhntbkhn

Hi all !
Please someone can explain the meaning of these parameters, they are in condition.txt. Thanks !

deepa_2111 · 11-22-2012, 11:17 PM

@ nzny (#362),

Why not try printing the value of "neighbor_list_" in "query_ext" function. We can debug from there and see.

ni_saghari · 11-27-2012, 09:42 AM

@minhntbkhn & @deepa_2111
thanks minhntbkhn for pegasis, its very helpful

I wanna to add security on leach
for example I want to encrypt packets and then send
my first question is where can I add codes of encryption algorithm (tcl files or ...)?
and second, this algorithms dissipate energy of node,where can I consider the energy dissipation?
please help me,plzzzzzzz

rakeshpanchiwala · 01-12-2013, 03:42 AM

hello sir,
I have installed leach in ns2.34 in ubuntu12.04.
when i ran ./test file i got

num_nodes is set 3
warning: Please use -channel as shown in tcl/ex/wireless-mitf.tcl
INITIALIZE THE LIST xListHead
Loading connection pattern...
Loading scenario file...
Starting Simulation...
channel.cc:sendUp - Calc highestAntennaZ_ and distCST_
highestAntennaZ_ = 1.5, distCST_ = 550.0
SORTING LISTS ...DONE!
NS EXITING...

but i didn't get any nam file....
and also i got many warnings in leach.out file.

so please tell me how to generate nam file......

ni_saghari · 01-12-2013, 07:49 AM

@rakeshpanchiwala
removing warnings run these lines in terminal

Quote:

cd work/ns-allinone-2.34/ns-2.34/mit/uAMPS/
perl -p -i -w -e 's/dst_/dst_addr_/g;' *.tcl

cd work/ns-allinone-2.34/ns-2.34/mit/uAMPS/sims
perl -p -i -w -e 's/dst_/dst_addr_/g;' *.tcl

and finally

Quote:

sh leach_test

you have no warning in leach.out

engr · 01-14-2013, 06:51 AM

hi every one..

i have installed ns-2.34 and leach patch on it. it was working fine few days back. but now
whenever i try ./test
it shows

./test
num_nodes is set 3
warning: Please use -channel as shown in tcl/ex/wireless-mitf.tcl
warning: no class variable Phy/WirelessPhy::E_elec

see tcl-object.tcl in tclcl for info about this warning.

warning: no class variable Phy/WirelessPhy::e_mp

warning: no class variable Phy/WirelessPhy::e_fs

INITIALIZE THE LIST xListHead
warning: no class variable Phy/WirelessPhy::E_elec

see tcl-object.tcl in tclcl for info about this warning.

warning: no class variable Phy/WirelessPhy::e_mp

warning: no class variable Phy/WirelessPhy::e_fs

warning: no class variable Phy/WirelessPhy::E_elec

see tcl-object.tcl in tclcl for info about this warning.

warning: no class variable Phy/WirelessPhy::e_mp

warning: no class variable Phy/WirelessPhy::e_fs

Loading connection pattern...
Loading scenario file...
Starting Simulation...
channel.cc:sendUp - Calc highestAntennaZ_ and distCST_
highestAntennaZ_ = 1.5, distCST_ = 550.0
SORTING LISTS ...DONE!
Attempting to cancel timer at 0x2d770c8 which is not scheduled

plz help me

engr · 01-14-2013, 06:52 AM

alos my leach.out file is empty. while
leach.err file has these errors

invalid command name "Resource/Energy"
while executing
"Resource/Energy instproc setParams {args} {
$self instvar energyLevel_ alarmLevel_
set energyLevel_ [lindex $args 0]
set alarmLevel_ [lind..."
(file "/root/ns2/ns-allinone-2.34/ns-2.34/mit/rca/resources/ns-energy-resource.tcl" line 11)
invoked from within
"source.orig /root/ns2/ns-allinone-2.34/ns-2.34/mit/rca/resources/ns-energy-resource.tcl"
("uplevel" body line 1)
invoked from within
"uplevel source.orig[list $fileName]"
invoked from within
"if [$instance_ is_http_url $fileName] {
set buffer [$instance_ read_url $fileName]
uplevel eval $buffer
} else {
uplevel source.orig[list $fileName]
..."
(procedure "source" line 8)
invoked from within
"source /root/ns2/ns-allinone-2.34/ns-2.34/mit/rca/resources/ns-energy-resource.tcl"
(file "mit/uAMPS/sims/uamps.tcl" line 24)
invoked from within
"source.orig mit/uAMPS/sims/uamps.tcl"
("uplevel" body line 1)
invoked from within
"uplevel source.orig[list $fileName]"
invoked from within
"if [$instance_ is_http_url $fileName] {
set buffer [$instance_ read_url $fileName]
uplevel eval $buffer
} else {
uplevel source.orig[list $fileName]
..."
(procedure "source" line 8)
invoked from within
"source mit/uAMPS/sims/uamps.tcl"
(file "tcl/mobility/leach.tcl" line 18)
invoked from within
"source.orig tcl/mobility/leach.tcl"
("uplevel" body line 1)
invoked from within
"uplevel source.orig[list $fileName]"
invoked from within
"if [$instance_ is_http_url $fileName] {
set buffer [$instance_ read_url $fileName]
uplevel eval $buffer
} else {
uplevel source.orig[list $fileName]
..."
(procedure "source" line 8)
invoked from within
"source tcl/mobility/$opt(rp).tcl"
(file "tcl/ex/wireless.tcl" line 187)

ni_saghari · 01-14-2013, 11:57 AM

@engr
to solve errors in leach.err :
open uamps.tcl from work/ns-allinone-2.34/ns-2.34/mit/uAMPS/sims
Add these codes in it(after "global opt bs" line):

Quote:

#source $env(RCA_LIBRARY)/ns-ranode.tcl
source ~/work/ns-allinone-2.34/ns-2.34/mit/rca/ns-ranode.tcl

#source $env(uAMPS_LIBRARY)/ns-bsapp.tcl
source ~/work/ns-allinone-2.34/ns-2.34/mit/uAMPS/ns-bsapp.tcl

#source $env(uAMPS_LIBRARY)/extras.tcl
source ~/work/ns-allinone-2.34/ns-2.34/mit/uAMPS/extras.tcl

#source $env(uAMPS_LIBRARY)/stats.tcl
source ~/work/ns-allinone-2.34/ns-2.34/mit/uAMPS/stats.tcl

#Uncomment these lines to use gdb to debug the c code
#source mit/uAMPS/ns-bsapp.tcl
#source mit/uAMPS/extras.tcl
#source mit/uAMPS/stats.tcl

#source $env(RCA_LIBRARY)/resources/ns-resource-manager.tcl
source ~/work/ns-allinone-2.34/ns-2.34/mit/rca/resources/ns-resource-manager.tcl

#source $env(RCA_LIBRARY)/resources/ns-energy-resource.tcl
source ~/work/ns-allinone-2.34/ns-2.34/mit/rca/resources/ns-energy-resource.tcl

#source $env(RCA_LIBRARY)/resources/ns-neighbor-resource.tcl
source ~/work/ns-allinone-2.34/ns-2.34/mit/rca/resources/ns-neighbor-resource.tcl

engr · 01-14-2013, 11:59 AM

hi ni..saghari
thnx for the reply.. i have changed them already. but errors are still there

ni_saghari · 01-14-2013, 12:04 PM

I did these changes and solved error
when I want to run leach,I use this command :

Quote:

sh leach_test

in ns-2.34 directory

and when you go in leach-sims folder,files are making in about 5 minute
with no errors in leach.err

engr · 01-20-2013, 04:30 PM

hi friends.. i need to calculate the means energy of each cluster in leach.. can anyone help me how can i define this function?
one more thing do i need to write new .cc and .h files for my modification in leach or its better to modify the existing leach.tcl files? kindly reply me asap

engr · 01-21-2013, 10:03 AM

hi every one.. i need to calculate the average energy for each cluster how can i add this in the leach code.. can anyone plz guide me
reply here asap.
regards