Ich möchte gerne die Entfernung zwischen 2 Koordinaten berechnen. Der erste Wert kommt von eime GPS-System und der zweite von Koordinaten, die über OpenStreetMap ermittelt wurden.
Die Formel für die Berechnung habe ich von
hier.
Meine Funktion sieht folgendermaßen aus:
Delphi-Quellcode:
function DistanceKM(lat1, lon1, lat2, lon2: Extended): Extended;
begin
Result:=6378.388 *
ArcCos(sin(lat1) * sin(lat2) + cos(lat1) * cos(lat2) * cos(lon2 - lon1));
end;
Das von der Funktion berechnete Ergebnis lautet: 735.91 km.
Lasse ich die beiden Koordinaten jedoch bei
https://rechneronline.de/geo-koordinaten/#entfernung berechnen, kommt 15.896 km raus (war auch korrekt ist).
Kann mir jemand sagen, was an der Formel falsch ist?