Pólo norte magnético
O campo magnético da Terra muda com o tempo, devido ao movimento do centro da Terra. Este exemplo mostra o deslocamento desde 1656.
Construa um intervalo de datas a cada 10 anos.
In[1]:=

dates = DateRange[DateObject[{1656}], DateObject[{2016}],
Quantity[10, "Years"]];
GeomagneticModelData pode calcular a orientação do melhor ajuste dipolar para o campo magnético. Isto determina os chamados pólos geomagnéticos norte e sul, que são antípodas pela construção.
In[2]:=

geomagneticNorth =
GeomagneticModelData["NorthGeomagneticPole", dates];
GeomagneticModelData também pode calcular as posições dos pólos magnéticos Norte e Sul, que são os locais em que as linhas magnéticas são verticais. Em geral, eles não serão pontos antípodas.
In[3]:=

dipNorth = GeomagneticModelData["NorthModelDipPole", dates];
Represente a evolução no tempo dos pólos magnéticos norte (azul) e pólos geomagnéticos (vermelho), com a posição atual marcada com um ponto maior.
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]=
