Gleichung umformen

[Bjoerk]

Kann mir ja jemand mal bitte helfen? Ich suche den Schnittpunkt von Gerade und Ellipse.
Hierzu muß ich diese Formel (***) in eine ax^2 + bx + c Gleichung umformen. Ich schaffs nicht (mehr).

Delphi-Quellcode:

  XLine1, YLine1, XLine2, YLine2, // Rect Gerade
  aLine, bLine, // Geradengleichung
  XEllipse1, YEllipse1, XEllipse2, YEllipse2, // Rect Ellipse
  X, Y, // Mittelpunkt Ellipse
  aEllipse, bEllipse: double; // Ellipsengleichung
begin
  X := (XEllipse2 + XEllipse1) / 2;
  Y := (YEllipse2 + YEllipse1) / 2;
  aEllipse := (XEllipse2 - XEllipse1) / 2;
  bEllipse := (YEllipse2 - YEllipse1) / 2;
  XLine1 := XLine1 - X;
  YLine1 := YLine1 - Y;
  XLine2 := XLine2 - X;
  YLine2 := YLine2 - Y;
  bLine := YLine1 - XLine1 * (YLine2- YLine1) / (XLine2 - XLine1);
  aLine := -YLine1 / ((YLine2- YLine1) / (XLine2 - XLine1)) - XLine1;

  // Line(x, y) = x / aLine + y / bLine = 1;
  // -> y = bLine * (1 - x / aLine);

  // Ellipse(x, y) = x^2 / aEllipse^2 + y^2 / bEllipse^2 = 1;
  -> x^2 / aEllipse^2 + (bLine * (1 - x / aLine))^2 / bEllipse^2 = 1; // ***