print "LEQ/REQ: $leftEq[$_[0]][$i] $rightEq[$_[0]][$i]\n";
($leftEq[$_[0]][$i], $rightEq[$_[0]][$i]) =
    ($leftEq[$_[0]][$i] + $leftStorDelta[$i] * $factor,
    $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";