Ok. Vielen Dank. Man macht das wohl noch anders.. Weiß jemand wie
diese Formel für p^2 zu benutzen ist, falls b > a?
// Edit
Also das mein ich:
Delphi-Quellcode:
Eps := Sqrt(A * A - B * B) / A;
ACos := Cos(DegToRad(Phi));
ASin := Sin(DegToRad(Phi));
P := Sqrt(B * B / (1 - Eps * Eps * ACos * ACos));
X := X1 + P * ACos;
Y := Y1 + P * ASin;