Viaje por todas as capitais dos Estados vizinhos Americanos
Obtenha a lista das capitais dos 48 Estados vizinhos americanos.
In[1]:=
capitals =
EntityValue[
EntityClass["AdministrativeDivision", "ContinentalUSStates"],
"CapitalCity"]Out[1]=
Faça o download das coordenadas GeoPosition.
In[2]:=
GeoPosition[capitals]Out[2]=
Calcule a ordem em que as cidades devem ser visitadas para minimizar a distância geodésica total.
In[3]:=
GeoPosition[capitals];
{d, perm} = FindShortestTour[%]Out[3]=
Represente o trajeto em um mapa.
In[4]:=
GeoGraphics[{GeoPath[capitals[[perm]]], Red, PointSize[Medium],
Point[capitals]}]Out[4]=
Agora calcule as direções de viagem de carro através das mesmas cidades na mesma ordem.
In[5]:=
td = TravelDirections[capitals[[perm]]];Represente o trajeto correspondente em um mapa.
In[6]:=
GeoGraphics[{td["TravelPath"], Red, PointSize[Medium],
Point[capitals]}]Out[6]=
A distância total a ser percorrida com carro.
In[7]:=
td["TravelDistance"]Out[7]=
Compare com a distância geodésica.
In[8]:=
dOut[8]=
