Ein Diagramm des Geländeprofils des Marianengrabens  

Ermitteln Sie die Position des Marianengrabens.

In[1]:=

X position = Entity["UnderseaFeature", "MarianaTrench"]["Position"]

Out[1]=

Plotten Sie einen Nord-Süd-Abschnitt des Grabens.

In[2]:=

X nsPositions = GeoDestination[position, GeoDisplacement[{Quantity[10*#, "Kilometers"], Quantity[180, "AngularDegrees"]}]] & /@ Range[-25, 25];

In[3]:=

X nsData = Transpose[ List[(#[[1, 1]] - position[[1, 1]]) & /@ nsPositions, First@GeoElevationData[GeoPosition[First /@ nsPositions]]]];

In[4]:=

X lpns = Rotate[ ListPlot[{-#[[1]], #[[2]]} & /@ nsData, Frame -> True, Axes -> False, AspectRatio -> 1/5, FrameTicks -> False, Joined -> True, PlotRangePadding -> {None, Automatic}], -90 Degree]

Out[4]=

Plotten Sie einen Ost-West-Abschnitt des Grabens.

In[5]:=

X wePositions = GeoDestination[position, GeoDisplacement[{Quantity[10*#, "Kilometers"], Quantity[90, "AngularDegrees"]}]] & /@ Range[-25, 25];

In[6]:=

X weData = Transpose[ List[(#[[1, 2]] - position[[1, 2]]) & /@ wePositions, First@GeoElevationData[GeoPosition[First /@ wePositions]]]];

In[7]:=

X lpwe = ListPlot[weData, Frame -> True, Axes -> False, AspectRatio -> 1/5, FrameTicks -> False, Joined -> True, PlotRangePadding -> {None, Automatic}]

Out[7]=

Erstellen Sie eine Reliefkarte des Grabens und markieren Sie die Abschnitte.

In[8]:=

X relief = GeoGraphics[{Thick, GrayLevel[0.5], Line[nsPositions], Line[wePositions], GeoMarker[position, Style["\[Times]", Red, 30]]}, GeoRangePadding -> None, GeoBackground -> GeoStyling["ReliefMap"]]

Out[8]=

Kombinieren Sie die Karte und die Ausschnitts-Plots.

In[9]:=

X Grid[{{lpwe}, {relief, lpns}}]

Out[9]=