Северные магнитные полюса
Магнитное поле Земли меняется с течением времени, следуя движению ядра Земли. Данный пример демонстрирует смещение магнитных полюсов с 1956 года.
Создайте ряд дат с промежутками в 10 лет.
dates = DateRange[DateObject[{1656}], DateObject[{2016}],
Quantity[10, "Years"]];GeomagneticModelData может рассчитать ориентирование лучшей биполярной модели, подходящей магнитному полю. Это определяет так называемые геомагнитные северный и южный полюса, которые являются противоположными по своей конструкции.
geomagneticNorth =
GeomagneticModelData["NorthGeomagneticPole", dates];GeomagneticModelData также может рассчитать положения магнитных северного и южного полюсов, в которых магнитные линии вертикальны. Чаще всего они не будут находится в противоположных точках.
dipNorth = GeomagneticModelData["NorthModelDipPole", dates];Представьте изменение во времени северного магнитного (синим цветом) и геомагнитного (красным цветом) полюсов и отметьте текущую позицию большой точкой.
GeoGraphics[{
Red, Point[geomagneticNorth], Blue, Point[dipNorth],
PointSize[Large],
Red, Point[Last@geomagneticNorth], Blue, Point[Last@dipNorth]
}, GeoRange -> {{65, 90}, All}, GeoGridLines -> Automatic]
