研究地球的引力场变化

地球表面的引力场受物质密度的不均匀性和地球的非球面形状的影响而变化.

这是地球表面引力场的标准平均值.

复制至剪贴板。

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