北磁极

由于地核的运动，地球的磁极随时间发生变化. 本范例展示了从1656年以来磁极的位移.

构建步长为 10 年的日期范围.

In[1]:=

dates = DateRange[DateObject[{1656}], DateObject[{2016}], Quantity[10, "Years"]];

GeomagneticModelData 能够计算与磁场最佳拟合的偶极方向. 由此确定所谓的地磁北极和南極，从构造上讲它们是对跖的.

In[2]:=

geomagneticNorth = GeomagneticModelData["NorthGeomagneticPole", dates];

GeomagneticModelData 还可以计算北磁极和南磁极的位置，该位置的磁力线为垂直. 一般而言，他们并非为对跖点.

In[3]:=

dipNorth = GeomagneticModelData["NorthModelDipPole", dates];

显示北磁极（蓝色）和地理磁极（红色）随时间的演变，当前位置用大点表示.

In[4]:=

GeoGraphics[{ Red, Point[geomagneticNorth], Blue, Point[dipNorth], PointSize[Large], Red, Point[Last@geomagneticNorth], Blue, Point[Last@dipNorth] }, GeoRange -> {{65, 90}, All}, GeoGridLines -> Automatic]

Out[4]=