移動時間と移動距離

車で移動する際の距離と時間を推定する．

2つの異なる都市の間を移動する．

In[1]:=

cities = {Entity["City", {"Lisbon", "Lisboa", "Portugal"}], Entity["City", {"Beijing", "Beijing", "China"}]};

両都市間の測地距離である．

In[2]:=

GeoDistance[cities]

Out[2]=

次は車で移動する場合の距離である．

In[3]:=

TravelDistance[cities]

Out[3]=

休憩を挟まずに運転し続けた場合の推定運転時間である．

In[4]:=

TravelTime[cities]

Out[4]=

このオブジェクトには，実際の移動経路が含まれている．

In[5]:=

td = TravelDirections[{Entity[ "City", {"Lisbon", "Lisboa", "Portugal"}], Entity["City", {"Beijing", "Beijing", "China"}]}]

Out[5]=

メルカトル図法の地図上に軌道（赤）を描き，測地軌道（青）と比較する．先ほどの例でも見たように，後者の方が短い．

In[6]:=

GeoGraphics[{Thick, Red, GeoPath[td], Blue, GeoPath[{Entity["City", {"Lisbon", "Lisboa", "Portugal"}], Entity["City", {"Beijing", "Beijing", "China"}]}]}, GeoProjection -> "Mercator", GeoGridLines -> Automatic]

Out[6]=

方位図法では，測地経路の方が移動経路よりも短いことがもっとはっきり分かる．

In[7]:=

GeoGraphics[{Thick, Red, GeoPath[td], Blue, GeoPath[{Entity["City", {"Lisbon", "Lisboa", "Portugal"}], Entity["City", {"Beijing", "Beijing", "China"}]}]}, GeoProjection -> "Mercator", GeoGridLines -> Automatic]; Show[%, GeoProjection -> "LambertAzimuthal", GeoZoomLevel -> 4]

Out[7]=