Язык Wolfram Language™

Движение звезд

База данных 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]=