Язык Wolfram Language

Георасчёты

Самый быстрый маршрут до побережья

Найдите самый короткий возможный маршрут до точки на границе США от столицы каждого граничащего штата.

Получите список столиц.

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

Получите полигон США.

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

Рассчитайте ближайшую точку границы полигона для каждой соответствующей столицы штата.

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

Начертите все геодезические маршруты.

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

Родственные примеры

de en es fr ja ko pt-br zh