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

Epsilon

P

P'

★

Z

Z'

O

Sud

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.

Ouest

Est

Nord

Passage :
  - coordonnées horaires
  - coordonnées locales

Latitude du lieu

Mvt diurne

Changer l'angle horaire H

H

δ

φ

az

h

P'_1 = (0, 0, -1)
δ = 28.5 (slider from -90 to 90, step 0.1)
H = 2.6 (slider from 0 to 24, step 0.1)
I: (1; (((-H) * 15))°; δ°)
O = (0, 0, 0)
c_{Equa} = Circle(O, 1, xOyPlane)
φ = 60.3 (slider from -90 to 90, step 0.001)
S = Rotate((1, 0, 0), (90 - φ)°, yAxis)
Z' = Rotate(P'_1, (90 - φ)°, yAxis)
c_{Eclp} = Rotate(c_{Equa}, (90 - φ)°, yAxis)
e1 = Arc(c_{Eclp}, (1, 0, 0), (-1, 0, 0))
P = (0, 0, 1)
Z = Rotate(P, (90 - φ)°, yAxis)
cq = Circle(Z, I, Z')
arcqh = Arc(cq, Z, I)
Intersect()
K, A_2 = Intersect(arcqh, e1)
sc = Sphere((0, 0, 0), 1)
P_1 = (0, 0, 1)
cp = Circle(P_1, I, P'_1)
arcdh = CircleArc(O, I, P_1, xOyPlane)
sqq' = Segment(Z, Z')
arcqb = Arc(cq, I, Z')
ht: (arcqb * 180 / π) - 90
arcdb = Arc(cp, I, P'_1)
lt2: 90 - (arcqh * 180 / π)
d = 64.496
a = 268.05833333333334
ii: 90 - ht
az: (Arc[c_{Eclp}, K, S] * 180 / π)
ll: 360 - (az + 90)
e2 = 23.434684722222222 (slider from -5 to 24, step 1)
www = 23.43928111111111
clat = Circle(Z, I, Z')
llt = If(lt2 > 0, Arc[clat, I, K], Arc[clat, K, I])
J: (1; (((-H) * 15))°)
arca = Arc(c_{Equa}, (1, 0, 0), J)
cdel = Circle(P_1, J, P'_1)
arcd = If(δ > 0, Arc[cdel, I, J], Arc[cdel, J, I])
α2_1, α2_2, α2_3 = hms(H / 15)
δ2_1, δ2_2, δ2_3 = dms(δ)
A2 = 23.43929
P' = (0, 0, -1)
sdir: (Vector[O, I] * 1.25)
Obj = Translate(O, sdir)
c_{mer} = Circle(P, Z, P')
arcmh = Arc(c_{mer}, (0, 0, 1), Z)
arcmb = Arc(c_{mer}, Z, (0, 0, -1))
E = (0, 1, 0)
O' = (0, -1, 0)
N = Rotate((-1, 0, 0), (90 - φ)°, yAxis)
axePP' = Segment((0, 0, 1.5), (0, 0, -1.5))
axeZZ' = Rotate(Segment[(0, 0, 1.5), (0, 0, -1.5)], (90 - φ)°, yAxis)
axeNS = Rotate(Segment[(0, 0, 1), (0, 0, -1)], ((-φ))°, yAxis)
arcaz = Arc(c_{Eclp}, K, S)
c_{diurne} = Circle(axePP', I)
axeEO = Segment(O', E)
b = false
texte3: "Coordonnées équatoriales :
AR " + α2_1 + "h" + α2_2 + "min" + α2_3 + "s     Dec " + δ2_1 + "°" + δ2_2 + "'" + δ2_3 + "''
AR " + H + "h  DEC " + δ + "°
Coordonnées écliptiques :
Long. " + az + "°  Lat. " + ht + "°"
H'_1, H'_2, H'_3 = hms(H)
texte1: "Coordonnées horaires :
H " + H'_1 + "h" + H'_2 + "min" + H'_3 + "s     Dec " + δ2_1 + "°" + δ2_2 + "'" + δ2_3 + "''
H " + H + "h  Dec. " + δ + "°
Coordonnées locales  
Azimut " + az + "°  Haut.. " + ht + "°"
arcH = Arc(c_{Equa}, J, (1, 0, 0))
axeYY' = Segment((0, -1, 0), (0, 1, 0))
axeXX' = Segment((-1, 0, 0), (1, 0, 0))
c = CircleArc(O, (0.2; π; (90 - φ)°), (0.2; 180*°; 90*°))
Paz = Rotate(K, (az / 2)°, Line[Z', Z])
Pht = Rotate(K, (ht / 2)°, OrthogonalLine[O, Plane[Z', K, Z]])

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)