# Configure the Energy

for {set i 0} {$i < $val(nn)} {incr i} {

set energy($i) [expr rand()*100]

$ns node-config \

-initialEnergy $energy($i) \

-rxPower 0.1 \

-txPower 0.3

set E($i) $energy($i)

set IE($i) $E($i)

set node_($i) [$ns node]

$node_($i) color black

}

set source 3

set destination 5

$ns at 0.1 "$node_($source) color magenta"

$ns at 0.1 "$node_($destination) color magenta"

$ns at 0.1 "$node_($source) label Source"

$ns at 0.1 "$node_($destination) label Destination"

# Defining Communication Between source node to destination node

set udp [new Agent/UDP]

$ns attach-agent $node_($source) $udp

set null [new Agent/Null]

$ns attach-agent $node_($destination) $null

$ns connect $udp $null

set cbr [new Application/Traffic/CBR]

$cbr attach-agent $udp

$cbr set packetSize_ 512

$cbr set interval_ 0.1

$ns at 1.0 "$cbr start"

$ns at 6.0 "$cbr stop"

aodv.cc file
//Energy based Path Selection using AODV Protocol

iNode1 = (MobileNode *) (Node::get_node_by_address(index));

residual_energy = iNode1->energy_model()->energy();

if (residual_energy > 35.0) {

forward(packet);

} else {

discard(packet);

}