車で行くか歩くかを決める
ニューヨークのある美術館から近くにある博物館まで行くのに,車で行くか歩いて行くかを決める.
In[1]:=
![Click for copyable input](assets.ja/drive-or-walk/In_36.png)
museums = {Entity["Museum", "MuseumOfModernArt::nfkn8"],
Entity["Museum", "AmericanMuseumOfNaturalHistory::gf4kv"]};
これら2ヶ所の間を移動する経路を,車の場合と歩く場合の両方について計算する.
In[2]:=
![Click for copyable input](assets.ja/drive-or-walk/In_37.png)
drive = TravelDirections[museums, TravelMethod -> "Driving"]
Out[2]=
![](assets.ja/drive-or-walk/O_27.png)
In[3]:=
![Click for copyable input](assets.ja/drive-or-walk/In_38.png)
walk = TravelDirections[museums, TravelMethod -> "Walking"]
Out[3]=
![](assets.ja/drive-or-walk/O_28.png)
両方の経路を比較する.
In[4]:=
![Click for copyable input](assets.ja/drive-or-walk/In_39.png)
GeoGraphics[{GeoMarker[museums], Thick, Red, GeoPath[drive], Blue,
GeoPath[walk]}, GeoRange -> Quantity[1, "Mile"]]
Out[4]=
![](assets.ja/drive-or-walk/O_29.png)
セントラルパークの中を歩いて行った方が距離は短いが,時間は長くかかる.
In[5]:=
![Click for copyable input](assets.ja/drive-or-walk/In_40.png)
{walk["TravelDistance"], walk["TravelTime"]}
Out[5]=
![](assets.ja/drive-or-walk/O_30.png)
In[6]:=
![Click for copyable input](assets.ja/drive-or-walk/In_41.png)
{drive["TravelDistance"], drive["TravelTime"]}
Out[6]=
![](assets.ja/drive-or-walk/O_31.png)