Wolfram 语言™

恒星的自行

StarData 为获取数千颗恒星的大量属性知识提供了便捷的途径. 其中的一个属性是与地球之间距离的时间序列，它是对恒星自行的跟踪. 恒星自行的定义可从 WikipediaData 中得到.

In[1]:=

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

Out[1]=

最近的 10 颗恒星定义为一个 EntityClass.

In[2]:=

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

Out[2]=

这些恒星的列表.

In[3]:=

close10["Entity"]

Out[3]=

检索自行的时间序列并删除没有数据的恒星.

In[4]:=

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

Out[4]=

因为相比于其他恒星，太阳和地球之间的距离非常小，所以它的时间序列并不能反映其自行，将被排除在外. 其他大多数恒星与地球和太阳保持几乎恒定的距离，但有两颗将更加靠近然后又离开.

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