Язык Wolfram Language™

GPS-приёмники и высота над уровнем моря

GPS-приёмники измеряют положения по отношению к координатам сжатого эллипсоида, приближённо выражающего поверхность Земли. Тем не менее, изменение высоты по отношению к эллипсоиду не имеет прямого практического применения: например, изменение высоты поверхности озера не является постоянным по отношению к эллипсоиду. Необходимо перевести её в другие координаты поверхности, геоид, приближённо выражающий средний уровень моря, и продолжить его на материковую часть.

Изменение высоты геоида по отношению к координатам эллипсоида называется "высотой". Загрузите данные по высоте в футах для граничащих Соединённых Штатов.

In[1]:=

undulation = GeoElevationData[Entity["Country", "UnitedStates"], "Undulation"]

Out[1]=

Геоид всегда находится в координатах эллипсоида для региона США.

In[2]:=

MinMax[undulation]

Out[2]=

В частности, данное значение представляет высоту для штаб-квартиры Wolfram в Чикаго, штат Иллинойс.

In[3]:=

GeoElevationData[ GeoPosition[ Entity["City", {"Champaign", "Illinois", "UnitedStates"}]], "Undulation"]

Out[3]=

Загрузите данные для всего мира.

In[4]:=

undulation = GeoElevationData["World", "Undulation"]

Out[4]=

Представьте данные как карту рельефа.

In[5]:=

image = ReliefPlot[undulation, DataReversed -> True, PlotRangePadding -> None, PlotLegends -> Automatic, MaxPlotPoints -> Infinity, Frame -> False]

Out[5]=

Используйте другую геопроекцию.

In[6]:=

With[{bounds = {{-90, 90}, {-180, 180}}}, Legended[GeoGraphics[{GeoStyling[{"GeoImage", image[[1]]}, GeoRange -> bounds], GeoBoundsRegion[bounds]}, GeoRange -> bounds, GeoProjection -> "WinkelTripel", GeoGridLines -> True, ImageSize -> Medium], image[[2]]]]

Out[6]=