Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by LeisureSuitLarry,
14. Jul 2013
Näherungsweise (die Erde ist eher eliptisch) kann man den Abstand zwischen zwei Punkten auf der Erde so berechnen:
const
RErde=6366.71; //Radius Erde in km
torad:extended=pi/180;
{ Umwandlung ° in radiant }
Lat1:=la1*torad; // Latitude Punkt 1
Lon1:=lo1*torad; // Longitude Punkt 1
lat2:=la2*torad; // Latitude Punkt 1
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by LeisureSuitLarry,
12. Jul 2013
Näherungsweise (die Erde ist eher eliptisch) kann man den Abstand zwischen zwei Punkten auf der Erde so berechnen:
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
...