Wolfram Language™

Ein detailliertes Modell der Ozeane untersuchen

Untersuchen Sie, wie der Salzgehalt von Meerwasser an unterschiedlichen Tiefen von dessen Mittelwert von 35,2 g/kg abweicht.

Berechnen Sie ein Array aus Werten abnormaler Salinität entlang des 180°E-Meridians für Tiefen von 0 bis 6000 m, unter der Annahme einer konstanten Temperatur von 15°C.

In[1]:=

anomaly = Table[{lat, Quantity[-d, "Meters"], StandardOceanData[<|"Position" -> GeoPosition[{lat, 180}], "Pressure" -> Quantity[d, "Decibars"], "Temperature" -> Quantity[15, "DegreesCelsius"]|>, "AbsoluteSalinityAnomaly"]}, {lat, -85, 65, 5}, {d, 0, 6000, 50}];

Die größten Abweichungen ergeben sich in höheren Breiten.

In[2]:=

anomalyPlot = ListDensityPlot[Flatten[anomaly, 1], ColorFunction -> "TemperatureMap", FrameLabel -> {"latitude", "elevation"}, PlotLegends -> Automatic, ImageSize -> Medium]

Out[2]=

Überlagern Sie das Diagramm mit dem Höhenprofil des Meeresbodens entlang desselben Meridians.

In[3]:=

depths = GeoElevationData[ GeoPosition[Table[{lat, 180}, {lat, -85, 65, 1}]], UnitSystem -> "Metric"]; depthsPlot = ListPlot[Transpose[{Range[-85, 65, 1], depths}], Joined -> True, Filling -> Bottom, FillingStyle -> Gray, PlotStyle -> None, Frame -> True, Axes -> False]; Show[anomalyPlot, depthsPlot]

Out[3]=