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

Epsilon

ε J2000 = 23.439291

P

P'

E

Q

Q'

O

γ

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.

Passage :
  - coordonnées équatoriales
  - coordonnées écliptiques

lg

lt

α

δ

ε

P'_1 = (0, 0, -1)
P_1 = (0, 0, 1)
O = (0, 0, 0)
c_{equa} = Circle(O, 1, xOyPlane)
ε = 23.43929 (slider from 23.4 to 23.5, step 0.001)
Q' = Rotate(P'_1, ε°, xAxis)
Q = Rotate(P_1, ε°, xAxis)
c_{eclp} = Rotate(c_{equa}, ε°, xAxis)
δ = 55.44 (slider from -90 to 90, step 0.1)
α = 3.18 (slider from 0 to 24, step 0.1)
α': (15 * α)
I: (1; α'°; δ°)
c_{ecobj} = Circle(Q, I, Q')
arcqobj = Arc(c_{ecobj}, Q, Q')
P' = (0, 0, -1)
P = (0, 0, 1)
sc = Sphere((0, 0, 0), 1)
arcqh = Arc(c_{ecobj}, Q, I)
e1 = Arc(c_{equa}, (1, 0, 0), (1, 1, 0))
sqq' = Segment(Q, Q')
arcqb = Arc(c_{ecobj}, I, Q')
lt: (arcqb * 180 / π) - 90
c_{eqobj} = Circle(P, I, P')
arceb = Arc(c_{eqobj}, I, P'_1)
lt2: 90 - (arcqh * 180 / π)
e2 = 23.434684722222222 (slider from -5 to 24, step 1)
www = 23.43928111111111
c_{lat} = Rotate(c_{equa}, ε°, xAxis)
c'_{eclp} = Rotate(c_{equa}, ε°, xAxis)
α2_1, α2_2, α2_3 = hms(α / 15)
δ2_1, δ2_2, δ2_3 = dms(δ)
A2 = 23.43929
vobj: (Vector[O, I] * 1.25)
E = Translate(O, vobj)
arceh = Arc(c_{eqobj}, P, I)
J: (1; α'°; 0)
Intersect()
K, K_2 = Intersect(arcqobj, c_{eclp})
arclg = Arc(c_{eclp}, (1, 0, 0), K)
sgOK = Segment(O, K)
sgOJ = Segment(O, J)
axeZZ' = Segment((0, 0, -1.2), (0, 0, 1.2))
axeYY' = Segment((0, -1.2, 0), (0, 1.2, 0))
axeXX' = Segment((-1.2, 0, 0), (1.2, 0, 0))
long: (arclg * 180 / π)
arclt = Arc(c_{ecobj}, I, K)
I2 = Rotate(K, (lt / 2)°, OrthogonalLine[O, Plane[O, I, Q]])
J2: (1; (α' / 2)°; 0°)
I1: (1; α'°; (δ / 2)°)
arcalpha = Arc(c_{equa}, (0, 0, 0), J)
arcdelta = Arc(c_{eqobj}, I, J)
vgam: (Vector[O, (1, 0, 0)] * 1.25)
r_ε = 0.25
Intersect()
M1 = Rotate((1, 0, 0), 15*°, zAxis)
M2 = Rotate(M1, ε°, xAxis)
c = CircleArc((1, 0, 0), M1, M2)
K2 = Translate(Rotate[K, (long / 2)°, sqq'], Vector[(0, 0, 0.05)])
texte15: "Coordonnées équatoriales :
α = " + α2_1 + "h" + α2_2 + "min" + α2_3 + "s    δ = " + δ2_1 + "°" + δ2_2 + "'" + δ2_3 + "''
Coordonnées écliptiques :
long. = " + long + "°  lat. =  " + lt + "°"

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)