Wolfram Language

Unidades y fechas

La ecuación del tiempo

Debido a la excentricidad de la órbita de la Tierra y la inclinación del eje de la Tierra con respecto al plano de la órbita, el aparente movimiento del Sol varía a lo largo del año. Esto induce una variación en el tiempo medido por un reloj solar (tiempo solar aparente) en relación con un reloj más preciso, por ejemplo, uno determinado por la aparente rotación de las estrellas fijas (tiempo sideral). Esta diferencia es conocida como la Ecuación del Tiempo.

SiderealTime regresa valores de tiempo sideral como cantidades de unidades mixtas, usando MixedUnit.

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

Un tiempo sideral es realmente un ángulo y, por lo tanto, puede ser convertido en otras unidades angulares.

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

La Ecuación del Tiempo es determinada por el movimiento del Sol, dada por SunPosition. Calcule valores semanales al mediodía GMT.

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

Utilice SiderealTime para calcular la ascensión recta en el meridiano de Greenwich para las mismas fechas semanales.

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

Finalmente, encuentre los valores correspondientes de la Ecuación del Tiempo como la diferencia entre la ascensión recta del Sol y el tiempo sideral a mediodía durante el año. Exprese el resultado en minutos.

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

Los valores absolutos de la Ecuación del Tiempo pueden ser mayores que 15 minutos.

In[8]:=
Click for copyable input
MinMax[equationoftime]
Out[8]=
muestre la entrada completa de Wolfram Language
In[9]:=
Click for copyable input
DateListPlot[equationoftime, GridLines -> Automatic, Axes -> True, PlotTheme -> "Web"]
Out[9]=

Ejemplos relacionados

de en fr ja ko pt-br ru zh