Wolfram 언어™

지구 중력장의 변화 조사

지구 표면의 중력장은 물질 밀도의 불균등성과 지구의 비구형 형체로 인해 다양한 값을 가집니다.

다음은 지구 표면의 중력장의 표준 평균값입니다.

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