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]:=
![Click for copyable input](assets.es/north-magnetic-poles/In_112.png)
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]:=
![Click for copyable input](assets.es/north-magnetic-poles/In_113.png)
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]:=
![Click for copyable input](assets.es/north-magnetic-poles/In_114.png)
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]:=
![Click for copyable input](assets.es/north-magnetic-poles/In_115.png)
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]=
![](assets.es/north-magnetic-poles/O_91.png)