Discussion :

[nico_83220]

Bonjour,

Je cherche à créer un programme qui me permettrai de connaitre la distance en mètres entre 2 points, mais apparemment j'ai une erreur dans ma formule ..... que je n'arrive pas à trouver

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
lat1=input ("Valeur lat1 ","string")
lon1=input ("Valeur lon1 ","string")
lat2=input ("Valeur lat2 ","string")
lon2=input ("Valeur lon2 ","string")
distance=6371*1000*acos(sin(lat1)*sin(lat2)+cos(lat1)*cos(lat2)*cos(lon2-lon1))
disp (distance)

Si une personne à la solution j'en serai ravi.

Merci beaucoup

[nico_83220]

Bonjour,

J'ai modifé le programme, cela marche beaucoup mieux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
a=input ("Valeur lat1 ","string")
b=input ("Valeur lon1 ","string")
c=input ("Valeur lat2 ","string")
d=input ("Valeur lon2 ","string")
lat1=evstr(a); lon1=evstr(b);lat2=evstr(c);lon2=evstr(d);
distance=6371*1000*acos(sin(lat1)*sin(lat2)+cos(lat1)*cos(lat2)*cos(lon2-lon1))
disp (distance)

Prochaine étape calculer le bearing entre les 2 points

[nico_83220]

Voilà j'ai modifié mon programme. Le calcul est correct il ne tient pas compte de la différence d'altitude entre 2 points.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
a=input ("Valeur lat1 ","string")
lat1=evstr(a); lat1bis=(%pi*(lat1))/180; // transforme la valeur de degrés en radians
b=input ("Valeur lon1 ","string")
lon1=evstr(b); lon1bis=(%pi*(lon1))/180;
c=input ("Valeur lat2 ","string")
lat2=evstr(c); lat2bis=(%pi*(lat2))/180;
d=input ("Valeur lon2 ","string")
lon2=evstr(d); lon2bis=(%pi*(lon2))/180;
 
distance=6380*1000*acos(sin(lat1bis)*sin(lat2bis)+(cos(lat1bis)*cos(lat2bis)*cos(lon2bis-lon1bis))) // calcul de la distance
 
disp ("L''écart entre les 2 points est de " + string(round(distance))+ " mètres") // Affiche le résultat en chaîne de caractères

Merci beaucoup.

[Jerome Briot]

Tu n 'as pas besoin de evstr ici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

lat1 = input ("Valeur lat1 ")

[nico_83220]

OK merci

[Invité]

j'ai un peu oublié la programmation en scilab, niveau code, je ne saurais pas t'aider, mais en maths, oui.
La distance entre un point A(x1;y1;z1) et un point B(x2;y2;z3) se calcule de la manière suivante:
sqrt[ (x1-x2)² + (y1-y2)² + (z1-z2)² ]

[nico_83220]

Ok Merci