Celem notatnika jest pobranie i zwizualizowanie 11-letniego cyklu aktywności słonecznej. Na wykresie nie widać przebiegunowania pola magnetycznego, co de facto podwaja pełny cykl do około 22 lat. Podobne cykle obserwujemy w innych gwiazdach a także na Ziemi (nieregularnie, co 700 tyś. - 2 mln lat). Tłumaczymy to jako skutek działania dynama magnetycznego.

({{"[◼]", "SpaceWeatherData" }})["DailySunspotNumber"]

({{"[◼]", "SpaceWeatherData" }})[(DateObject["Wed 30 Nov 2022", DateObject[{2022,11,30},"Day"]]), "DailySunspotNumber"]

now=Today

img=Show[Import["https://sdo.gsfc.nasa.gov/assets/img/latest/latest_1024_HMIIC.jpg"],ImageSize->300]

magField=ResourceFunction["SolarImage"][32]

Manipulate[ResourceFunction["SolarImage"][k],{k,1,40,1}]

ResourceFunction["SolarImage"]["InstrumentAssociation"]

dates=DateRange[DatePlus[Today, {{-122, "Year"}}],Today,{1,"Month"}]

SetDirectory[NotebookDirectory[]];

If[!DirectoryQ["data"],CreateDirectory["data"]]

If[!FileExistsQ["data/liczbaPlam.wl"],Export["data/liczbaPlam.wl",(({{"[◼]", "SpaceWeatherData" }})[#, "DailySunspotNumber"]&)/@dates]]

plamy=Import["data/liczbaPlam.wl"];

DateListPlot[{dates,plamy}//Transpose]

(* SOURCE: https://www.sidc.be/silso/datafiles *)

(*dir=NotebookDirectory[];*)

(*spots=Import[dir<>"data\\SN_d_tot_V2.0.txt","Table"];*)

spots=Import["https://www.sidc.be/silso/DATA/SN_d_tot_V2.0.txt","Table"];

spots[[1]]

ListPlot[spots[[1;;,{4,5}]],AspectRatio->1/4,PlotRange->{0,All},Joined->True,ImageSize->900,AxesLabel->{"Rok","Liczba plam"}]

(*Export[dir<>"\\ssn_yearly.pdf",%]*)

(*Import["data/GeoReversal.csv"]*)

earth=Import["https://th.if.uj.edu.pl/~odrzywolek/homepage/students/aa/2025/W11/GeoReversal.csv"]

ListPlot[earth[[5;;]],Joined->True,InterpolationOrder->0,AxesLabel->{"Miliony lat wstecz","Polarność\npola\nmagnetycznego\nZiemi"},AspectRatio->1/4,ImageSize->600]