Pôles Nord magnétiques

Le champ magnétique terrestre se modifie au fil du temps, en raison du mouvement du noyau terrestre. Cet exemple montre le déplacement des pôles magnétiques depuis 1656.

Créez une série de dates avec des étapes 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, il ne s'agit pas de points antipodaux.

In[3]:=

dipNorth = GeomagneticModelData["NorthModelDipPole", dates];

Représentez l'évolution dans le temps du pôle Nord magnétique (bleu) et du pôle géomagnétique (rouge), les positions actuelles étant indiquées par 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]=