Calculating Energy efficiency in wsn (smac)by Sleep & Aw

Thanks for your reply..it was really very helpful.
As you have mentioned I have got the energy model in a tcl script which is shown below.

set opt(chan) Channel/WirelessChannel
set opt(prop) Propagation/TwoRayGround
set opt(netif) Phy/WirelessPhy
set opt(mac) Mac/SMAC ;# MAC type
set opt(ifq) Queue/DropTail/PriQueue
set opt(ll) LL
set opt(ant) Antenna/OmniAntenna

set opt(x) 800 ;# X dimension of the topography
set opt(y) 800 ;# Y dimension of the topography
set opt(cp) “../mobility/scene/cbr-50-10-4-512”
set opt(sc) “../mobility/scene/scen-670×670-50-600-20-0”

set opt(ifqlen) 50 ;# max packet in ifq
set opt(nn) 2 ;# number of nodes
set opt(seed) 0.0
set opt(stop) 700.0 ;# simulation time
set opt(tr) MyTest.tr ;# trace file
set opt(nam) MyTest.nam ;# animation file
set opt(rp) DumbAgent ;# routing protocol script
set opt(lm) “off” ;# log movement
set opt(agent) Agent/DSDV
set opt(energymodel) EnergyModel ;
#set opt(energymodel) RadioModel ;
set opt(radiomodel) RadioModel ;
set opt(initialenergy) 1000 ;# Initial energy in Joules
#set opt(logenergy) “on” ;# log energy every 150 seconds

Mac/SMAC set syncFlag_ 1

Mac/SMAC set dutyCycle_ 10

set ns_ [new Simulator]
set topo [new Topography]
set tracefd [open $opt(tr) w]
set namtrace [open $opt(nam) w]
set prop [new $opt(prop)]

$topo load_flatgrid $opt(x) $opt(y)
ns-random 1.0
$ns_ trace-all $tracefd
#$ns_ namtrace-all-wireless $namtrace 500 500

#
# Create god
#
create-god $opt(nn)

#global node setting

$ns_ node-config -adhocRouting DumbAgent
-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 ON
-energyModel $opt(energymodel)
-idlePower 1.0
-rxPower 1.0
-txPower 1.0
-sleepPower 0.001
-transitionPower 0.2
-transitionTime 0.005
-initialEnergy $opt(initialenergy)

$ns_ set WirelessNewTrace_ ON
#set AgentTrace ON
#set RouterTrace OFF
#set MacTrace ON

for {set i 0} {$i < $opt(nn) } {incr i} {
set node_($i) [$ns_ node]
$node_($i) random-motion 0 ;# disable random motion
}

# $node_(1) set agentTrace ON
# $node_(1) set macTrace ON
# $node_(1) set routerTrace ON
# $node_(0) set macTrace ON
# $node_(0) set agentTrace ON
# $node_(0) set routerTrace ON

set udp_(0) [new Agent/UDP]
$ns_ attach-agent $node_(0) $udp_(0)
set null_(0) [new Agent/Null]
$ns_ attach-agent $node_(1) $null_(0)
set cbr_(0) [new Application/Traffic/CBR]
$cbr_(0) set packetSize_ 512
$cbr_(0) set interval_ 10.0
$cbr_(0) set random_ 1
$cbr_(0) set maxpkts_ 50000
$cbr_(0) attach-agent $udp_(0)
$ns_ connect $udp_(0) $null_(0)

$ns_ at 1.00 “$cbr_(0) start”
#$ns_ at 177.000 “$node_(0) set ifqLen”

#
# Tell all the nodes when the simulation ends
#
for {set i 0} {$i < $opt(nn) } {incr i} {
$ns_ at $opt(stop) “$node_($i) reset”;
}
$ns_ at $opt(stop) “puts “NS EXITING…” ; $ns_ halt”

set b [$node_(0) set mac_(0)]
#set c [$b set freq_]
set d [Mac/SMAC set syncFlag_]

#set e [$node_(0) set netif_(0)]

#set c [$e set L_]
set c [Mac/SMAC set dutyCycle_]
#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 $tracefd “V $b : $c : $d :”
puts “Starting Simulation…”
$ns_ run

When I run this script I get the following error “segmentation fault (core dumped)”

I am not able to understand why this error occurs. Is it because of the memory allocation? Or is there any error in the loop? Please help me in this. Thank you.