L'Équation du temps
En raison de l'excentricité de l'orbite de la Terre et de l'inclinaison de l'axe de la Terre par rapport au plan de l'orbite, le mouvement apparent du Soleil varie tout au long de l'année. Ceci induit une variation du temps mesuré par une horloge solaire (heure solaire apparente) par rapport à une horloge plus précise, par exemple, celle déterminée par la rotation apparente des étoiles fixes (temps sidéral). Cette différence est connue comme l'Équation du temps.
SiderealTime renvoie des valeurs de temps sidéral en quantités mixtes unitaires, en utilisant MixedUnit.
![Click for copyable input](assets.fr/the-equation-of-time/In_47.png)
SiderealTime[]
![](assets.fr/the-equation-of-time/O_43.png)
![Click for copyable input](assets.fr/the-equation-of-time/In_48.png)
SiderealTime[];
QuantityUnit[%]
![](assets.fr/the-equation-of-time/O_44.png)
Un temps sidéral est en fait un angle, et par conséquent, il peut être converti en d'autres unités angulaires.
![Click for copyable input](assets.fr/the-equation-of-time/In_49.png)
UnitConvert[SiderealTime[], "AngularDegrees"]
![](assets.fr/the-equation-of-time/O_45.png)
L'Équation du temps est déterminée par le mouvement du Soleil, comme donné par SunPosition. Calculez les valeurs hebdomadaires à midi GMT.
![Click for copyable input](assets.fr/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.fr/the-equation-of-time/In_51.png)
sunpos = SunPosition[GeoPosition[{0, 0}], dates,
CelestialSystem -> "Equatorial"]
![](assets.fr/the-equation-of-time/O_46.png)
Utilisez SiderealTime pour calculer l'ascension droite au méridien de Greenwich pour les mêmes dates hebdomadaires.
![Click for copyable input](assets.fr/the-equation-of-time/In_52.png)
stime = SiderealTime[GeoPosition[{0, 0}], dates]
![](assets.fr/the-equation-of-time/O_47.png)
Enfin, trouvez les valeurs correspondantes de l'Équation du temps en tant que différence entre l'ascension droite du Soleil et le temps sidéral à midi tout au long de l'année. Exprimez le résultat en minutes.
![Click for copyable input](assets.fr/the-equation-of-time/In_53.png)
equationoftime =
UnitConvert[(TimeSeriesMap[First, sunpos] - stime),
"MinutesOfRightAscension"]
![](assets.fr/the-equation-of-time/O_48.png)
Les valeurs absolues de l'Équation du temps peuvent être supérieures à 15 minutes.
![Click for copyable input](assets.fr/the-equation-of-time/In_54.png)
MinMax[equationoftime]
![](assets.fr/the-equation-of-time/O_49.png)
![](assets.fr/the-equation-of-time/O_50.png)