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

Epsilon

l

b

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.

Coordonnées écliptiques

plan de référence : écliptique
axe de référence : axe des pôles de l'écliptique QQ'
direction origine : point vernal (γ)
longitudes (l) de 0 à 360° sens direct
latitudes (b) de -90° à +90°

Q'

O = (0, 0, 0)
b = 39.33 (slider from -90 to 90, step 0.1)
l = 51.23 (slider from 0 to 360, step 0.1)
I: (1; l°; b°)
c_{long} = Circle((1, 0, 0), (0, 1, 0), (-1, 0, 0))
J: (1; l°)
sc = Sphere((0, 0, 0), 1)
P = (0, 0, 1)
P' = (0, 0, -1)
cp = Circle(P, I, P')
arceb = Arc(cp, I, P')
c_{lat} = Circle(P, J, P')
arclat = If(b > 0, Arc[c_{lat}, I, J], Arc[c_{lat}, J, I])
A2 = 23.43929
Q = (0, 0, 1)
Q' = (0, 0, -1)
PT1: (1; (l * ° / 2); ((-5))°)
PT2: (1; (l + 1)°; (b / 2)°)
l2_1, l2_2, l2_3 = hms(l)
b2_1, b2_2, b2_3 = hms(b)
texte1: "

 " + l + "°
  
 " + b + "°"
axeXX' = Segment((-1, 0, 0), (1.15, 0, 0))
axeYY' = Segment((0, -1, 0), (0, 1.15, 0))
axeZZ' = Segment((0, 0, -1), (0, 0, 1.15))
c_{eclip} = Circle((0, 0), 1)
sgOJ: (1.25 * Vector[O, I])
arceh = Arc(cp, P, I)
vobj: (1.25 * Vector[O, I])
arclg = Arc(c_{long}, (1, 0, 0), J)
arclg' = Dilate(arclg, 0.3, (0, 0, 0))
arclat' = Dilate(arclat, 0.3, (0, 0, 0))
texte1_2: "
Longitude : " + l2_1 + "°" + l2_2 + "'" + l2_3 + "''  
     
Latitude    :  " + b2_1 + "°" + b2_2 + "'" + b2_3 + "''"

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)