Also irgendwie bekomme ich aus den Werten wohl nicht die korrekten Daten hergeleitet. Zur Berechnung nutze ich das hier:
Delphi-Quellcode:
function Heading: single;
begin
if (FHeadingY > 0) then
result := 90.0 - arcTan(FHeadingX / FHeadingY) * 180 / PI
else if (FHeadingY < 0) then
result := 270.0 - arcTan(FHeadingX / FHeadingY) * 180 / PI
else if (FHeadingY = 0) and (FHeadingX < 0) then
result := 180
else if (FHeadingY = 0) and (FHeadingX > 0) then
result := 0;
end;
Ich sollte eventuell erwähnen, dass ich das von hier her habe:
http://www51.honeywell.com/aero/comm...netometers.pdf.