Pôles Nord magnétiques
Le champ magnétique de la Terre change dans le temps, en raison du mouvement du noyau de la Terre. Cet exemple montre le déplacement depuis 1656.
Construisez une plage de dates avec des intervalles de 10 ans.
In[1]:=

dates = DateRange[DateObject[{1656}], DateObject[{2016}],
Quantity[10, "Years"]];
GeomagneticModelData peut calculer l'orientation du meilleur ajustement dipolaire du champ magnétique. Cela détermine les pôles géomagnétiques Nord et Sud, qui sont antipodaux par construction.
In[2]:=

geomagneticNorth =
GeomagneticModelData["NorthGeomagneticPole", dates];
GeomagneticModelData peut également calculer les positions des pôles magnétiques Nord et Sud, qui sont les endroits où les lignes magnétiques sont verticales. En général, ils ne seront pas des points antipodaux.
In[3]:=

dipNorth = GeomagneticModelData["NorthModelDipPole", dates];
Représentez l'évolution dans le temps des pôles Nord, avec la position actuelle notée avec un point plus grand.
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]=
