Wolfram Language

Computación geográfica

El camino más rápido a la costa

Encuentre el camino más corto posible para llegar a un punto de la frontera de EE.UU. desde cada una de las capitales de los estados contiguos de EE.UU.

Tome la lista de capitales.

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

Tome el polígono de los EE.UU.

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

Calcule el punto más cercano de dicho polígono para cada capital de cada estado.

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

Trace todas las trayectorias geodésicas.

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

Ejemplos relacionados

de en fr ja ko pt-br ru zh