北磁極

地球の磁場は，地核の運動のため時間と共に変化する．この例では1656年からの磁極の移動を示す．

刻み幅を10年にして日付の範囲を設定する．

In[1]:=

dates = DateRange[DateObject[{1656}], DateObject[{2016}], Quantity[10, "Years"]];

GeomagneticModelDataは，磁場への最高の双極フィットの向きを計算することができる．これが，構造的に地球の正反対側に位置する，いわゆる北磁極と南磁極を決定する．

In[2]:=

geomagneticNorth = GeomagneticModelData["NorthGeomagneticPole", dates];

GeomagneticModelDataは，磁力線が垂直となる地点である，北磁極と南磁極の位置を計算することもできる．通常，これらは地球の正反対の点にはならない．

In[3]:=

dipNorth = GeomagneticModelData["NorthModelDipPole", dates];

北磁極（青）と地磁気極(赤）の時間の経過に伴う変化を表す．現在の位置は，他より大きい点で示す．

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]=