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]:=
capitals =
EntityValue[
EntityClass["AdministrativeDivision", "ContinentalUSStates"],
"CapitalCity"]
Out[1]=
Tome el polígono de los EE.UU.
In[2]:=
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]:=
borderpoints = Flatten[Nearest[First[us], GeoPosition[capitals]]]
Out[3]=
Trace todas las trayectorias geodésicas.
In[4]:=
GeoGraphics[{us, Point[capitals], Red, Arrowheads[0.015],
Arrow /@ GeoPath /@ Thread[{capitals, borderpoints}]}]
Out[4]=