北磁极
由于地核的运动，地球的磁极随时间发生变化. 本范例展示了从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]=
