Путешествие по столицам всех граничащих штатов США
Запросите список столиц всех 48 граничащих штатов США.
In[1]:=
capitals =
EntityValue[
EntityClass["AdministrativeDivision", "ContinentalUSStates"],
"CapitalCity"]Out[1]=
Загрузите их координаты GeoPosition.
In[2]:=
GeoPosition[capitals]Out[2]=
Рассчитайте, в каком порядке следует посетить данные города, чтобы минимизировать общее геодезическое расстояние.
In[3]:=
GeoPosition[capitals];
{d, perm} = FindShortestTour[%]Out[3]=
Представьте данный маршрут на карте.
In[4]:=
GeoGraphics[{GeoPath[capitals[[perm]]], Red, PointSize[Medium],
Point[capitals]}]Out[4]=
Теперь рассчитайте схему проезда через эти же города в таком же порядке.
In[5]:=
td = TravelDirections[capitals[[perm]]];Представьте соответствующий маршрут на карте.
In[6]:=
GeoGraphics[{td["TravelPath"], Red, PointSize[Medium],
Point[capitals]}]Out[6]=
Данный маршрут представляет общую дистанцию поездки.
In[7]:=
td["TravelDistance"]Out[7]=
Сравните с геодезической дистанцией.
In[8]:=
dOut[8]=
