Wolfram言語

地理情報の計算

車で行くか歩くかを決める

ニューヨークのある美術館から近くにある博物館まで行くのに,車で行くか歩いて行くかを決める.

In[1]:=
Click for copyable input
museums = {Entity["Museum", "MuseumOfModernArt::nfkn8"], Entity["Museum", "AmericanMuseumOfNaturalHistory::gf4kv"]};

これら2ヶ所の間を移動する経路を,車の場合と歩く場合の両方について計算する.

In[2]:=
Click for copyable input
drive = TravelDirections[museums, TravelMethod -> "Driving"]
Out[2]=
In[3]:=
Click for copyable input
walk = TravelDirections[museums, TravelMethod -> "Walking"]
Out[3]=

両方の経路を比較する.

In[4]:=
Click for copyable input
GeoGraphics[{GeoMarker[museums], Thick, Red, GeoPath[drive], Blue, GeoPath[walk]}, GeoRange -> Quantity[1, "Mile"]]
Out[4]=

セントラルパークの中を歩いて行った方が距離は短いが,時間は長くかかる.

In[5]:=
Click for copyable input
{walk["TravelDistance"], walk["TravelTime"]}
Out[5]=
In[6]:=
Click for copyable input
{drive["TravelDistance"], drive["TravelTime"]}
Out[6]=

関連する例

de en es fr ko pt-br ru zh