Wolfram 语言™

重量是多少？

GeogravityModelData 计算地球重力场在给定位置上的几个属性.

In[1]:=
`GeogravityModelData[GeoPosition[{0, 0}]]`
Out[1]=

In[2]:=
`GeoElevationData[GeoPosition[{0, 0}]]`
Out[2]=

In[3]:=
`GeoPosition[Entity["City", {"Quito", "Pichincha", "Ecuador"}]]`
Out[3]=
In[4]:=
```GeoPosition[Entity["City", {"Quito", "Pichincha", "Ecuador"}]]; {GeoElevationData[%, UnitSystem -> "Metric"], GeogravityModelData[%, "Magnitude"]}```
Out[4]=

In[5]:=
```equatorialgravity = GeogravityModelData[{GeoPosition[{0, -180}], GeoPosition[{5, 180}]}, "Magnitude"][[1]]```
Out[5]=
In[6]:=
`ListPlot[equatorialgravity, Joined -> True]`
Out[6]=

In[7]:=
`Histogram[equatorialgravity, 20]`
Out[7]=

In[8]:=
```equatorialgravityplot = ListPlot[equatorialgravity, Axes -> False, Joined -> True, AspectRatio -> 1/8, PlotRangePadding -> None, ImagePadding -> None, ImageSize -> 400, PlotStyle -> Red];```
In[9]:=
```worldmap = GeoGraphics[GeoPath["Equator"], GeoRange -> "World", ImageSize -> 400, GeoBackground -> "ReliefMap"];```
In[10]:=
`Overlay[{worldmap, equatorialgravityplot}, Alignment -> Center]`
Out[10]=

In[11]:=
```gravity = Mean /@ GeogravityModelData[{GeoPosition[{-90, -180}], GeoPosition[{90, 180}]}, "Magnitude"];```

In[12]:=
`ListPlot[gravity, DataRange -> {-90, 90}]`
Out[12]=
In[13]:=
`MinMax[gravity]`
Out[13]=

In[14]:=
```MinMax[gravity]; 1 - First[%]/Last[%]```