Wolfram Language

Calcul géographique

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]:=
Click for copyable input
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]:=
Click for copyable input
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]:=
Click for copyable input
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]:=
Click for copyable input
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]=

Exemples connexes

en es ja ko pt-br ru zh