Wolfram Language

Computação geográfica

Viaje por todas as capitais dos Estados vizinhos Americanos

Obtenha a lista das capitais dos 48 Estados vizinhos americanos.

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

Faça o download das coordenadas GeoPosition.

In[2]:=
Click for copyable input
GeoPosition[capitals]
Out[2]=

Calcule a ordem em que as cidades devem ser visitadas para minimizar a distância geodésica total.

In[3]:=
Click for copyable input
GeoPosition[capitals]; {d, perm} = FindShortestTour[%]
Out[3]=

Represente o trajeto em um mapa.

In[4]:=
Click for copyable input
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]:=
Click for copyable input
td = TravelDirections[capitals[[perm]]];

Represente o trajeto correspondente em um mapa.

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

A distância total a ser percorrida com carro.

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

Compare com a distância geodésica.

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

Exemplos Relacionados

de en es fr ja ko ru zh