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

Epsilon

α

δ

P

★

γ

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 - coordonnées galactiques

plan de référence : plan galactique
axe de référence : axe des pôles de l'écliptique GG'
direction origine : centre galactique (C)
longitudes (l) de 0 à 360° sens direct
latitudes (b) de -90° à +90°

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

P'

Lg

Lt

α = 5.8 (slider from 0 to 24, step 0.1)
δ = 68.86 (slider from -90 to 90, step 0.1)
I: (1; ((15 * α))°; δ°)
O = (0, 0, 0)
α_P = 12.857300555555556
δ_P = 27.12833611111111
vOG = UnitVector(Line[O, (1; ((α_P * 15))°; δ_P°)])
c_{galac} = Circle(O, 1, vOG)
G = Translate(O, vOG)
G' = Translate(O, Vector[(-vOG)])
c_{Obj} = Circle(G, I, G')
varclb: (Arc[c_{Obj}, I, G'] * 180 / π)
varclh: (Arc[c_{Obj}, G, I] * 180 / π)
Intersect()
J', J = Intersect(c_{galac}, c_{Obj})
c_{equa} = Circle((1, 0, 0), (0, 1, 0), (-1, 0, 0))
sc = Sphere((0, 0, 0), 1)
P = (0, 0, 1)
P' = (0, 0, -1)
c_{pol} = Circle(P, I, P')
arceb = Arc(c_{pol}, I, P')
c_{del} = Circle(P, J', P')
A2 = 23.43929
α2_1, α2_2, α'_3 = hms(α)
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))
arceh = Arc(c_{pol}, P, I)
sgOJ = Segment((0, 0, 0), J)
vgObj: (1.25 * Vector[O, I])
axeGal = Line(O, vOG)
C = (-0.05487395617553902, -0.8734371822248346, -0.48383503143198114)
sgOC = Segment(O, C)
arcObjh = CircleArc(O, G, I)
arcObjb = CircleArc(O, I, G')
arclggal = Arc(c_{galac}, C, J)
arcltgal = If(varclh  <  varclb, Arc[c_{Obj}, I, J], Arc[c_{Obj}, J, I])
lg_{gal}: (arclggal * 180 / π)
lt_{gal}: (If[varclh  <  varclb, 1, -1] * (arcltgal * 180 / π))
E_1 = (1, 0, 0)
E_2 = (0, 1, 0)
E_3 = (-1, 0, 0)
E_4 = (0, -1, 0)
l2_1, l2_2, l2_3 = hms(lg_{gal})
Posδ: (1; ((15 * α) + 1)°; (δ / 2)°)
Posα: (1; ((15 * α) * ° / 2); ((-5))°)
texte1_1: "Long. galact. " + lg_{gal} + "°
Lat. galact.     " + lt_{gal} + "°"
δ'_1, δ'_2, δ'_3 = dms(δ)
texte10: "Asc. droite        " + α2_1 + "h" + α2_2 + "min" + α'_3 + "s  " + α + "°
Déclinaison     " + δ'_1 + "°" + δ'_2 + "'" + δ'_3 + "“      " + δ + "°"
Poslt = Rotate(G, (lt_{gal} / 2 + (arcObjh * 180 / π))°, Line[O, Vector[UnitVector[c_{Obj}]]])
vgam: (Vector[O, (1, 0, 0)] * 1.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)