HaversineBox (rtl)

Syfre (discuter | contributions)
(Page créée avec « {{latest}} <source lang='delphi'>procedure haversineBox(lat,long,distance:Double; var latmin,latmax,longmin,longmax:double);</source> Cette fonction calcule la boite engl... »)
Modification suivante →

---

Version du 24 décembre 2013 à 09:55

procedure haversineBox(lat,long,distance:Double; var latmin,latmax,longmin,longmax:double);

Cette fonction calcule la boite englobante d'une position de taille exprimée en kilomètre.

lat,long	Le jeu de coordonné au centre de la boite
latmin,latmax,longmin,longmax	Les coordonnées min et max de la boite.

Pseudo code :

const cEarthRadiusKM = 6371.0009;
 
procedure haversineBox(lat,long,distance:Double; var latmin,latmax,longmin,longmax:Double; E:double=cEarthRadiusKM);
var dd:Double;
begin
  dd  := RadToDeg(distance/E);
  latmin := lat-dd;
  latmax := lat+dd;
  dd  := RadToDeg(distance/E/cos(degTorad(lat)));
  longmin := long-dd;
  longmax := long+dd;
end;

Voir aussi:

• haversine
• Haversine formula

— Développement DSM — Développement DSM —