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