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

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

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

In[1]:=

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

Out[1]=

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

In[2]:=

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

Out[2]=

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

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