Продолжительность и протяжённость маршрута
Приблизительно оцените протяжённость и продолжительность поездки.
Рассмотрите путешествие между двумя отдалёнными городами.
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]=
