地球の重力場
地球全体の重力場の大きさを表す．
In[1]:=
plot = ListContourPlot[
GeogravityModelData[{{-90, -180.}, {90, 180.}}, "Magnitude",
GeoZoomLevel -> -2], Frame -> False, PlotRangePadding -> 0,
ColorFunction -> "TemperatureMap"];In[2]:=
GeoGraphics[{GeoStyling[{"GeoImage", plot}], Opacity[0.4],
Polygon[GeoPosition[{{-90, -180}, {90, -180}, {90, 180}, {-90,
180}}]]}]Out[2]=
