Movimento próprio das estrelas

StarData oferece fácil acesso a inúmeras propriedades de milhares de estrelas. Uma dessas propriedades é a série temporal de distância da Terra, que acompanha o movimento próprio de uma estrela. A definição de movimento próprio pode ser fornecida com WikipediaData.

In[1]:=

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

Out[1]=

As dez estrelas mais próximas são definidas como EntityClass.

In[2]:=

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

Out[2]=

A lista das estrelas.

In[3]:=

close10["Entity"]

Out[3]=

Extraia a série temporal de movimento próprio e elimine as estrelas sem dados.

In[4]:=

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

Out[4]=

Uma vez que a distância entre a Terra e o Sol é muito pequena quando comparada com as outras estrelas, a série temporal para o sol não reflete seu movimento próprio e será excluída. A maioria das outras estrelas permanecem a uma distância quase constante com a Terra e o Sol, mas duas chegarão mais perto e depois se distanciam.

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