Изучить детальную модель океанов Земли
Определить, как солёность морской воды принимает разные значения и отклоняется от стандартного среднего значения 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 целиком
Out[3]=
