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

Epsilon

α

δ

N

★

γ

S

O

Cooronnées équatoriales

plan de référence : équateur
axe de référence : axe des pôles PP'
direction origine : point vernal (γ)
asc. droites (α) de 0 à 3624h sens direct 
          (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.

sc = Sphere((0, 0, 0), 1)
O = (0, 0, 0)
c_{equa} = Circle(O, 1, xOyPlane)
α = 3.52 (slider from 0 to 24, step 0.1)
δ = 44.92 (slider from -90 to 90, step 0.1)
P = (0, 0, 1)
P' = (0, 0, -1)
I: (1; ((α * 15))°; δ°)
c_{obj} = Circle(P, I, P')
arceb = Arc(c_{obj}, I, P')
d = 64.496
J: (1; ((α * 15))°)
arcalpha = Arc(c_{equa}, (1, 0, 0), J)
c_{delta} = Circle(P, J, P')
arcdelta = If(δ > 0, Arc[c_{delta}, I, J], Arc[c_{delta}, J, I])
δ'_1, δ'_2, δ'_3 = dms(δ)
A2 = 23.43929
vobj: (Vector[O, I] * 1.25)
E = Translate(O, vobj)
sgOJ = Segment(O, J)
b_2 = 37.8 (slider from -90 to 90, step 0.1)
b2_4, b2_5, b2_6 = hms(b_2)
texte1_1: " " + α + "°  

 " + δ + "°"
axecolure = Segment((0, -1, 0), (0, 1, 0))
axegamma = Segment((1.25, 0, 0), (-1, 0, 0))
axePP' = Segment(P, P')
α'_1, α'_2, αt_3 = hms(α)
texte1: "Ascension droite " + α'_1 + "h" + α'_2 + "min" + αt_3 + "s     

Déclinaison          " + δ'_1 + "°" + δ'_2 + "'" + δ'_3 + "''"
PT2: (1; ((α * 15) + 1)°; (δ / 2)°)
PT1: (1; ((α * 15) * ° / 2); ((-5))°)
vgam: (Vector[O, (1, 0, 0)] * 1.3)
arceh = Arc(c_{obj}, P, I)

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)