Язык Wolfram Language

Георасчёты

УПС и УПМ проекции

УПМ (универсальная поперечная меркаторская) группа проекций широко используется в приложениях. Версия 11 имеет в наличии УПМ проекции обеих зон: северной и южной, тем самым избегая использование отрицательных величин ординат, присутствующих в обычной практике. УПМ не могут достигать полюсов и обычно снабжены двумя УПС (универсальными полярными стереографическими) проекциями, которые теперь также поддерживаются.

Данная версия содержит 60 УПМ северных зон и 60 УПМ соответствующих южных зон.

In[1]:=
Click for copyable input
Short[GeoProjectionData["UTMZone"], 3]
Out[1]//Short=

Они имеют схожее определение, но имеют различное начало координат.

In[2]:=
Click for copyable input
GeoProjectionData["UTMZone34"]
Out[2]=
In[3]:=
Click for copyable input
GeoProjectionData["UTMZone34South"]
Out[3]=

Также имеются две УПС зоны.

In[4]:=
Click for copyable input
GeoProjectionData["UPSZone"]
Out[4]=

Они определены в рамках универсальной полярной стереографической проекции.

In[5]:=
Click for copyable input
GeoProjectionData["UPSNorth"]
Out[5]=
In[6]:=
Click for copyable input
GeoProjectionData["UPSSouth"]
Out[6]=

Документ по стандартизации национального агентства по разведке земной поверхности NGA.SIG.0012_ 2.0.0_UTMUPS предлагает различные примеры того, как можно проверить точность алгоритмов. Например, для УПС проекции документ предлагает следующие примеры в разделе 10.2.

In[7]:=
Click for copyable input
eg = GeoPosition[{{90, 0}, {89, -179}, {88, -90}, {87, -1}, {86, 0}, {85, 1}, {84, 89}, {83, 90}, {82, 91}, {81, 179}, {80, 180}, {40, 0}, {3, -179}, {2, -90}, {1, -1}, {0, 0}, {-1, 1}, {-2, 90}, {-3, 179}, {-4, 180}}]
Out[7]=

Представьте эти точки, используя проекцию "UPSNorth". Обратите внимание, что Северный полюс не имеет координаты проекции {0, 0} ввиду нетривиальных параметров начала координат.

In[8]:=
Click for copyable input
GeoGraphics[{Red, PointSize[Large], Point[eg]}, GeoProjection -> {"UPSNorth", "Centering" -> {90, 0}}, GeoGridLines -> Automatic, GeoZoomLevel -> 3, Frame -> True]
Out[8]=

Далее представлены цифры, полученные при помощи Wolfram Language и совпадающие с представленными в документе по стандартизации с точностью до микрометра.

In[9]:=
Click for copyable input
NumberForm[Grid[First@GeoGridPosition[eg, "UPSNorth"]], {13, 6}, ExponentFunction -> (Null &)]
Out[9]//NumberForm=

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

de en es fr ja ko pt-br zh