Thema: Delphi Mathematik f(x) = ax + b

Einzelnen Beitrag anzeigen

Kamikazedog

Registriert seit: 21. Jul 2003
2 Beiträge
 
#24

Re: Mathematik f(x) = ax + b

  Alt 21. Jul 2003, 22:21
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
  Mit Zitat antworten Zitat