Winkel einer Geraden ausrechnen:
Code:
function Winkel(x1,x2,y1,y2: Double): Double;
begin
If (x2-x1) <> 0 Then
Result := arctan((y2-y1)/(x2-x1))
//im Gradmaß:
//Result := arctan((y2-y1)/(x2-x1))*180/Pi
Else
Result := Pi;
//im Gradmaß:
//Result := 90;
end;
So erhältst du den Winkel der Gerade zur X-Achse im Bogen- bzw. Gradmaß! Is doch ganz easy
Cu @ all
Thomas