Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- / Ermitlung des Ursprungsortes
- $lambda = $latitude * pi() / 180;
- $phi = $longitude * pi() / 180;
- $Erdradius = 6371;
- $UrsprungX = $Erdradius * cos($phi) * cos($lambda);
- $UrsprungY = $Erdradius * cos($phi) * sin($lambda);
- $UrsprungZ = $Erdradius * sin($phi);
- //echo $UrsprungX."</br>".$UrsprungY."</br>".$UrsprungZ;
- //echo $lambda."</br>".$phi;
- // Plätze im Umkreisermitteln
- $ausgwaehlt;
- foreach ($adressen as $inhalt)
- {
- $entfernung= 2 * $Erdradius *
- asin(
- sqrt(
- pow ($UrsprungX - $Erdradius* COS($inhalt[lat] * PI() / 180) * COS($inhalt[long] * PI() / 180),2)+
- pow($UrsprungY - $Erdradius * COS($inhalt[lat] * PI() / 180) * SIN($inhalt[long] * PI() / 180),2)+
- pow($UrsprungZ - $Erdradius * SIN($inhalt[lat] * PI() / 180),2))/(2 * $Erdradius)
- );
- If ($entfernung < $r)
- {
- //$inhalt[Entfernung]= round($entfernung, 1);
- $inhalt[Entfernung]= $entfernung;
- $ausgwaehlt[] =$inhalt;
- }
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement