アメリカの隣接する州の州都すべてを訪れる
アメリカの隣接する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]=
