Advertisement
Guest User

Untitled

a guest
Mar 19th, 2019
73
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.89 KB | None | 0 0
  1. / Ermitlung des Ursprungsortes
  2. $lambda = $latitude * pi() / 180;
  3. $phi = $longitude * pi() / 180;
  4. $Erdradius = 6371;
  5. $UrsprungX = $Erdradius * cos($phi) * cos($lambda);
  6. $UrsprungY = $Erdradius * cos($phi) * sin($lambda);
  7. $UrsprungZ = $Erdradius * sin($phi);
  8. //echo $UrsprungX."</br>".$UrsprungY."</br>".$UrsprungZ;
  9. //echo $lambda."</br>".$phi;
  10.  
  11. // Plätze im Umkreisermitteln
  12.  
  13. $ausgwaehlt;
  14. foreach ($adressen as $inhalt)
  15. {
  16. $entfernung= 2 * $Erdradius *
  17. asin(
  18. sqrt(
  19. pow ($UrsprungX - $Erdradius* COS($inhalt[lat] * PI() / 180) * COS($inhalt[long] * PI() / 180),2)+
  20. pow($UrsprungY - $Erdradius * COS($inhalt[lat] * PI() / 180) * SIN($inhalt[long] * PI() / 180),2)+
  21. pow($UrsprungZ - $Erdradius * SIN($inhalt[lat] * PI() / 180),2))/(2 * $Erdradius)
  22. );
  23. If ($entfernung < $r)
  24. {
  25.  
  26. //$inhalt[Entfernung]= round($entfernung, 1);
  27. $inhalt[Entfernung]= $entfernung;
  28. $ausgwaehlt[] =$inhalt;
  29.  
  30. }
  31. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement