Wolfram Language™

Examine variações no campo gravitacional da Terra

O campo gravitacional na superfície da Terra varia devido à falta de homogeneidade na densidade da matéria e a forma não esférica da Terra.

Este é o valor médio padrão do campo na superfície da Terra.

In[1]:=

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

Out[1]=

Calcule a diferença entre um arranjo de valores para o campo gravitacional sobre os EUA e o valor médio padrão.

In[2]:=

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

Out[2]=

Coloque os dados em um mapa dos EUA.

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