Wolfram Language

Computação geográfica

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]:=
Click for copyable input
cities = {Entity["City", {"Lisbon", "Lisboa", "Portugal"}], Entity["City", {"Beijing", "Beijing", "China"}]};

Esta é a distância geodésica entre elas.

In[2]:=
Click for copyable input
GeoDistance[cities]
Out[2]=

Esta é a distância de viagem calculada.

In[3]:=
Click for copyable input
TravelDistance[cities]
Out[3]=

E este é o tempo de duração estimado, dirigindo continuamente, sem paradas.

In[4]:=
Click for copyable input
TravelTime[cities]
Out[4]=

Este objeto contém a lista de instruções da viagem.

In[5]:=
Click for copyable input
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]:=
Click for copyable input
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]:=
Click for copyable input
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]=

Exemplos Relacionados

de en es fr ja ko ru zh