Einzelnen Beitrag anzeigen

LeisureSuitLarry

Registriert seit: 8. Dez 2005
Ort: Unterschleißheim
90 Beiträge
 
Delphi 2010 Professional
 
#10

AW: Wie mathematisch einer gewünschten Lösung nähern?

  Alt 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)
  Mit Zitat antworten Zitat