Décalage heure

Position Terre

Temps (en jour)

Jour de la Lune

Minuit

Nuit 2ème partie

Lever Soleil

Matin

Midi

Après-midi

Coucher Soleil

Nuit 1ère partie

RAZ

Lune au méridien

Lune à l'est

Lever Lune

lune couchée

Coucher Lune

Lune à l'ouest

Terre et Lune : phases, levers-couchers, etc.

Pleine Lune

PQ -> PL Gibeuse

Premier Quartier

NL -> PQ Croissant

Nouvelle Lune

DQ -> NL Croissant

Dernier Quartier

PL -> DQ Gibeuse

Pleine Lune

Horizon prolongé

 Ajustements :
    phase, jour, heure 




  

R_T: 2.5
P_T: 1
theure = 18.2 (slider from 0 to 24, step 0.1)
ang_T = 39.6 (slider from 0 to 360, step 0.1)
alunaison = 0.54 (slider from 0 to floor((dlun * 13) + 0.5), step 0.01)
a_T: 15
PA_T: 365.25
T: (a_T; ang_T° + ((360 / PA_T * alunaison))°)
T_2: ((R_T * sqrt(2)); (-45 - 90 + ang_T + (theure * 15))° + ((360 / P_T * alunaison))°) + T
T_1: ((R_T * sqrt(2)); (225 - 90 + ang_T + (theure * 15))° + ((360 / P_T * alunaison))°) + T
S: (0, 0)
H_T: Angle[Line[S, T], Line[T_1, T_2]] - 90°
H'_T: Mod[degdec[H_T] + 540, 360] / 15
sH: sin(H_T)
cH: cos(H_T)
a_L: 8
ang_L = 0 (slider from 0 to 360, step 0.1)
P_L: 27.321582
C_T: (a_T; ang_T° + ((360 / PA_T * alunaison))°)
L: (a_L; (ang_L + 180 + (360 / P_L * alunaison))°) + C_T
φ = Angle(Line[L, T], Line[L, S])
phi = degdec(φ)
c_T = Circle(S, a_T)
c_L = Circle(C_T, a_L)
R_L: 0.75
theta: (atan2(y(L),x(L)) * 180 / π)
L_1: ((R_L * sqrt(2)); (225 + 180 + theta)°) + L
L_2: ((R_L * sqrt(2)); (180 + theta - 45)°) + L
sST = Segment(S, T)
sSL = Segment(S, L)
R2_T: (R_T * 5 / 7)
sTL = Segment(T, L)
axTL = Angle(xAxis, Line[T, L])
sphase = Translate(Rotate[Segment[(0, -3), (0, 3)], axTL], L)
ttheure = Mod(theure + 12 + (24 * alunaison / P_T), 24)
TT_2: ((R2_T * sqrt(2)); (-45 + 180 + ang_T)° + ((360 / PA_T * alunaison))°) + T
TT_1: ((R2_T * sqrt(2)); (225 + 180 + ang_T)° + ((360 / PA_T * alunaison))°) + T
dlun: 29 + (12 + (44 + 2.8 / 60) / 60) / 24
texte2: "Lunaison : " + (floor(alunaison / dlun) + 1) + "  jour : " + (floor(Mod[alunaison, dlun]) + 1) + ""
hcode = If(H'_T < 0.1, 1, If[H'_T < 5.9, 2, If[H'_T < 6.1, 3, If[H'_T < 11.9, 4, If[H'_T < 12.1, 5, If[H'_T < 17.9, 6, If[H'_T < 18.1, 7, If[H'_T < 23.9, 8, 1]]]]]]])
L_3: {A1, A2, A3, A4, A5, A6, A7, A8}
L_4: {A10, A11, A12, A13, A14, A15}
L_5: {A17, A18, A19, A20, A21, A22, A23, A24, A25}
az: 10°
T_V: (R_T; (ang_T + (theure * 15))° + ((360 / P_T * alunaison))°) + T
ang_V = Angle(Vector[T, T_V], Vector[T, L])
texte3: "" + (Element[L_3, hcode]) + ""
lcode = If(ang_V < 2°, 1, If[ang_V < 88°, 2, If[ang_V < 92°, 3, If[ang_V < 268°, 4, If[ang_V < 272°, 5, If[ang_V < 358°, 6, 1]]]]])
texte5: "" + (Element[L_4, lcode]) + ""
phcode = If(φ < 1°, 1, If[φ < 89°, 2, If[φ < 91°, 3, If[φ < 179°, 4, If[φ < 181°, 5, If[φ < 269°, 6, If[φ < 271°, 7, If[φ < 359°, 8, 1]]]]]]])
B = Intersect(Circle[T, (0.717 * R_T)], Ray[T, T_V])
hpr = OrthogonalLine(B, Line[T, T_V])
a = false
texte6: "" + (Element[L_5, phcode]) + " 
φ=" + φ + " (angle de phase TLS)"
Hmin': floor(Mod[(H'_T * 60), 60] + 0.5)
texte1: "Heure solaire : " + (floor(H'_T)) + " h " + (If[Hmin' < 10, "0", ""]) + "" + Hmin' + " min"

Tool: degdec
Input: φ
Output: adeg

adeg = Mod((atan2(sin(φ),cos(φ)) * 180 / π) + 360, 360)