Select Code to Download

for ($incEnergy = $maxEnergy; $incEnergy > $minEnergy; $incEnergy += $
+scale)

my ($filename, $x, $y, $min, $max) = @_;

$$max = $y->[-1] if $y->[-1] > $$max;