Sole riflesso
Author: Stocco E.

Muovi il Sole (in declinazione) per visualizzare lo spostamento della sua immagine riflessa sul soffitto lungo la linea meridiana.

Con lo slider, puoi variare la latitudine.

Ses Solstizio estivo
Sin  Solstizio invernale
Q     Sole riflesso a soffitto

A = Point(xAxis)
H = Point(yAxis)
P = Intersect(xAxis, yAxis)
a = Line(P, A)
b = Line(P, H)
c = Circle(P, A)
Lat = 45.9 (slider from 0 to 90, step 0.1)
B' = Rotate(H, -(Lat°), P)
α = Angle(B', P, H)
d = Ray(P, B')
Equinozi = Intersect(c, d, 1.0)
SolstizioEstivo = Rotate(Equinozi, 23.5*°, P)
β = Angle(Equinozi, P, SolstizioEstivo)
SolstizioInvernale = Rotate(Equinozi, 336.5*°, P)
γ = Angle(SolstizioInvernale, P, Equinozi)
e = CircleArc(P, SolstizioInvernale, SolstizioEstivo)
Sole = Point(e)
f = Circle(Sole, 0.7)
D = Point(xAxis)
D' = Mirror(D, P)
specchio = Segment(D, D')
h = Line(Sole, P)
h' = Mirror(h, b)
i = OrthogonalLine(H, b)
Q = Intersect(h', i)
j = Segment(Sole, P)
k = Segment(P, Q)
soffitto = Ray(H, Q)
p = Circle(Q, 0.3)
δ = Angle(Sole, P, H)
ε = Angle(H, P, Q)
altezzasolare = Angle(A, P, Sole)
g = Ray(P, H)