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

H

δ

P

★

P'

O

Relation temps sidéral - coordonnées équatoriales - coordonnées horaires

plan de référence : équateur
axe de référence : axe des pôles PP'
directions origines : point vernal et point sud
asc. droites (α) de 0 à 24h sens inverse (1 heure = 15°)
déclinaisons (δ) de -90° à +90°
angles horaires (H) de 0 à 24h (sens rétrograde)

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

TS

γ

α

tsid = 5.126 (slider from 0 to 48, step 0.02)
δ = 42 (slider from -90 to 90, step 0.1)
α = 3.2 (slider from 0 to 24, step 0.1)
α': (α * 15)
H: tsid - α
sc = Sphere((0, 0, 0), 1)
O = (0, 0, 0)
c_{Equa} = Circle(O, 1, xOyPlane)
I: (1; (((-tsid) * 15) + α')°; δ°)
P = (0, 0, 1)
P' = (0, 0, -1)
cp = Circle(P, I, P')
arceh = CircleArc(O, I, P, xOyPlane)
arceb = Arc(cp, I, P')
d = 64.496
J: (1; (((-tsid) * 15) + α')°)
cdel = Circle(P, J, P')
δ2_1, δ2_2, δ2_3 = dms(δ)
A2 = 23.43929
PT = (0, 0, 1.05)
PT' = (0, 0, -1.05)
sdir: (Vector[O, I] * 1.25)
E = Translate(O, sdir)
sI = Segment(O, J)
b_1 = 37.8 (slider from -90 to 90, step 0.1)
b2_1, b2_2, b2_3 = hms(b_1)
b_2 = 37.8 (slider from -90 to 90, step 0.1)
b2_4, b2_5, b2_6 = hms(b_2)
arcdel = If(δ > 0, Arc[cp, I, J], Arc[cp, 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 = true
G: (1.25; ((-((tsid * 15))))°; 0°)
vtsid = Vector(O, G)
G': (1; ((-((tsid * 15))))°; 0°)
GT': (1; ((-((tsid * 15 / 2))))°; 2°)
arctsid = Translate(Arc[c_{Equa}, G', (1, 0, 0)], Vector[(0, 0, 0.02)])
arcα = Arc(c_{Equa}, G', J)
PT2: (1; (((-H) * 15) + 3)°; (δ / 2)°)
ts_1, ts_2, ts_3 = hms(tsid)
α2_1, α2_2, α2_3 = hms(α)
texte1_4: "Tps sidéral    " + ts_1 + "h" + ts_2 + "min" + ts_3 + "s
Asc. droite     " + α2_1 + "h" + α2_2 + "min" + α2_3 + "s
Déclinaison   " + δ2_1 + "°" + δ2_2 + "'" + δ2_3 + "''
Angle hor.       " + HH_1 + "h " + HH_2 + "min " + HH_3 + "s     "
texte1_5: " " + tsid + "°h 
 " + α + "°
 " + δ + "°
 " + H + "h"

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)