Polos magnéticos del norte
El campo magnético de la Tierra cambia en tiempo, debido al movimiento del centro de la Tierra. Este ejemplo muestra el desplazamiento desde 1656.
Construya un rango de fechas con pasos de 10 años.
In[1]:=
dates = DateRange[DateObject[{1656}], DateObject[{2016}],
Quantity[10, "Years"]];GeomagneticModelData puede calcular la orientación del mejor ajuste dipolar al campo magnético. Esto determina los llamados polos geomagnéticos del norte y el sur, los cuales son antipodales por construcción.
In[2]:=
geomagneticNorth =
GeomagneticModelData["NorthGeomagneticPole", dates];GeomagneticModelData también puede calcular las posiciones de los polos magnéticos del norte y del sur, los cuales son las ubicaciones en donde las líneas magnéticas son verticales. En general, ellos no son puntos antipodales.
In[3]:=
dipNorth = GeomagneticModelData["NorthModelDipPole", dates];Represente la evolución en el tiempo de los polos norte, con la posición actual denotada con un punto más grande.
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]=
