Mathematik f(x) = ax + b

[Kamikazedog]

So, jetzt der Schnitt zweier Geraden:

Code:

procedure TForm1.Schnittpunkt(x1,x2,x3,x4,y1,y2,y3,y4: Double);
var s1,s2,a1,a2: Double;
begin
  If x1<>x2 Then 
   s1 := (y2-y1)/(x2-x1)
  Else 
   s1 := Pi;
  If x3<>x4 Then 
   s2 := (y4-y3)/(x4-x3)
  Else 
   s2 := Pi;
  a1 := y1 - s1 * x1;
  a2 := y2 - s2 * x2;
  x := (a2 - a1) / (s1 - s2); 
  y := (s1 * a2 - s2 * a1) / (s1 - s2);
end;

Ich geb zwar keine Garantie, sollte aber trotzdem stimmen

Cu @ all
Thomas 8)