Fahrtzeit & Distanz
Schätzen Sie die Distanz und Dauer eines Roadtrips.
Wählen Sie zwei weit entfernte Städte als Start- und Endpunkt.
In[1]:=

cities = {Entity["City", {"Lisbon", "Lisboa", "Portugal"}],
Entity["City", {"Beijing", "Beijing", "China"}]};
Das ist die geodätische Distanz zwischen den beiden Orten.
In[2]:=

GeoDistance[cities]
Out[2]=

Das ist die Länge des berechneten Roadtrips.
In[3]:=

TravelDistance[cities]
Out[3]=

Und das ist die geschätzte Fahrtdauer bei durchgehender Fahrt ohne Pause.
In[4]:=

TravelTime[cities]
Out[4]=

Dieses Objekt enthält die tatsächlichen Angaben zur Fahrtroute.
In[5]:=

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

Stellen Sie die Strecke (in rot) auf einer Mercator-Karte dar und vergleichen Sie diese mit der geodätischen Strecke (in blau), die, wie wir zuvor festgestellt haben, kürzer ist.
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]=

Eine Azimutalprojektion zeigt deutlicher, dass der geodätische Pfad kürzer ist als die Fahrtroute.
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]=
