A equação do tempo
Devido à excentricidade da órbita da Terra e a inclinação do eixo da Terra em relação ao plano da órbita, o movimento aparente do sol varia ao longo do ano. Isto induz uma variação no tempo medido por um relógio solar (tempo solar aparente) em relação a um relógio mais preciso, por exemplo, determinado pela rotação aparente das estrelas fixas (hora sideral). Esta diferença é conhecida como a Equação do Tempo.
SiderealTime retorna valores de tempo sideral como quantidades de unidades mistas, usando MixedUnit.
![Click for copyable input](assets.pt-br/the-equation-of-time/In_47.png)
SiderealTime[]
![](assets.pt-br/the-equation-of-time/O_43.png)
![Click for copyable input](assets.pt-br/the-equation-of-time/In_48.png)
SiderealTime[];
QuantityUnit[%]
![](assets.pt-br/the-equation-of-time/O_44.png)
O tempo sideral é na verdade um ângulo, e portanto pode ser convertido em outras unidades angulares.
![Click for copyable input](assets.pt-br/the-equation-of-time/In_49.png)
UnitConvert[SiderealTime[], "AngularDegrees"]
![](assets.pt-br/the-equation-of-time/O_45.png)
A Equação do Tempo é determinada pelo movimento do Sol, conforme dado pela SunPosition. Calcule valores semanais ao meio-dia GMT.
![Click for copyable input](assets.pt-br/the-equation-of-time/In_50.png)
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];
![Click for copyable input](assets.pt-br/the-equation-of-time/In_51.png)
sunpos = SunPosition[GeoPosition[{0, 0}], dates,
CelestialSystem -> "Equatorial"]
![](assets.pt-br/the-equation-of-time/O_46.png)
Use SiderealTime para calcular a ascensão reta no meridiano de Greenwich para as mesmas datas semanais.
![Click for copyable input](assets.pt-br/the-equation-of-time/In_52.png)
stime = SiderealTime[GeoPosition[{0, 0}], dates]
![](assets.pt-br/the-equation-of-time/O_47.png)
Por fim, encontre os valores correspondentes da Equação do Tempo como a diferença entre a ascensão reta do Sol e o tempo sideral ao meio-dia durante todo o ano. Mostre o resultado em minutos.
![Click for copyable input](assets.pt-br/the-equation-of-time/In_53.png)
equationoftime =
UnitConvert[(TimeSeriesMap[First, sunpos] - stime),
"MinutesOfRightAscension"]
![](assets.pt-br/the-equation-of-time/O_48.png)
Os valores absolutos da Equação do Tempo podem ser maiores do que 15 minutos.
![Click for copyable input](assets.pt-br/the-equation-of-time/In_54.png)
MinMax[equationoftime]
![](assets.pt-br/the-equation-of-time/O_49.png)
![](assets.pt-br/the-equation-of-time/O_50.png)