Viaje por todas las capitales de estados contiguos de los EE.UU.

Obtenga la lista de las capitales de los 48 estados contiguos de los EE.UU.

In[1]:=

capitals = EntityValue[ EntityClass["AdministrativeDivision", "ContinentalUSStates"], "CapitalCity"]

Out[1]=

Descargue sus coordinadas de GeoPosition.

In[2]:=

GeoPosition[capitals]

Out[2]=

Calcule el orden en el que las ciudades deberían ser visitadas para minimizar la distancia geodésica total.

In[3]:=

GeoPosition[capitals]; {d, perm} = FindShortestTour[%]

Out[3]=

Represente la trayectoria en un mapa.

In[4]:=

GeoGraphics[{GeoPath[capitals[[perm]]], Red, PointSize[Medium], Point[capitals]}]

Out[4]=

Ahora calcule direcciones de viaje para conducir a través de las mismas ciudades en el mismo orden.

In[5]:=

td = TravelDirections[capitals[[perm]]];

Represente la siguiente trayectoria en un mapa.

In[6]:=

GeoGraphics[{td["TravelPath"], Red, PointSize[Medium], Point[capitals]}]

Out[6]=

La distancia total de conducción es.

In[7]:=

td["TravelDistance"]

Out[7]=

Compare con la distancia geodésica.

In[8]:=

d