Wolfram Language

Calcul géographique

Voyagez à travers toutes les capitales des États limitrophes des États-Unis

Obtenez la liste des 48 capitales des États américains limitrophes.

In[1]:=
Click for copyable input
capitals = EntityValue[ EntityClass["AdministrativeDivision", "ContinentalUSStates"], "CapitalCity"]
Out[1]=

Téléchargez leurs coordonnées GeoPosition.

In[2]:=
Click for copyable input
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]:=
Click for copyable input
GeoPosition[capitals]; {d, perm} = FindShortestTour[%]
Out[3]=

Représentez le chemin sur une carte.

In[4]:=
Click for copyable input
GeoGraphics[{GeoPath[capitals[[perm]]], Red, PointSize[Medium], Point[capitals]}]
Out[4]=

Maintenant, calculez les directions de voyage pour conduire à travers les mêmes villes dans le même ordre.

In[5]:=
Click for copyable input
td = TravelDirections[capitals[[perm]]];

Représentez le chemin correspondant sur une carte.

In[6]:=
Click for copyable input
GeoGraphics[{td["TravelPath"], Red, PointSize[Medium], Point[capitals]}]
Out[6]=

La distance totale de conduite est.

In[7]:=
Click for copyable input
td["TravelDistance"]
Out[7]=

Comparez-la avec la distance géodésique

In[8]:=
Click for copyable input
d
Out[8]=

Exemples connexes

de en es ja ko pt-br ru zh