探索地球海洋的精细模型
发现在不同深度时海水盐度与标准平均值 35.2 克/千克的偏离.
计算沿 180°E 子午线的盐度异常值数组,深度在 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 语言输入
Out[3]=
