Décal. heure

Position Terre

Temps (en jour)

Pos. 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

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 




 

phases, levers-couchers, etc.

01/01

02/01

03/01

04/01

05/01

06/01

07/01

08/01

09/01

10/01

11/01

12/01

13/01

14/01

15/01

16/01

17/01

18/01

19/01

20/01

21/01

22/01

23/01

24/01

25/01

26/01

27/01

28/01

29/01

30/01

31/01

01/02

02/02

03/02

04/02

05/02

06/02

07/02

08/02

09/02

10/02

11/02

12/02

13/02

14/02

15/02

16/02

17/02

18/02

19/02

20/02

21/02

22/02

23/02

24/02

25/02

26/02

27/02

28/02

01/03

02/03

03/03

04/03

05/03

06/03

07/03

08/03

09/03

10/03

11/03

12/03

13/03

14/03

15/03

16/03

17/03

18/03

19/03

20/03

21/03

22/03

23/03

24/03

25/03

26/03

27/03

28/03

29/03

30/03

31/03

01/04

02/04

03/04

04/04

05/04

06/04

07/04

08/04

09/04

10/04

11/04

12/04

13/04

14/04

15/04

16/04

17/04

18/04

19/04

20/04

21/04

22/04

23/04

24/04

25/04

26/04

27/04

28/04

29/04

30/04

01/05

02/05

03/05

04/05

05/05

06/05

07/05

08/05

09/05

10/05

11/05

12/05

13/05

14/05

15/05

16/05

17/05

18/05

19/05

20/05

21/05

22/05

23/05

24/05

25/05

26/05

27/05

28/05

29/05

30/05

31/05

01/06

02/06

03/06

04/06

05/06

06/06

07/06

08/06

09/06

10/06

11/06

12/06

13/06

14/06

15/06

16/06

17/06

18/06

19/06

20/06

21/06

22/06

23/06

24/06

25/06

26/06

27/06

28/06

29/06

30/06

01/07

02/07

03/07

04/07

05/07

06/07

07/07

08/07

09/07

10/07

11/07

12/07

13/07

14/07

15/07

16/07

17/07

18/07

19/07

20/07

21/07

22/07

23/07

24/07

25/07

26/07

27/07

28/07

29/07

30/07

31/07

01/08

02/08

03/08

04/08

05/08

06/08

07/08

08/08

09/08

10/08

11/08

12/08

13/08

14/08

15/08

16/08

17/08

18/08

19/08

20/08

21/08

22/08

23/08

24/08

25/08

26/08

27/08

28/08

29/08

30/08

31/08

01/09

02/09

03/09

04/09

05/09

06/09

07/09

08/09

09/09

10/09

11/09

12/09

13/09

14/09

15/09

16/09

17/09

18/09

19/09

20/09

21/09

22/09

23/09

24/09

25/09

26/09

27/09

28/09

29/09

30/09

01/10

02/10

03/10

04/10

05/10

06/10

07/10

08/10

09/10

10/10

11/10

12/10

13/10

14/10

15/10

16/10

17/10

18/10

19/10

20/10

21/10

22/10

23/10

24/10

25/10

26/10

27/10

28/10

29/10

30/10

31/10

01/11

02/11

03/11

04/11

05/11

06/11

07/11

08/11

09/11

10/11

11/11

12/11

13/11

14/11

15/11

16/11

17/11

18/11

19/11

20/11

21/11

22/11

23/11

24/11

25/11

26/11

27/11

28/11

29/11

30/11

01/12

02/12

03/12

04/12

05/12

06/12

07/12

08/12

09/12

10/12

11/12

12/12

13/12

14/12

15/12

16/12

17/12

18/12

19/12

20/12

21/12

22/12

23/12

24/12

25/12

26/12

27/12

28/12

29/12

30/12

31/12

01/01

S: (0, 0)
theure: 0
R_T: 2.5
ang_T: 0
alunaison: 0
a_T: 15
PA_T: 365.25
jsol: 366.25 / 365.25
P_T: 1 / jsol
tsol: (alunaison * jsol) + theure
T: (a_T; ang_T° + ((360 / PA_T * tsol))°)
T_1: ((R_T * sqrt(2)); (225 - 90 + ang_T + (theure * 15))° + ((360 / P_T * tsol))°) + T
T_2: ((R_T * sqrt(2)); (-45 - 90 + ang_T + (theure * 15))° + ((360 / P_T * tsol))°) + T
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
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
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 * tsol))°) + 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
calend: {J1, J2, J3, J4, J5, J6, J7, J8, J9, J10, J11, J12, J13, J14, J15, J16, J17, J18, J19, J20, J21, J22, J23, J24, J25, J26, J27, J28, J29, J30, J31, J32, J33, J34, J35, J36, J37, J38, J39, J40, J41, J42, J43, J44, J45, J46, J47, J48, J49, J50, J51, J52, J53, J54, J55, J56, J57, J58, J59, J60, J61, J62, J63, J64, J65, J66, J67, J68, J69, J70, J71, J72, J73, J74, J75, J76, J77, J78, J79, J80, J81, J82, J83, J84, J85, J86, J87, J88, J89, J90, J91, J92, J93, J94, J95, J96, J97, J98, J99, J100, J101, J102, J103, J104, J105, J106, J107, J108, J109, J110, J111, J112, J113, J114, J115, J116, J117, J118, J119, J120, J121, J122, J123, J124, J125, J126, J127, J128, J129, J130, J131, J132, J133, J134, J135, J136, J137, J138, J139, J140, J141, J142, J143, J144, J145, J146, J147, J148, J149, J150, J151, J152, J153, J154, J155, J156, J157, J158, J159, J160, J161, J162, J163, J164, J165, J166, J167, J168, J169, J170, J171, J172, J173, J174, J175, J176, J177, J178, J179, J180, J181, J182, J183, J184, J185, J186, J187, J188, J189, J190, J191, J192, J193, J194, J195, J196, J197, J198, J199, J200, J201, J202, J203, J204, J205, J206, J207, J208, J209, J210, J211, J212, J213, J214, J215, J216, J217, J218, J219, J220, J221, J222, J223, J224, J225, J226, J227, J228, J229, J230, J231, J232, J233, J234, J235, J236, J237, J238, J239, J240, J241, J242, J243, J244, J245, J246, J247, J248, J249, J250, J251, J252, J253, J254, J255, J256, J257, J258, J259, J260, J261, J262, J263, J264, J265, J266, J267, J268, J269, J270, J271, J272, J273, J274, J275, J276, J277, J278, J279, J280, J281, J282, J283, J284, J285, J286, J287, J288, J289, J290, J291, J292, J293, J294, J295, J296, J297, J298, J299, J300, J301, J302, J303, J304, J305, J306, J307, J308, J309, J310, J311, J312, J313, J314, J315, J316, J317, J318, J319, J320, J321, J322, J323, J324, J325, J326, J327, J328, J329, J330, J331, J332, J333, J334, J335, J336, J337, J338, J339, J340, J341, J342, J343, J344, J345, J346, J347, J348, J349, J350, J351, J352, J353, J354, J355, J356, J357, J358, J359, J360, J361, J362, J363, J364, J365, J366}
H_S: (Mod[tsol, 1] * 24)
Hm_S: round(Mod[(H_S * 60), 60])
texte1: "Jour : " + (floor(tsol)) + "    " + (Element[calend, floor(tsol) + 1]) + "
Heure solaire : " + (floor(H_S)) + " h " + (If[Hm_S < 10, "0", ""]) + "" + Hm_S + " min"
TT_1: ((R2_T * sqrt(2)); (225 + 180 + ang_T)° + ((360 / PA_T * tsol))°) + T
texte6: "" + (Element[L_5, phcode]) + " 
Phase  (ang. TLS) φ=" + φ + ""

Tool: degdec
Input: φ
Output: adeg

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