Wolfram言語

地理情報の計算

アメリカの隣接する州の州都すべてを訪れる

アメリカの隣接する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 ko pt-br ru zh