Wolfram Language™

Eigenbewegung von Sternen

StarData bietet einfachen Zugriff auf Eigenschaften tausender Sterne. Eine dieser Eigenschaften ist eine Zeitreihe der Distanz zur Erde, wodurch die Eigenbewegung eines Sterns verfolgt werden kann. Die Definition der Eigenbewegung kann durch WikipediaData eruiert werden.

In[1]:=

TextSentences[WikipediaData["Proper_motion", "ArticlePlaintext"]][[1]]

Out[1]=

Die 10 nächstgelegenen Sterne sind als eine EntityClass definiert.

In[2]:=

close10 = EntityClass["Star", "StarNearest10"]

Out[2]=

Die Liste der Sterne.

In[3]:=

close10["Entity"]

Out[3]=

Rufen Sie die Zeitreihe für Eigenbewegung ab und entfernen Sie die Sterne mit fehlenden Daten.

In[4]:=

res = DeleteMissing[ EntityClass["Star", "StarNearest10"][{"Entity", "StarDistanceTimeSeries"}], 1, 2]

Out[4]=

Da die Distanz zwischen Erde und Sonne im Vergleich zu den anderen Sternen sehr klein ist, reflektiert die Zeitreihe der Sonne nicht ihre Eigenbewegung und wird ausgeschlossen. Die meisten anderen Sternen bleiben in fast konstanter Entfernung zur Erde und zur Sonne, es gibt jedoch zwei, die Erde und Sonne näher kommen und sich dann wegbewegen.

In[5]:=

farstars = Drop[res, -1]; color = Hue[.5, .8, .8]; DateListPlot[farstars[[All, 2]], GridLines -> {{{Now, Directive[Thick, Dashed, color]}}, {}}, TargetUnits -> "LightYears", FrameLabel -> Automatic, PlotLabels -> farstars[[All, 1]], Epilog -> {Inset[Style["Now", 14, color], {DateObject[Now], 29}]}, ImagePadding -> {{All, Scaled[.17]}, {All, Scaled[.04]}}, ImageSize -> 500]

Out[5]=