Die Erdkrümmung ermitteln 

Zeigen Sie, wie sich die Erdkrümmung auf alle Wege auf der Erdoberfläche auswirkt.

Bestimmen Sie einen Weg ausgehend vom Eiffel Turm, der über eine Strecke von 100 km enlang von geodätischen Linien abwechselnd in jede der vier Himmelsrichtungen verläuft.

In[1]:=

X start = Entity["Building", "TourEiffel"][ EntityProperty["Building", "Position"]]; d = Quantity[100, "Kilometers"]; path = {GeoDisplacement[{d, "North"}, "Geodesic"], GeoDisplacement[{d, "East"}, "Geodesic"], GeoDisplacement[{d, "South"}, "Geodesic"], GeoDisplacement[{d, "West"}, "Geodesic"]};

Stellen Sie die vier Wegsegmente dar. Vergrößern Sie die Karte, um zu überprüfen, dass sich die Wege aufgrund der Erdkrümmung nicht schließen.

In[2]:=

X GraphicsRow[ Apply[GeoGraphics[{Red, PointSize[Large], Point[start], Darker[Green], Thickness[Large], GeoPath[{start, path}]}, ##1] &, {{}, {GeoCenter -> start, GeoRange -> Quantity[3, "Kilometers"]}}, {1}]]

Out[2]=

Ermitteln Sie die Entfernung zwischen dem Anfangspunkt und den jeweiligen Endpunkten.

In[3]:=

X GeoDistance[start, Last[GeoDestination[start, path]]]

Out[3]=

Folgen Sie nun Loxodromen (Kurven konstanten Kurses) anstatt von geodätischen Linien.

In[4]:=

X d = Quantity[100, "Kilometers"]; path = {GeoDisplacement[{d, "North"}, "Rhumb"], GeoDisplacement[{d, "East"}, "Rhumb"], GeoDisplacement[{d, "South"}, "Rhumb"], GeoDisplacement[{d, "West"}, "Rhumb"]};

Die geographische Breite des Endpunkts fällt mit dem Ausgangspunkt zusammen, jedoch nicht die Länge.

In[5]:=

X GraphicsRow[ Apply[GeoGraphics[{Red, PointSize[Large], Point[start], Darker[Green], Thickness[Large], GeoPath[{start, path}]}, ##1] &, {{}, {GeoCenter -> start, GeoRange -> Quantity[3, "Kilometers"]}}, {1}]]

Out[5]=

Ermitteln Sie die Entfernung zwischen Ausgangspunkt und den jeweiligen Endpunkten.

In[6]:=

X GeoDistance[start, Last[GeoDestination[start, path]]]

Out[6]=