Спроецированная сетка линий широты и долготы

Данная функция чертит полную сетку параллелей и меридианов (красным и синим цветом соответственно) после проецирования при помощи геопроекции.

In[1]:=

graticule[proj_] := With[{centering = {0, 0, 1.5}, diff = Quantity[10, "AngularDegrees"]}, Framed[Labeled[ GeoGraphics[GeoRange -> "World", GeoProjection -> {proj, "Centering" -> centering}, GeoGridLines -> diff, GeoGridLinesStyle -> {Red, Blue}, GeoBackground -> None, PlotRangePadding -> Scaled[0.1]], proj]] ]

Далее представлены три примера.

In[2]:=

graticule["Armadillo"]

Out[2]=

In[3]:=

graticule["AmericanPolyconic"]

Out[3]=

In[4]:=

graticule["Bonne"]

Out[4]=

Рассчитайте сетки широты-долготы для каждой из 151 проекции со сферической референц-моделью.

In[5]:=

plots = graticule /@ GeoProjectionData["Spherical"];

Растрируйте их, используя изображение достаточно маленького размера.

In[6]:=

images = Rasterize[#, ImageSize -> 200] & /@ plots;

Создайте коллаж изображений.

In[7]:=

ImageCollage[images]

Out[7]=