Wolfram Language™

Movimiento propio de las estrellas

StarData proporciona acceso fácil a numerosas propiedades de miles de estrellas. Una de esas propiedades es la serie temporal de distancia desde la Tierra, la cual rastrea el movimiento propio de una estrella. La definición de movimiento propio puede ser proporcionada con WikipediaData.

In[1]:=

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

Out[1]=

Las 10 estrellas más cercanas pueden ser definidas como EntityClass.

In[2]:=

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

Out[2]=

La lista de las estrellas.

In[3]:=

close10["Entity"]

Out[3]=

Recupere la serie temporal de movimiento propio y elimine las estrellas con datos faltantes.

In[4]:=

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

Out[4]=

Dado que la distancia entre la Tierra y el Sol es muy pequeña cuando se compara con las otras estrellas, la serie temporal para el Sol no refleja su movimiento propio y será excluido. La mayoría de las otras estrellas se mantienen en una distancia casi constante a la Tierra y al Sol, pero hay dos que se acercarán y luego se alejarán.

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