Schonmal dran gedacht, das Delphi im Bogenmaß rechnet und nicht in Grad? 0,78 sind ca. Pi/4 und das ist dasselbe wie 90 Grad.
In Grad ist eine Umdrehung 360 Grad, im Bogenmaß halt 2*Pi.
Zum Umrechnen vom Bogenmaß in Grad musst du den Wert den ArcTan zurückgibt * 360/(2*Pi) rechnen.
Um von Grad ins Bogenmaß zu konvertieren musst du den Wert *(2*Pi)/360 rechnen.
Delphi-Quellcode:
function GetWinkel(GK : real; AK: real): real;
begin
result:= ArcTan(GK/AK)*360/(2*Pi);
end;
Die Wichtigkeit eines Postings im Forum ist reziprok zur Anzahl der enthaltenenen, kumulierten Ausrufungszeichen!!!