Section courante

A propos

Section administrative du site

Une des fonctions les plus communes de la géographie et des systèmes modernes, c'est le calcul de la distance géographique entre deux coordonnées de Longitude et de Latitude. Il n'y a aucune nécessité de grande connaissance en trigonométrie pour arriver à se genre de calcul dans le format qu'on le souhaite, Km, Miles ou Miles Nautiques. Ainsi, si vous savez les coordonnées suivantes:

Ville Latitude Longitude
Montréal 45 31N 73 34O
Paris 48 50N 2 20E

A l'aide du code source Pascal suivant pour le Virtual Pascal, vous trouvez la réponse que vous souhaitez:

  1. Program CoordToDelta; 
  2.  
  3. Uses Crt,Math; 
  4.  
  5. Function CoordToDeltaKm( 
  6.  Q1Latitude,Q1LatiDeg:Real;Q1LatiDirection:Char; 
  7.  Q1Longitude,Q1LongDeg:Real;Q1LongDirection:Char; 
  8.  Q2Latitude,Q2LatiDeg:Real;Q2LatiDirection:Char; 
  9.  Q2Longitude,Q2LongDeg:Real;Q2LongDirection:Char 
  10. ):Real; 
  11. Var 
  12.  a1,b1,a2,b2,RawDelta:Real; 
  13. Begin 
  14.  a1:=(Q1Latitude+(Q1LatiDeg/60))*PI/180; 
  15.  If Q1LatiDirection='N'Then a1:=-a1; 
  16.  b1:=(Q1Longitude+(Q1LongDeg/60))*PI/180; 
  17.  If Q1LongDirection='O'Then b1:=-b1; 
  18.  a2:=(Q2Latitude+(Q2LatiDeg/60))*PI/180; 
  19.  If Q2LatiDirection='N'Then a2:=-a2; 
  20.  b2:=(Q2Longitude+(Q2LongDeg/60))*PI/180; 
  21.  If Q2LongDirection='O'Then b2:=-b2; 
  22.  RawDelta:=ArcCos(Cos(a1)*Cos(b1)*Cos(a2)*Cos(b2) + Cos(a1)*Sin(b1)*Cos(a2)*Sin(b2) + Sin(a1)*Sin(a2)); 
  23.  CoordToDeltaKm:=RawDelta*6378.0; 
  24. End; 
  25.  
  26. Function CoordToDeltaStatuteMiles( 
  27.  Q1Latitude,Q1LatiDeg:Real;Q1LatiDirection:Char; 
  28.  Q1Longitude,Q1LongDeg:Real;Q1LongDirection:Char; 
  29.  Q2Latitude,Q2LatiDeg:Real;Q2LatiDirection:Char; 
  30.  Q2Longitude,Q2LongDeg:Real;Q2LongDirection:Char 
  31. ):Real; 
  32. Var 
  33.  a1,b1,a2,b2,RawDelta:Real; 
  34. Begin 
  35.  a1:=(Q1Latitude+(Q1LatiDeg/60))*PI/180; 
  36.  If Q1LatiDirection='N'Then a1:=-a1; 
  37.  b1:=(Q1Longitude+(Q1LongDeg/60))*PI/180; 
  38.  If Q1LongDirection='O'Then b1:=-b1; 
  39.  a2:=(Q2Latitude+(Q2LatiDeg/60))*PI/180; 
  40.  If Q2LatiDirection='N'Then a2:=-a2; 
  41.  b2:=(Q2Longitude+(Q2LongDeg/60))*PI/180; 
  42.  If Q2LongDirection='O'Then b2:=-b2; 
  43.  RawDelta:=ArcCos(Cos(a1)*Cos(b1)*Cos(a2)*Cos(b2) + Cos(a1)*Sin(b1)*Cos(a2)*Sin(b2) + Sin(a1)*Sin(a2)); 
  44.  CoordToDeltaStatuteMiles:=RawDelta*3963.1; 
  45. End; 
  46.  
  47.  
  48. Function CoordToDeltaNauticalMiles( 
  49.  Q1Latitude,Q1LatiDeg:Real;Q1LatiDirection:Char; 
  50.  Q1Longitude,Q1LongDeg:Real;Q1LongDirection:Char; 
  51.  Q2Latitude,Q2LatiDeg:Real;Q2LatiDirection:Char; 
  52.  Q2Longitude,Q2LongDeg:Real;Q2LongDirection:Char 
  53. ):Real; 
  54. Var 
  55.  a1,b1,a2,b2,RawDelta:Real; 
  56. Begin 
  57.  a1:=(Q1Latitude+(Q1LatiDeg/60))*PI/180; 
  58.  If Q1LatiDirection='N'Then a1:=-a1; 
  59.  b1:=(Q1Longitude+(Q1LongDeg/60))*PI/180; 
  60.  If Q1LongDirection='O'Then b1:=-b1; 
  61.  a2:=(Q2Latitude+(Q2LatiDeg/60))*PI/180; 
  62.  If Q2LatiDirection='N'Then a2:=-a2; 
  63.  b2:=(Q2Longitude+(Q2LongDeg/60))*PI/180; 
  64.  If Q2LongDirection='O'Then b2:=-b2; 
  65.  RawDelta:=ArcCos(Cos(a1)*Cos(b1)*Cos(a2)*Cos(b2) + Cos(a1)*Sin(b1)*Cos(a2)*Sin(b2) + Sin(a1)*Sin(a2)); 
  66.  CoordToDeltaNauticalMiles:=RawDelta * 3443.9; 
  67. End; 
  68.  
  69.  
  70. BEGIN 
  71.  WriteLn('Distance entre Montréal et Paris en Km: ', 
  72.          CoordToDeltaKm(45, 31,'N',73, 34,'O',48, 50,'N', 2,  20,'E')); 
  73.  WriteLn('Distance entre Montréal et Paris en Miles: ', 
  74.          CoordToDeltaStatuteMiles(45, 31,'N', 73, 34,'O',    48, 50,'N', 2,  20,'E')); 
  75.  WriteLn('Distance entre Montréal et Paris en Miles Nautique: ', 
  76.          CoordToDeltaNauticalMiles(45, 31,'N', 73, 34,'O',    48, 50,'N', 2,  20,'E')); 
  77.  ReadKey; 
  78. END.

on obtiendra le résultat suivant:

Distance entre Montréal et Paris en Km: 5510.16761889
Distance entre Montréal et Paris en Miles: 3423.85470217
Distance entre Montréal et Paris en Miles Nautique: 2975.30044884

Dernière mise à jour : Vendredi, le 29 juillet 2016