Уравнение времени
Благодаря нецентральности земной орбиты и отклонению оси по отношению к орбитальной плоскости, видимое движение Солнца меняется в течение года. Это приводит к отклонениям во временных значениях, полученных солнечными часами (истинное солнечное время) по сравнению с более точными часами, например, теми, которые выдают время, определённое видимым вращением неподвижных звёзд (звёздное время). Данная разность известна как уравнение времени.
SiderealTime выдаёт значения звёзного времени в смешанных величинах, используя MixedUnit.

SiderealTime[]


SiderealTime[];
QuantityUnit[%]

Звёздное время по сути является углом и, таким образом, может быть переведено в единицы измерения углов.

UnitConvert[SiderealTime[], "AngularDegrees"]

Уравнение времени определено движением Солнца, заданным SunPosition. Рассчитайте недельные значения в полдень по горному времени.

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

sunpos = SunPosition[GeoPosition[{0, 0}], dates,
CelestialSystem -> "Equatorial"]

Используйте SiderealTime для расчёта прямого восхождения по меридиану Гринвича для этих же дат.

stime = SiderealTime[GeoPosition[{0, 0}], dates]

И, наконец, найдите соответствующие значения уравнения времени как разницу между прямым восхождением Солнца и звёздным временем в полдень в течение года. Выразите результат в минутах.

equationoftime =
UnitConvert[(TimeSeriesMap[First, sunpos] - stime),
"MinutesOfRightAscension"]

Абсолютные значения уравнения времени могут быть больше 15 минут.

MinMax[equationoftime]

