DONNE LA DISTANCE (EN M) ENTRE DEUX POINTS DE COORDONNÉES GÉOGRAPHIQUES CONNUES
katsankat
Messages postés
571
Date d'inscription
vendredi 30 décembre 2005
Statut
Membre
Dernière intervention
12 juillet 2012
-
31 mai 2006 à 08:53
mdegremo Messages postés 17 Date d'inscription jeudi 21 août 2008 Statut Membre Dernière intervention 10 septembre 2011 - 25 janv. 2011 à 10:13
mdegremo Messages postés 17 Date d'inscription jeudi 21 août 2008 Statut Membre Dernière intervention 10 septembre 2011 - 25 janv. 2011 à 10:13
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/37841-donne-la-distance-en-m-entre-deux-points-de-coordonnees-geographiques-connues
https://codes-sources.commentcamarche.net/source/37841-donne-la-distance-en-m-entre-deux-points-de-coordonnees-geographiques-connues
25 janv. 2011 à 10:13
16 avril 2008 à 12:31
A(xa,ya), B(xb,yb)
CapLoxo = Atn((xa - xb) / Log(Tan(ya / 2 + pi / 4) / Tan(yb / 2 + pi / 4)))
La distance Loxo ainsi :
DstLoxo = RayonSphere * Abs((ya - yb) / Cos(CapLoxo))
18 janv. 2008 à 14:20
18 janv. 2008 à 13:59
1.609km est la valeur d'un "miles" anglais. En revanche en navigation on utilise le "mile nautique" qui vaut 1.852 km.
29 déc. 2007 à 23:02
21 déc. 2007 à 00:55
Cette ellipsoide s'avère utile par exemple dans des calculs maritimes utilisant un relevé GPS et des repports sur des cartes utilisant d'autres référentiels (type référentiel européen). Toutefois il faut convertir les coordonnées WGS 84 reçues par un GPS en coordonnées du pays où l'on se trouve pour pouvoir faire des reports corrects sur des cartes.
L'utilisation de l'ellipsoide WGS 84 est d'un ordre professionnel, le calcul de l'orthodromie par la méthode classique me semble plus appropriée pour l'utilisation couremment faite d'un GPS. De plus c'est elle donnée de base dans les cours de nav aérienne jusqu'à un certain point.
20 déc. 2007 à 23:09
'Entrée : A(xa,ya)
' B(xb, yb)
'Sortie : dtom (distance orthodromique entre A et B)
' co (cap orthodromique entre A et B)
'Les coordonnées xa,ya,xb,yb arrivent sur cette fonction sous l'unité 'Degré'
Dim Dl, Alc, RayonSphere
RayonSphere = 6378
'!!! ATTENTION !
'B(xb,yb) est le point origine
'A(xa,ya) est le point destination
pi = 3.1415926536
crd = 180 / pi
cdr = pi / 180
'dtonm est la distance en km entre les deux points
'A (xa,ya) et B(xb,yb)
'Divise par 1.852 pour convertir en Miles Nautiques.
xa xa * cdr: ya ya * cdr: xb = xb * cdr: yb = yb * cdr
Dl = xa - xb
Alc = Sin(yb) * Sin(ya) + Cos(yb) * Cos(ya) * Cos(Dl)
Alc = pi / 2 - Atn(Alc / Sqr(1 - Alc ^ 2))
Dto = RayonSphere * Alc
'co est le cap initial.
Co = (Sin(ya) - Cos(Alc) * Sin(yb)) / (Sin(Alc) * Cos(yb))
Co = pi / 2 - Atn(Co / Sqr(1 - Co ^ 2))
If Cos(ya) * Sin(Dl) * Sin(Alc) < 0 Then Co = 2 * pi - Co
Co = Co * crd
If Co > 360 Then Co = Co - 360
If Co < 0 Then Co = Co + 360
Ne pas oublier d'appliquer au cap la déclinaison magnétique de l'endroit où l'on se trouve. Ces calculs se retrouvent dans tout cours de navigation aérienne.
Si vous êtes intéressés, dites le, je peux aussi vous filer les calculs concernant la loxodromie.
a++
11 déc. 2006 à 17:13
points geographique,et je n'obtiend jamais le meme resultat quelle est la fonction
qui marche et celle qui marche pas.
7 juin 2006 à 19:31
Const PI = 3,1415926535897932384626433832795
oué c'est vrai que la ligne lata-latb=0 on peut la virer mais dans mon appli elle servai à quelque chose, dsl
a+
VBSorcier
7 juin 2006 à 19:07
5 juin 2006 à 09:52
va voir ma source NMEA Analyser ya une fonction de calcul de distance tenant compte de la courbure de la terre
http://www.vbfrance.com/codes/NMEA-ANALYSER-TRACAGE-PARCOURS-2D-3D-EXPORTATION-EXCEL_36528.aspx
Function Dst_PP(ByVal lonA, ByVal latA, ByVal lonB, ByVal latB) 'As String
rad = PI / 180 'Convertion en radian
lonA = lonA * rad
lonB = lonB * rad
latA = latA * rad
latB = latB * rad
If latB - latA 0 Then Dst_PP 0: Exit Function
Dst_PP = (1 / rad) * 1.853 * 60 * ArcCos(Cos(latA) * Cos(latB) * Cos(lonB - lonA) + Sin(latA) * Sin(latB)) 'On multiplie par 1.853 pour convertir en Km car ce sont des miles
Dst_PP = FormatNumber(Dst_PP, 4)
End Function
Function ArcSin(X)
ArcSin = Atn(X / Sqr(-X * X + 1))
End Function
Function ArcCos(X)
ArcCos = Atn(-X / Sqr(-X * X + 1)) + 2 * Atn(1)
End Function
5 juin 2006 à 08:56
je voulais vous dire qu'il existe un bouquin nomé "compagnon GPS" dans lequel on trouve toutes les villes françaises avec leurs coordonées géographiques.
Merci pour ton travail, c'est pas mal.
31 mai 2006 à 08:53
C'est du niveau débutant-BALESE-MATHEUX-PRO ! lol
Qu'est ce que l'ellispoide WGS-84?
Aurais-tu un exemple avec deux points que tu connais? Comment obtenir les coordonnées initiales?
Merci d' avance pour toutes ces questions.