Ich hab das jetzt nur überflogen.

Ist schon wesentlich kürzer und wenn die Routine läuft kann man da noch ne Variable einsparen.

Die Formel scheint soweit ok aber ich meine das bei den beiden letzten Zeilen vor den Prints noch irgendwas nicht stimmt aber da kann ich auch irren.
Ich muß das Heut nachmittag mal Exemplarisch durchrechnen bevor ich da was zu sage.