HaversineBox (rtl)

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:

— Développement DSM — Développement DSM —