Section courante

A propos

Section administrative du site

Calculer la distance entre deux couples (deux points) est souvent utile pour trouver le meilleure chemin sur une carte. La formule pour trouver la distance entre deux points s'inspire de la formule de Pythagore (c2=√a2+b2) et de ses théories sur les triangles. Vous trouverez la réponse que vous souhaitez, à l'aide du code source REXX suivant :

  1. SAY "Calcul la distance entre deux points (0,0)-(10,10): " || Distance(0.0,0.0,10.0,10.0) || " cm2"
  2. SAY "Calcul la distance entre deux points (2,2)-(10,10): " || Distance(2.0,2.0,10.0,10.0) || " cm2"
  3. SAY "Calcul la distance entre deux points (1,1)-(8,8): " || Distance(1.0,1.0,8.0,8.0) || " cm2" 
  4. EXIT
  5.  
  6. Sqr :Procedure  
  7.    Arg X 
  8.    Return X*X 
  9.     
  10. Sqrt :Procedure  
  11.    Arg X 
  12.    IF X=0.0 THEN Return 0.0 
  13.     ELSE  
  14.    Do 
  15.       M=1.0 
  16.       XN=X 
  17.       IF XN<0.0 THEN XN=-XN 
  18.       DO WHILE XN>=2.0 
  19.          XN=0.25*XN 
  20.          M=2.0*M 
  21.       END 
  22.       DO WHILE XN<0.5  
  23.          XN=4.0*XN 
  24.          M=0.5*M 
  25.       END  
  26.       A=XN 
  27.       B=1.0-XN 
  28.       DO Forever 
  29.          A=A*(1.0+0.5*B) 
  30.          B=0.25*(3.0+B)*B*B 
  31.          IF B<1.0E-15 THEN Leave 
  32.       END 
  33.       RETURN A*M 
  34.    End 
  35.  
  36. Distance :Procedure
  37.    Arg X1,Y1,X2,Y2
  38.    Return Sqrt((Sqr(Y2-Y1))+(Sqr(X2-X1)))

on obtiendra le résultat suivant :

Calcul la distance entre deux points (0,0)-(10,10): 14.142135623731
Calcul la distance entre deux points (2,2)-(10,10): 11.3137084989848
Calcul la distance entre deux points (1,1)-(8,8): 9.89950

Dernière mise à jour : Lundi, le 10 novembre 2014