Kurswinkel Berechung

[robinWie]

Thx für den Hinweis. Jetzt funktioniert es.. zumindest wenn man sich von West nach Ost bewegt^^ Aber ich denk mal um das richtige Ergebniss zu bekommen wenn man sich von Ost nach Webst bewegt muss man einfach 180+W rechnen...

Delphi-Quellcode:

function StartDirection(Lat1, Lat2, Lon1, Lon2: Extended): Single;
var
 Lt1: single;
 LT2: single;
 LG1: single;
 LG2: single;
 DLA: Extended;
 c: Extended;
 w: Extended;
begin
  Lt1 := DegToRad(Lat1);
  Lt2 := DegToRad(Lat2);

  Lg1 := DegToRad(Lon1);
  Lg2 := DegToRad(Lon2);
  DLA := DegToRad(Lon1 - Lon2);

  C := ArcCos(Sin(Lt1) * Sin(Lt2) + Cos(Lt1) * Cos(Lt2) * Cos(DLA));
  W := ArcCos((Sin(Lt2) - Sin(Lt1) * cos(C)) / (cos(Lt1) * sin(C)));
  Result := RadToDeg(W);
end;