Wolfram 언어

단위 및 날짜

균시차

지구 궤도의 이심률과 궤도 평면에 대한 지축의 기울기를 위해 태양의 연주 운동은 일년 내내 변화합니다. 따라서 해시계 (시태양시)에서 측정 한 시간과, 예를 들어 항성의 시각 회전에서 결정되는 시간 (항성시)과는 보다 정확한 시계의 측정과 차이가 생깁니다. 이 차이를 균시차라합니다.

SiderealTime은 항성시의 값을 MixedUnit을 사용하여 혼합 단위의 수량으로 반환합니다.

In[1]:=
Click for copyable input
SiderealTime[]
Out[1]=
In[2]:=
Click for copyable input
SiderealTime[]; QuantityUnit[%]
Out[2]=

항성시는 실제로는 각도이며, 따라서 다른 각도 단위로 변환 할 수있습니다.

In[3]:=
Click for copyable input
UnitConvert[SiderealTime[], "AngularDegrees"]
Out[3]=

균시차는 SunPosition에 의해서 주어진 태양의 움직임에 따라 결정됩니다. 그리니치 평균시 정오에서 1주간의 값을 계산합니다.

In[4]:=
Click for copyable input
dates = DateRange[ DateObject[{2015, 1, 1}, TimeObject[{12, 0}, TimeZone -> 0], TimeZone -> 0.`], DateObject[{2015, 12, 31}, TimeObject[{12, 0}, TimeZone -> 0], TimeZone -> 0.`], 7];
In[5]:=
Click for copyable input
sunpos = SunPosition[GeoPosition[{0, 0}], dates, CelestialSystem -> "Equatorial"]
Out[5]=

같은 주일에 대해 SiderealTime을 사용하여 그리니치 자오선의 적경을 계산합니다.

In[6]:=
Click for copyable input
stime = SiderealTime[GeoPosition[{0, 0}], dates]
Out[6]=

마지막으로, 균시차 해당 값을 정오의 태양의 적경과 항성시의 차이로 나타낸 1년치를 구합니다. 결과를 분 단위로 나타냅니다.

In[7]:=
Click for copyable input
equationoftime = UnitConvert[(TimeSeriesMap[First, sunpos] - stime), "MinutesOfRightAscension"]
Out[7]=

균시차의 절대 값은 15분보다 클 수있습니다.

In[8]:=
Click for copyable input
MinMax[equationoftime]
Out[8]=
전체 Wolfram 언어 입력 표시하기
In[9]:=
Click for copyable input
DateListPlot[equationoftime, GridLines -> Automatic, Axes -> True, PlotTheme -> "Web"]
Out[9]=

관련 예제

de en es fr ja pt-br ru zh