Tiempo y distancia de viaje

Estime la distancia y duración de un viaje por carretera.

Viaje entre dos ciudades distantes.

In[1]:=

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

Esta es una distancia geodésica entre ellas.

In[2]:=

GeoDistance[cities]

Out[2]=

Esta es la distancia del viaje por carretera calculado.

In[3]:=

TravelDistance[cities]

Out[3]=

Y este es el tiempo de conducción estimado, asumiendo una conducción continua, sin paradas.

In[4]:=

TravelTime[cities]

Out[4]=

Este objeto contiene el conjunto real de instrucciones de viaje.

In[5]:=

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

Out[5]=

Represente la trayectoria (en rojo) en un mapa de Mercator, y compare con la trayectoria geodésica (en azul), la cual es más corta, como vimos anteriormente.

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]=

Una proyección acimutal muestra más claramente que la geodésica es más corta que la ruta de viaje.

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]=