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
