Der schnellste Weg an die Küste

Finden Sie den kürzesten möglichen Weg von jeder Hauptstadt der zusammenhängenden Vereinigten Staaten zu einem bestimmten Punkt der US-Grenze.

Grundlage ist eine Liste der Hauptstädte.

In[1]:=

capitals = EntityValue[ EntityClass["AdministrativeDivision", "ContinentalUSStates"], "CapitalCity"]

Out[1]=

Erzeugen Sie das Vieleck der Vereinigten Staaten.

In[2]:=

us = EntityValue[Entity["Country", "UnitedStates"], "Polygon"]

Out[2]=

Berechnen Sie den nächstgelegenen Punkt dieses Vielecks für jede einzelne Hauptstadt.

In[3]:=

borderpoints = Flatten[Nearest[First[us], GeoPosition[capitals]]]

Out[3]=

Zeichnen Sie alle geodätischen Pfade ein.

In[4]:=

GeoGraphics[{us, Point[capitals], Red, Arrowheads[0.015], Arrow /@ GeoPath /@ Thread[{capitals, borderpoints}]}]

Out[4]=