Entfernung zwischen zwei Punkten auf der Erdoberfläche

[Margin-Auto]

Hi,

Schau mal in der FAQ von OpenGeoDB.

Danke für den Hinweis. Ich habs jetzt so gemacht:

  
sub distance{  
 my ($lat1,$long1,$lat2,$long2) = @_;  
  
 $lat1=torad($lat1);  
 $long1=torad($long1);  
 $lat2=torad($lat2);  
 $long2=torad($long2);  
  
 my $a = sin($lat1) * sin($lat2);  
 my $b = cos($lat1) * cos($lat2) * cos($long2 - $long1);  
 my $c = acos($a + $b);  
 return 6380000 * $c;  
}  
  
sub torad{  
 return $_[0]*(3.14159265 / 180);  
}  
  
sub acos{  
 return atan2(sqrt(1-$_[0]*$_[0]), $_[0]);  
}  

Weicht zwar immer noch von Google Earth ab, ist aber wesentlich genauer als der erste Versuch. Wenn jemand noch was Besseres weiss....

Margin-Auto