Язык Wolfram Language

Георасчёты

Путешествие по столицам всех граничащих штатов США

Запросите список столиц всех 48 граничащих штатов США.

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

Загрузите их координаты GeoPosition.

In[2]:=
Click for copyable input
GeoPosition[capitals]
Out[2]=

Рассчитайте, в каком порядке следует посетить данные города, чтобы минимизировать общее геодезическое расстояние.

In[3]:=
Click for copyable input
GeoPosition[capitals]; {d, perm} = FindShortestTour[%]
Out[3]=

Представьте данный маршрут на карте.

In[4]:=
Click for copyable input
GeoGraphics[{GeoPath[capitals[[perm]]], Red, PointSize[Medium], Point[capitals]}]
Out[4]=

Теперь рассчитайте схему проезда через эти же города в таком же порядке.

In[5]:=
Click for copyable input
td = TravelDirections[capitals[[perm]]];

Представьте соответствующий маршрут на карте.

In[6]:=
Click for copyable input
GeoGraphics[{td["TravelPath"], Red, PointSize[Medium], Point[capitals]}]
Out[6]=

Данный маршрут представляет общую дистанцию поездки.

In[7]:=
Click for copyable input
td["TravelDistance"]
Out[7]=

Сравните с геодезической дистанцией.

In[8]:=
Click for copyable input
d
Out[8]=

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

de en es fr ja ko pt-br zh