Voyagez à travers toutes les capitales des États limitrophes des États-Unis
Obtenez la liste des 48 capitales des États américains limitrophes.
In[1]:=
capitals =
EntityValue[
EntityClass["AdministrativeDivision", "ContinentalUSStates"],
"CapitalCity"]Out[1]=
Téléchargez leurs coordonnées de GeoPosition.
In[2]:=
GeoPosition[capitals]Out[2]=
Calculez l'ordre dans lequel les villes doivent être visitées pour minimiser la distance géodésique totale.
In[3]:=
GeoPosition[capitals];
{d, perm} = FindShortestTour[%]Out[3]=
Représentez le chemin sur une carte.
In[4]:=
GeoGraphics[{GeoPath[capitals[[perm]]], Red, PointSize[Medium],
Point[capitals]}]Out[4]=
Calculez maintenant les itinéraires pour traverser les mêmes villes dans le même ordre.
In[5]:=
td = TravelDirections[capitals[[perm]]];Représentez le chemin correspondant sur une carte.
In[6]:=
GeoGraphics[{td["TravelPath"], Red, PointSize[Medium],
Point[capitals]}]Out[6]=
La distance totale à parcourir en voiture est indiquée.
In[7]:=
td["TravelDistance"]Out[7]=
Comparez-la avec la distance géodésique.
In[8]:=
dOut[8]=
