Язык Wolfram Language

Георасчёты

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

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

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

In[1]:=
Click for copyable input
undulation = GeoElevationData[Entity["Country", "UnitedStates"], "Undulation"]
Out[1]=

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

In[2]:=
Click for copyable input
MinMax[undulation]
Out[2]=

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

In[3]:=
Click for copyable input
GeoElevationData[ GeoPosition[ Entity["City", {"Champaign", "Illinois", "UnitedStates"}]], "Undulation"]
Out[3]=

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

In[4]:=
Click for copyable input
undulation = GeoElevationData["World", "Undulation"]
Out[4]=

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

In[5]:=
Click for copyable input
image = ReliefPlot[undulation, DataReversed -> True, PlotRangePadding -> None, PlotLegends -> Automatic, MaxPlotPoints -> Infinity, Frame -> False]
Out[5]=

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

In[6]:=
Click for copyable input
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]=

Родственные примеры

de en es fr ja ko pt-br zh