« Haversine (rtl) » : différence entre les versions

Version du 24 décembre 2013 à 08:52

{{#images:versionlatest-32x32.png|stock}} <source lang='delphi'>Function haversine(lat1,long1,lat2,long2):double;</source>

Cette fonction calcule la distance en kilomètre entre deux coordonnées de lieu exprimés en degré.

Result	La distance en KM entre les deux coordonnées.
lat1,long1	Le premier jeu de coordonné.
lat2,long2	Le second jeu de coordonné.

Pseudo code :

<source lang='delphi'> const cEarthRadiusKM = 6371.0009;

function haversine(lat1,long1,lat2,long2:Double; E:double=cEarthRadiusKM):double; var slon,slat,a,c:Double; begin

 lat1 := degToRad(lat1);
 long1 := degToRad(long1);
 lat2 := degToRad(lat2);
 long2 := degToRad(long2);
 //
 slon := sin((long2 - long1)/2);
 slat := sin((lat2 - lat1)/2);
 a := slat*slat + cos(lat1)*cos(lat2) * slon*slon;
 c := 2 * arctan2( sqrt(a), sqrt(1-a) );
 Result := E * c;

end; </source>

Voir aussi:

{{#if:Développement DSM|

{{#if:Développement DSM|— Développement DSM |}} — Développement DSM —

|

{{#if:|— [[{{{1}}}]] |}} — Développement DSM —

}}

@@ Ligne 38 : / Ligne 38 : @@
 Voir aussi:
+* [[haversineBox (rtl)|haversineBox]]
 * [http://en.wikipedia.org/wiki/Haversine_formula Haversine formula]