Tempo e distância de uma viagem
Calcule a distância e a duração de uma viagem.
Viaje entre duas cidades distantes.
In[1]:=

cities = {Entity["City", {"Lisbon", "Lisboa", "Portugal"}],
Entity["City", {"Beijing", "Beijing", "China"}]};
Esta é a distância geodésica entre elas.
In[2]:=

GeoDistance[cities]
Out[2]=

Esta é a distância de viagem calculada.
In[3]:=

TravelDistance[cities]
Out[3]=

E este é o tempo de duração estimado, dirigindo continuamente, sem paradas.
In[4]:=

TravelTime[cities]
Out[4]=

Este objeto contém a lista de instruções da viagem.
In[5]:=

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

Represente a trajetória (em vermelho) em um mapa Mercator, e compare com a trajetória geodésica (em azul), que é mais curto, como vimos antes.
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]=

Uma projeção azimutal mostra mais claramente que a geodésica é mais curta que o trajeto de viagem.
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]=
