Магнитное поле Земли
Рассмотреть протяжённость геомагнитного поля по всей планете.
In[1]:=
![Click for copyable input](assets.ru/earths-magnetic-field/In_54.png)
plot = ListContourPlot[
GeomagneticModelData[{{-90, -180.}, {90, 180.}}, "Magnitude",
GeoZoomLevel -> -2], Frame -> False, PlotRangePadding -> 0,
ColorFunction -> "TemperatureMap"];
In[2]:=
![Click for copyable input](assets.ru/earths-magnetic-field/In_55.png)
GeoGraphics[{GeoStyling[{"GeoImage", plot}], Opacity[0.4],
Polygon[GeoPosition[{{-90, -180}, {90, -180}, {90, 180}, {-90,
180}}]]}]
Out[2]=
![](assets.ru/earths-magnetic-field/O_44.png)