Изучить детальную модель океанов Земли : Новое в системе Wolfram Language 11

Изучить детальную модель океанов Земли

Определить, как солёность морской воды принимает разные значения и отклоняется от стандартного среднего значения 35,2 г/кг на различной глубине.

Рассчитать массив значений отклонений степени солёности вдоль меридиана 180° в.д. на глубине от 0 до 6000 метров, допустив при этом, что постоянная температура равна 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}];

Самые значительные отклонения были определены на большей широте.

In[2]:=

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

Out[2]=

Наложить данные о поднятии уровня морского дна вдоль того же меридиана.

код на языке Wolfram Language целиком

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