Durée et distance d'un itinéraire
Estimez la distance et la durée d'un itinéraire sur la route.
Voyagez entre deux villes éloignées.
In[1]:=
![Click for copyable input](assets.fr/travel-time-and-distance/In_42.png)
cities = {Entity["City", {"Lisbon", "Lisboa", "Portugal"}],
Entity["City", {"Beijing", "Beijing", "China"}]};
Voici la distance géodésique entre elles.
In[2]:=
![Click for copyable input](assets.fr/travel-time-and-distance/In_43.png)
GeoDistance[cities]
Out[2]=
![](assets.fr/travel-time-and-distance/O_32.png)
Voici la longueur calculée de l'itinéraire sur la route.
In[3]:=
![Click for copyable input](assets.fr/travel-time-and-distance/In_44.png)
TravelDistance[cities]
Out[3]=
![](assets.fr/travel-time-and-distance/O_33.png)
Et voici le temps de conduite estimée, en supposant que la conduite est continue et sans interruption.
In[4]:=
![Click for copyable input](assets.fr/travel-time-and-distance/In_45.png)
TravelTime[cities]
Out[4]=
![](assets.fr/travel-time-and-distance/O_34.png)
Cet objet contient l'ensemble réel des consignes de l'itinéraire.
In[5]:=
![Click for copyable input](assets.fr/travel-time-and-distance/In_46.png)
td = TravelDirections[{Entity[
"City", {"Lisbon", "Lisboa", "Portugal"}],
Entity["City", {"Beijing", "Beijing", "China"}]}]
Out[5]=
![](assets.fr/travel-time-and-distance/O_35.png)
Représentez la trajectoire (en rouge) sur une projection de Mercator, et comparez-la à la trajectoire géodésique (en bleu) qui est en fait plus courte, comme nous l'avons remarqué précédemment.
In[6]:=
![Click for copyable input](assets.fr/travel-time-and-distance/In_47.png)
GeoGraphics[{Thick, Red, GeoPath[td], Blue,
GeoPath[{Entity["City", {"Lisbon", "Lisboa", "Portugal"}],
Entity["City", {"Beijing", "Beijing", "China"}]}]},
GeoProjection -> "Mercator", GeoGridLines -> Automatic]
Out[6]=
![](assets.fr/travel-time-and-distance/O_36.png)
Une projection azimutale montre plus clairement que la ligne géodésique est plus courte que le trajet de l'itinéraire.
In[7]:=
![Click for copyable input](assets.fr/travel-time-and-distance/In_48.png)
GeoGraphics[{Thick, Red, GeoPath[td], Blue,
GeoPath[{Entity["City", {"Lisbon", "Lisboa", "Portugal"}],
Entity["City", {"Beijing", "Beijing", "China"}]}]},
GeoProjection -> "Mercator", GeoGridLines -> Automatic];
Show[%, GeoProjection -> "LambertAzimuthal", GeoZoomLevel -> 4]
Out[7]=
![](assets.fr/travel-time-and-distance/O_37.png)