Wolfram Language

Computação geográfica

O trajeto mais rápido para o litoral

Descubra o caminho mais curto possível para chegar a um ponto da fronteira dos Estados Unidos a partir de cada capital dos Estados vizinhos americanos.

Pegue a lista de capitais.

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

Pegue o polígono dos Estados Unidos.

In[2]:=
Click for copyable input
us = EntityValue[Entity["Country", "UnitedStates"], "Polygon"]
Out[2]=

Calcule o ponto mais próximo desse polígono para cada respectiva capital.

In[3]:=
Click for copyable input
borderpoints = Flatten[Nearest[First[us], GeoPosition[capitals]]]
Out[3]=

Desenhe todas as trajetórias geodésicas.

In[4]:=
Click for copyable input
GeoGraphics[{us, Point[capitals], Red, Arrowheads[0.015], Arrow /@ GeoPath /@ Thread[{capitals, borderpoints}]}]
Out[4]=

Exemplos Relacionados

de en es fr ja ko ru zh