Jahreslauf animieren

1m² Erdoberfläche

mit Daten

Geografische Breite

  Sommer
(Juni - Sept.)

   Herbst
(Sept.-Dez.)

     Winter
(Dez. - März)

   Frühjahr
(März - Juni)

Breite = 47 (slider from 0 to 90, step 1)
t = 0.9738937226128359 rad (slider from 0 to 6.283185307179586, step 0.0017453292519943296)
t_2 = NaN (slider from -5 to 10, step 0.1)
α: 90.0 - Breite + 23.5 * cos(t)
g: y = tan(α * 3.141592653589793 / 180.0) * x
A, B = Intersect(k, g)
k_1: (x - x(B))^(2.0) + (y - y(B))^(2.0) = 100.0
a = OrthogonalLine(B, g)
C, D = Intersect(k_1, a)
E = Midpoint(D, B)
F = Midpoint(B, C)
G = Midpoint(D, E)
H = Midpoint(E, B)
I = Midpoint(B, F)
J = Midpoint(F, C)
b = OrthogonalLine(D, a)
c = OrthogonalLine(G, a)
d = OrthogonalLine(E, a)
e = OrthogonalLine(H, a)
f = OrthogonalLine(I, a)
h = OrthogonalLine(B, a)
i = OrthogonalLine(F, a)
j = OrthogonalLine(J, a)
l = OrthogonalLine(C, a)
K = Point(xAxis)
L = Point(xAxis)
m = OrthogonalLine(K, a)
n = OrthogonalLine(L, a)
M = Intersect(a, m)
N = Intersect(a, n)
O = Intersect(b, xAxis)
P = Intersect(c, xAxis)
Q = Intersect(d, xAxis)
R = Intersect(e, xAxis)
S = Intersect(h, xAxis)
T = Intersect(f, xAxis)
U = Intersect(i, xAxis)
V = Intersect(j, xAxis)
p = Line(K, L)
q = Segment(K, L)
u = Vector(D, O)
v = Vector(G, P)
w = Vector(E, Q)
z = Vector(M, K)
r = Vector(H, R)
s = Vector(B, S)
t_1 = Vector(I, T)
u_1 = Vector(N, L)
v_1 = Vector(F, U)
w_1 = Vector(J, V)
a_1 = OrthogonalLine(C, a)
W = Intersect(p, a_1)
z_1 = Vector(C, W)
Vieleck1, m_1, n_1, l_1, k_2 = Polygon(M, N, L, K)
Z = Point(p)
A_1 = (-25.443816268191274, -14.210969334719344)
B_1 = Point(p)
C_1 = (36.15081081081084, -14.495142931392941)
Vieleck2, a_2, c_1, b_1, z_2 = Polygon(A_1, C_1, B_1, Z)
Text1: "Sonnenenergie pro m² und Sekunde = " + (1367.0 * sin(α * 3.141592653589793 / 180.0)) + " J"
Text4: "Einfallswinkel = " + α + " ° "
o = false