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

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

In[1]:=

museums = {Entity["Museum", "MuseumOfModernArt::nfkn8"], Entity["Museum", "AmericanMuseumOfNaturalHistory::gf4kv"]};

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

In[2]:=

drive = TravelDirections[museums, TravelMethod -> "Driving"]

Out[2]=

In[3]:=

walk = TravelDirections[museums, TravelMethod -> "Walking"]

Out[3]=

両方の経路を比較する．

In[4]:=

GeoGraphics[{GeoMarker[museums], Thick, Red, GeoPath[drive], Blue, GeoPath[walk]}, GeoRange -> Quantity[1, "Mile"]]

Out[4]=

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

In[5]:=

{walk["TravelDistance"], walk["TravelTime"]}

Out[5]=

In[6]:=

{drive["TravelDistance"], drive["TravelTime"]}

Out[6]=