Schnittpunkt zweier Strecken

[glkgereon]

Zitat von Oxmyx:

Zitat von BenjaminH:

Wenn die x werte von Start und End punkt einer Strecke gleich sind drehst du das ganze halt um 90°

Und was machst du dann bei diesen beiden Geraden?

x = 1
y = 2

Dann ist der Schnittpunkt S(1|2)

Mein Vorschlag (Pseudocode):

Delphi-Quellcode:

if FormatOfStrecke1 = 'y=y1' then
  begin
  Sy:=y1;
  if FormatOfStrecke2 = 'y=y2' then
    begin
    if y2=y1 then OK else Abbrechen;
    end
  else if FormatOfStrecke2 = 'x=x2' then
    begin
    Sx:=x2;
    end
  else if FormatOfStrecke2 = 'y=m1*x+b1' then
    begin
    Sx:=(y2-b2)/m2;
    end;
  end
else if FormatOfStrecke1 = 'x=x1' then
  begin
  Sx:=x1;
  if FormatOfStrecke2 = 'y=y2' then
    begin
    Sy:=y2;
    end
  else if FormatOfStrecke2 = 'x=x2' then
    begin
    if x2=x1 then OK else Abbrechen;
    end
  else if FormatOfStrecke2 = 'y=m2*x+b2' then
    begin
    Sy:=m2*Sx+b2;
    end;
  end
else if FormatOfStrecke1 = 'y=m1*x+b1' then
  begin
  if FormatOfStrecke2 = 'y=y2' then
    begin
    Sy:=y2;
    Sx:=(Sy-b1)/m1;
    end
  else if FormatOfStrecke2 = 'x=x2' then
    begin
    Sx:=x2;
    Sy:=m1*Sx+b1;
    end
  else if FormatOfStrecke2 = 'y=m2*x+b2' then
    begin
    //Normale Berechnung...
    end;
  end;

Edit: Völliger Schwachsinn
ich überdenke das bis morgen nochmal...

Edit 2:
Jetzt aber