Изучите отклонения гравитационного поля Земли : Новое в системе Wolfram Language 11

Изучите отклонения гравитационного поля Земли

Гравитационное поле на поверхности Земли меняется по причине неоднородности плотности материи и несферической формы Земли.

Далее представлено стандартное среднее значение поля на поверхности Земли.

In[1]:=

g = UnitConvert[Quantity[1., "StandardAccelerationOfGravity"], 
  "SIBase"]

Out[1]=

Рассчитать разницу между массивом значений для гравитационного поля над США и стандартным средним значением гравитационного поля.

In[2]:=

data = GeogravityModelData[Entity["Country", "UnitedStates"], 
   "DownComponent"] - g

Out[2]=

Отобразить полученные данные на карте США.

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

In[3]:=

plot = ListContourPlot[data, Frame -> False, PlotRangePadding -> 0, 
   ColorFunction -> "TemperatureMap"];
Legended[GeoGraphics[{GeoStyling[{"GeoImage", plot}, Opacity[0.8]], 
   Polygon[Entity["Country", "UnitedStates"]]}], 
 BarLegend[{"TemperatureMap", 
   MinMax@Flatten[QuantityMagnitude@data]}]]

Out[3]=