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