Coordonnées - passage coord. équatoriales -> coord. écliptiques

H

δ

P

★

P'

O

Coordonnées horaires

plan de référence : équateur
axe de référence : axe des pôles PP'
direction origine : point Sud
angles horaires (α) de 0 à 24h sens inverse 
          (1 heure = 15°)
déclinaisons (δ) de -90° à +90°

Pour reprendre la main sur les curseurs 
après avoir changé la position ou l'angle 
de la fenêtre 3D, appuyer sur la touche Esc 
ou la Flèche de sélection.

Mvt diurne

Ouest

Est

Temps sidéral

TS

γ

Sud

H = 2.73 (slider from 0 to 24, step 0.1)
H2: (H * 15)
sc = Sphere((0, 0, 0), 1)
O = (0, 0, 0)
c_{equa} = Circle(O, 1, xOyPlane)
δ = 37.5 (slider from -90 to 90, step 0.1)
P = (0, 0, 1)
P' = (0, 0, -1)
I: (1; ((-H2))°; δ°)
c_{obj} = Circle(P, I, P')
arceh = CircleArc(O, I, P, xOyPlane)
arceb = Arc(c_{obj}, I, P')
J: (1; ((-H2))°)
δ2_1, δ2_2, δ2_3 = dms(δ)
A2 = 23.43929
PT = (0, 0, 1.05)
PT' = (0, 0, -1.05)
vdir: (Vector[O, I] * 1.25)
sgOI = Segment(O, J)
arcdel = If(δ > 0, Arc[c_{obj}, I, J], Arc[c_{obj}, J, I])
arcH = Arc(c_{equa}, J, (1, 0, 0))
c_{mer} = Circle(P, (1, 0, 0), P')
arcmer = Arc(c_{mer}, P, P')
S = (1, 0, 0)
PT1: (1; ((-H) * ° / 2); ((-5))°)
HH_1, HH_2, HH_3 = hms(H)
O' = (0, -1, 0)
E' = (0, 1, 0)
axeEO = Segment(E', O')
axePP' = Segment(P, P')
N = (-1, 0, 0)
axeNS = Segment(N, S)
c_{diurne} = Circle(axePP', I)
I' = Intersect(OrthogonalLine[I, axePP', space], axePP')
sdiurne = Segment(I, I')
b = false
texte1_5: " " + H + "°  
 " + δ + "°"
tsid = 4.1 (slider from 0 to 48, step 0.1)
G: (1.25; ((-((tsid * 15))))°; 0°)
stsid = Segment(O, G)
G': (1; ((-((tsid * 15))))°; 0°)
c = true
arctsid = Translate(Arc[c_{equa}, G', (1, 0, 0)], Vector[(0, 0, 0.01)])
texte1_4: "Angle horaire " + HH_1 + "h" + HH_2 + "min" + HH_3 + "s     
Déclinaison   " + δ2_1 + "°" + δ2_2 + "'" + δ2_3 + "''"
PT2: (1; ((-(H2 + 1)) + 3)°; (δ / 2)°)
GT': (1; ((-((Mod[tsid, 24] * 15 / 2))))°; 2°)
ts'_1, ts'_2, ts'_3 = hms(tsid)
texte12: "" + ts'_1 + "h" + ts'_2 + "min" + ts'_3 + "s"

Tool: hms
hms[ <Nombre> ]
Input: t
Output: a, c, d

a: floor(t)
b: t - a
c: floor((b * 60))
d: (((b * 60) - c) * 60)

Tool: dms
dms[ <Nombre> ]
Input: t
Output: a', c, d

t': abs(t)
a: floor(t')
b: t' - a
c: floor((b * 60))
d: (((b * 60) - c) * 60)
s: sgn(t)
a': (a * s)

Tool: hms (command hms1)
hms[ <Nombre> ]
Input: t
Output: a, c, d

a: floor(t)
b: t - a
c: floor((b * 60))
d: (((b * 60) - c) * 60)

Tool: hms (command hms2)
hms[ <Nombre> ]
Input: t
Output: a, c, d

a: floor(t)
b: t - a
c: floor((b * 60))
d: (((b * 60) - c) * 60)

Tool: hms (command hms3)
hms[ <Nombre> ]
Input: t
Output: a, c, d

a: floor(t)
b: t - a
c: floor((b * 60))
d: (((b * 60) - c) * 60)

Tool: dms (command dms1)
dms[ <Nombre> ]
Input: t
Output: a', c, d

t': abs(t)
a: floor(t')
b: t' - a
c: floor((b * 60))
d: (((b * 60) - c) * 60)
s: sgn(t)
a': (a * s)