Registriert seit: 8. Dez 2005
Ort: Unterschleißheim
90 Beiträge
Delphi 2010 Professional
|
AW: Wie mathematisch einer gewünschten Lösung nähern?
12. Jul 2013, 19:48
Näherungsweise (die Erde ist eher eliptisch) kann man den Abstand zwischen zwei Punkten auf der Erde so berechnen:
Delphi-Quellcode:
const RErde=6366.71; //Radius Erde in km
{ Umwandlung ° in radiant }
Lat1:=la1*torad; // Latitude Punkt 1
Lon1:=lo1*torad; // Longitude Punkt 1
lat2:=la2*torad; // Latitude Punkt 1
lon2:=lo2*torad; // Longitude Punkt 1
Distanz:=ArcCOS(SIN(Lat1)*SIN(Lat2)+COS(Lat1)*COS(Lat2)*COS(Lon1-Lon2))*RErde;
Manfred Mein erster Rechner hatte eine Z80A-CPU mit 4MHz, 64KB Speicher, Musikkassetten als Speichermedium. Als Betriebssystem CP/M (dazu gekauft)
|