미국의 모든 인접 수도 방문하기
미국 본토의 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]:=
d
Out[8]=