移動時間と移動距離
車で移動する際の距離と時間を推定する.
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]=
