Aswan_plus_sealevel_calc_mass_energy.pl
#!/usr/bin/perl
print "calculate energy in Aswan Dam\n";
#
#assumptions: force of gravity at sea level.
# 132 cubic km of water behind the dam viewed as
# a flat rectanglular solid 111 meters above the dam base
# altitude of dam base is 85 meters above sea level.
#
$g = 9.0665;
$total_mass = 132000000000.0;
$total_drop = 111.0;
$drop_increments = 11100.0;
$drop_count_max = 11100;
$dam_base_altitude = 85.0;
$drop_mass = $total_mass / $drop_increments;
$drop_height_increment = $total_drop / $drop_increments;
$height = 0.0;
$total_energy = 0.0;
for ($drop_count = 0; ($drop_count < $drop_count_max); $drop_count++) {
$height = $height + $drop_height_increment;
$slice_height = $height + $dam_base_altitude;
$drop_energy = $slice_height * $drop_mass * $g;
$total_energy = $total_energy + $drop_energy;
}
print "meters of dam height ",$height,
" Joules of potential energy at the sea: slice ", $drop_energy,
" total ", $total_energy, "\n";