Wolfram Language™

Mouvement propre des étoiles

StarData fournit un accès facile aux propriétés de nombreux milliers d'étoiles. Une telle propriété est une série temporelle de distance de la Terre qui suit le mouvement propre d'une étoile. La définition de mouvement propre peut être fournie par WikipediaData.

In[1]:=

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

Out[1]=

Les 10 étoiles les plus proches sont définies comme EntityClass.

In[2]:=

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

Out[2]=

La liste des étoiles.

In[3]:=

close10["Entity"]

Out[3]=

Récupérez la série temporelle de mouvement propre et enlevez les étoiles avec des données manquantes.

In[4]:=

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

Out[4]=

La distance entre la Terre et le Soleil étant très faible par rapport aux autres étoiles, la série temporelle pour le Soleil ne reflète pas son mouvement propre et sera exclue. La plupart des autres étoiles restent à une distance presque constante de la Terre et du Soleil, mais deux d'entre elles se rapprochent puis s'éloignent.

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