Select Code to Download

perl -e 'print -8 + -15 * 0.5, "\n";'

-15.5

print "LEQ/REQ: $leftEq[$_[0]][$i] $rightEq[$_[0]][$i]\n";
($leftEq[$_[0]][$i], $rightEq[$_[0]][$i]) =
...
    $rightEq[$_[0]][$i] + $rightStorDelta[$i] * $factor);
print "Fct: $factor Delt: $leftStorDelta[$i] $rightStorDelta[$i]\n";
print "Post-LEQ/REQ: $leftEq[$_[0]][$i] $rightEq[$_[0]][$i]\n\n";

LEQ/REQ: -8 -8
Fct: 0.50 Delt: -15 -15
Post-LEQ/REQ: -8 -8