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 les données manquantes.

In[4]:=

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

Out[4]=

Comme la distance entre la Terre et le Soleil est 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 maintiennent à une distance presque constante à la Terre et le Soleil, mais il y en a deux qui vont se rapprocher, 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]=