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]:=
capitals =
EntityValue[
EntityClass["AdministrativeDivision", "ContinentalUSStates"],
"CapitalCity"]Out[1]=
Pegue o polígono dos Estados Unidos.
In[2]:=
us = EntityValue[Entity["Country", "UnitedStates"], "Polygon"]Out[2]=
Calcule o ponto mais próximo desse polígono para cada respectiva capital.
In[3]:=
borderpoints = Flatten[Nearest[First[us], GeoPosition[capitals]]]Out[3]=
Desenhe todas as trajetórias geodésicas.
In[4]:=
GeoGraphics[{us, Point[capitals], Red, Arrowheads[0.015],
Arrow /@ GeoPath /@ Thread[{capitals, borderpoints}]}]Out[4]=
