Путешествие по столицам всех граничащих штатов США
Запросите список столиц всех 48 граничащих штатов США.
In[1]:=
![Click for copyable input](assets.ru/travel-all-capitals-of-the-conterminous-us-states/In_49.png)
capitals =
EntityValue[
EntityClass["AdministrativeDivision", "ContinentalUSStates"],
"CapitalCity"]
Out[1]=
![](assets.ru/travel-all-capitals-of-the-conterminous-us-states/O_38.png)
Загрузите их координаты GeoPosition.
In[2]:=
![Click for copyable input](assets.ru/travel-all-capitals-of-the-conterminous-us-states/In_50.png)
GeoPosition[capitals]
Out[2]=
![](assets.ru/travel-all-capitals-of-the-conterminous-us-states/O_39.png)
Рассчитайте, в каком порядке следует посетить данные города, чтобы минимизировать общее геодезическое расстояние.
In[3]:=
![Click for copyable input](assets.ru/travel-all-capitals-of-the-conterminous-us-states/In_51.png)
GeoPosition[capitals];
{d, perm} = FindShortestTour[%]
Out[3]=
![](assets.ru/travel-all-capitals-of-the-conterminous-us-states/O_40.png)
Представьте данный маршрут на карте.
In[4]:=
![Click for copyable input](assets.ru/travel-all-capitals-of-the-conterminous-us-states/In_52.png)
GeoGraphics[{GeoPath[capitals[[perm]]], Red, PointSize[Medium],
Point[capitals]}]
Out[4]=
![](assets.ru/travel-all-capitals-of-the-conterminous-us-states/O_41.png)
Теперь рассчитайте схему проезда через эти же города в таком же порядке.
In[5]:=
![Click for copyable input](assets.ru/travel-all-capitals-of-the-conterminous-us-states/In_53.png)
td = TravelDirections[capitals[[perm]]];
Представьте соответствующий маршрут на карте.
In[6]:=
![Click for copyable input](assets.ru/travel-all-capitals-of-the-conterminous-us-states/In_54.png)
GeoGraphics[{td["TravelPath"], Red, PointSize[Medium],
Point[capitals]}]
Out[6]=
![](assets.ru/travel-all-capitals-of-the-conterminous-us-states/O_42.png)
Данный маршрут представляет общую дистанцию поездки.
In[7]:=
![Click for copyable input](assets.ru/travel-all-capitals-of-the-conterminous-us-states/In_55.png)
td["TravelDistance"]
Out[7]=
![](assets.ru/travel-all-capitals-of-the-conterminous-us-states/O_43.png)
Сравните с геодезической дистанцией.
In[8]:=
![Click for copyable input](assets.ru/travel-all-capitals-of-the-conterminous-us-states/In_56.png)
d
Out[8]=
![](assets.ru/travel-all-capitals-of-the-conterminous-us-states/O_44.png)