pcsoft.fr.windevCopyright 2026, PC SOFT23 May 2019 16:02:09 Z11 Aug 2009 11:44:26 ZBonjour, Je tente de calculer la distance entre deux points GPS. J'ai trouvé une formule ainsi qu'un code javascript qui fonctionne parafaitement Formule et code JS : http://209.85.227.132/translate_c?hl=fr&langpair=en|fr&u=http://www.movable-type.co.uk/scripts/latlong-vincenty.html&prev=/translate_s%3Fhl%3Dfr%26q%3Dcalcul%2Bdistance%2Bpoint%2Bgps%26tq%3Dgps%2Bdistance%2Bcalculation%2Bpoint%26sl%3Dfr%26tl%3Den&rurl=translate.google.fr&usg=ALkJrhiSbp3T7fsJc1-pnzRp4hTB0LQEDA J'ai converti le code en WLangage, mais le résultat n'est pas bon. [code] PROCEDURE CalculDistDeuxPointsVincenty(lat1,lat2,long1,long2) xa,xb,xf,xl sont des réels // valeur pour WGS-84 ellipsiod xa = 6378137 xb = 6356752.3142 xf = 1/298.257223563 xl = (long2-long1)*ValPI/180 // écart en longitude // U est réduite de latitude xU1, xU2 sont des réels xU1 = ArcTang((1-xf)*Tang(lat1)) xU2 = ArcTang((1-xf)*Tang(lat2)) xLambda est un réels = xl //première approximation xLambdap est un réels nIterLimit est un entier = 100 xSinSigma,xCosSigma est un réels xsigma,xsinAlpha,xcosSqAlpha,xcos2SigmaM est un réels xc est un réels //itération jusqu'au changement de ? est négligeable (par exemple 10 -12 ˜ 0.06mm) BOUCLE xSinSigma = Racine((Cos(xU2)*Sin(xLambda))^2+(Cos(xU1)*Sin(xU2)-Sin(xU1)*Cos(xU2)*Cos(xLambda))^2) SI xSinSigma = 0 ALORS RENVOYER 0 //co-incidences des points xCosSigma = Sin(xU1) * Sin(xU2) + Cos(xU1) * Cos(xU2) * Cos(xLambda) xsigma = Atan2(xSinSigma,xCosSigma)*ValPI/180 xsinAlpha = Cos(xU1) * Cos(xU2) * Sin(xLambda) / xSinSigma; xcosSqAlpha = 1 - xsinAlpha * xsinAlpha; xcos2SigmaM = xCosSigma - 2 * Sin(xU1) * Sin(xU2)/xcosSqAlpha; SI PAS xcos2SigmaM ALORS xcos2SigmaM = 0 // ligne équatoriale: cosSqAlpha = 0 (§ 6) xc = xf/16 * xcosSqAlpha * (4 + xf * (4-3 * xcosSqAlpha)) xLambdap = xLambda xLambda = xl + (1-xc) * xf * xsinAlpha* (xsigma + xc * xSinSigma * (xcos2SigmaM + xc * xCosSigma * (-1 +2 * xcos2SigmaM^2))) nIterLimit-- A FAIRE TANTQUE (Abs(xLambda-xLambdap) > 1e-12 ET nIterLimit>0) SI nIterLimit=0 ALORS RENVOYER 0 //si nIterLimit = 0 renvoyer 0 xUCarré est un réels xUCarré = xcosSqAlpha*(xa^2-xb^2)/xb^2 xAA,xBB,xDeltasigma sont des réels s est un réels xAA = 1 + xUCarré/16384 * (4096 + xUCarré * (-768 + xUCarré * (320-175 *xUCarré))) xBB = xUCarré/1024 * (256 + xUCarré * (-128 + xUCarré * (74-47* xUCarré))) xDeltasigma = xBB * xSinSigma * (xcos2SigmaM + xBB / 4 * (xCosSigma * (-1 +2 * xcos2SigmaM * xcos2SigmaM) -xBB / 6 * xcos2SigmaM * (-3 +4 * xSinSigma * xSinSigma) * (-3 +4 * xcos2SigmaM * xcos2SigmaM))); s = xBB*xAA*(xsigma-xDeltasigma) s = Arrondi(s,3) RENVOYER s [/code] [code] PROCEDURE Atan2(y,x) xRes est un numérique SI x= 0 ALORS xRes = sgn(y) * 1.5707963267949 SINON IF x > 0 THEN xRes = ArcTang(y/x) SINON xRes = ArcTang(y/x)+ValPI+sgn(y) END FIN RENVOYER xRes [/code] [code] PROCEDURE sgn(nval) xRes est un numérique SI nval = 0 ALORS xRes = 0 SINON xRes = nval/Abs(nval) FIN RENVOYER xRes [/code] J'ai testé avec le code suivant et je devrais avoir 795.647m dans la trace [code] trace(CalculDistDeuxPointsVincenty(28.448696,28.445166,43.097073,43.104146))) [/code] Si quelqu'un à une idée. Merci pour votre aide http://progwdm.blogspot.com30WEBDEVfr_FRhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps/read.awpmoderateur@pcsoft.fr (El moderador)webmaster@pcsoft.fr (El webmaster)Gilles GUICHARDpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-230351/read.awp23 May 2019 16:02:09 ZMerci Francis. Bonne journéehttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-230351/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-230351/read.awp[WD14] Calcul distance entre deux points GPSphilippesalvapcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-229432/read.awp13 Apr 2019 14:49:49 ZAprès quelques heures de recherche, merci encore à tous car j'ai pu intégrer la procédure CalculDistDeuxPointsVincenty(xLat1,xLo…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-229432/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-229432/read.awp[WD14] Calcul distance entre deux points GPSphigpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-131372/read.awp18 Nov 2010 10:28:46 ZLe 06/10/2009 15:31, fbe66 a écrit : > Francis, > > Merci bcp pour ta réponse. > > Je viens de la tester et effectivement j…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-131372/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-131372/read.awp[WD14] Calcul distance entre deux points GPSbecker.franckpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-117033/read.awp6 Oct 2009 16:31:00 ZFrancis, Merci bcp pour ta réponse. Je viens de la tester et effectivement je trouve 197 m. (au lieu de 250). je vais fair…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-117033/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-117033/read.awp[WD14] Calcul distance entre deux points GPSfrancis.morelpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-117029/read.awp6 Oct 2009 14:10:02 ZBonjour, Ton problème principal vient du fait que Windev utilise les degrés et non les radians pour toutes les fonctions trig…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-117029/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-117029/read.awp[WD14] Calcul distance entre deux points GPSbecker.franckpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-117002/read.awp5 Oct 2009 23:53:03 ZBOnjour à tous J'ai essayé de traduire le code qui est en SQL dans ce topic, ce qui donnerait : [code] distance3(paramLat…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-117002/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-117002/read.awp[WD14] Calcul distance entre deux points GPSbnepcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-115121/read.awp14 Aug 2009 17:25:49 ZVoici la fonction sous SQL Server... Quelques conversions s'imposent mais ce code a l'air plus simple que le tient. ALTER …https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-115121/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-115121/read.awp[WD14] Calcul distance entre deux points GPSphigpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-115042/read.awp12 Aug 2009 16:14:16 Zprogwdm a écrit : > Bonjour, > > la problématique n'est pas là puisque le code JS fonctionne. > Mon problème est que la tr…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-115042/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-115042/read.awp[WD14] Calcul distance entre deux points GPSprogwdmpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-115040/read.awp12 Aug 2009 16:00:59 ZBonjour, Merci beaucoup pour les corrections apportées. En effet il y avait quelques incohérences. Maintenant ça marche. …https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-115040/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-115040/read.awp[WD14] Calcul distance entre deux points GPSfrancis.morelpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-115034/read.awp12 Aug 2009 15:17:44 ZBonjour, Il y a effectievement quelques problèmes dans ton code. Comme le problème m'intéressait je me suis aussi penché sur…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-115034/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-115034/read.awp[WD14] Calcul distance entre deux points GPSprogwdmpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-115023/read.awp12 Aug 2009 12:26:35 ZBonjour, la problématique n'est pas là puisque le code JS fonctionne. Mon problème est que la transformation du code JS en …https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-115023/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-115023/read.awp[WD14] Calcul distance entre deux points GPSGoofpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-115021/read.awp12 Aug 2009 11:24:37 Zprogwdm a écrit : > bonjour, > > merci, mais ca change rien. Une autre idée ? > > Bon dev > http://progwdm.blogspot.com >…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-115021/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-115021/read.awp[WD14] Calcul distance entre deux points GPSprogwdmpcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-115011/read.awp11 Aug 2009 22:01:33 Zbonjour, merci, mais ca change rien. Une autre idée ? Bon dev http://progwdm.blogspot.comhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-115011/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-115011/read.awp[WD14] Calcul distance entre deux points GPSphilippe.pasqualipcsoft.fr.windevhttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-114993/read.awp11 Aug 2009 12:46:21 ZBONJOUR une petite idée ? à la place de réels utilise plutôt des monétaires il y a plus de chiffres significatifs et c'est pl…https://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-114993/read.awphttps://forum.pcsoft.fr/es-ES/pcsoft.fr.windev/114990-wd14-calcul-distance-entre-deux-points-gps-114993/read.awp[WD14] Calcul distance entre deux points GPS