Sphere terrestre
Author: Daniel Mentrard

Fermé

Ouvert

North

South

West

East

12 h

9 h

15 h

6 h

18 h

21 h

0 h

3 h

Animation

Summer

Hiver

Day

Night

t = 0.83 (slider from 0 to 6.283, step 0.01)
Diamètre = 5 (slider from -5 to 5, step 0.1)
O = (-2.992763244367935, -3.422043532967479)
B_1 = (-10.486749977942127, -5.783404628474384)
Mouvement = (2.7714054726180337, -6.00157680677474)
xa: x(Mouvement)
sinphi: sin(xa)
cosphi: cos(xa)
ya: y(Mouvement)
sintheta: sin(ya)
costheta: cos(ya)
Zoom = 1 (slider from 1 to 2, step 0.1)
Y: (x(B_1) + Zoom * cosphi, y(B_1) + Zoom * sinphi * sintheta)
v = Vector(B_1, Y)
xy: -(Zoom) * cosphi * sintheta
X: (x(B_1) + Zoom * sinphi, y(B_1) + xy)
u = Vector(B_1, X)
O'_2 = Translate(O, Vector[Diamètre * u])
O'' = Mirror(O'_2, O)
g = Segment(O'', O'_2)
Z: (x(B_1), y(B_1) + Zoom * costheta)
w = Vector(B_1, Z)
O'_3 = Translate(O, w)
Inc = 50 (slider from 27 to 55, step 0.1)
haut: 0.07 * (Inc - 23.0) - 0.6
B = Translate(O, Vector[haut * w])
D: B - Diamètre * (sin(Inc°) * sin(-(t)) * w + cos(Inc°) * sin(-(t)) * u - cos(-(t)) * v)
A = (-2.7434830869590434, -2.2621118396217335)
k = 360 (slider from 320 to 360, step 1)
Face = 100 (slider from 3 to 100, step 1)
m = 1.8 (slider from -5 to 340, step 0.1)
N = Translate(O, v)
K = Translate(O, u)
k_1 = 1 (slider from -5 to 5, step 0.1)
a = OrthogonalLine(Mouvement, yAxis)
b = OrthogonalLine(Mouvement, xAxis)
c: cos(ya)
G = Translate(O, w)
e = Line(O, G)
d = Circle((x(A), y(A)), 4.0 * Zoom)
liste6 = Sequence((x(B), y(B)) + Diamètre * (sin(Inc°) * sin(i°) * w + cos(Inc°) * sin(i°) * u - cos(i°) * v), i, 0.0, k, k / Face)
liste8 = Sequence((x(O), y(O)) - Diamètre * (sin(m°) * sin(i°) * v + cos(m°) * cos(0.0°) * sin(i°) * u - cos(i°) * v), i, 0.0, k, k / Face)
liste1 = Sequence(Polygon[Element[liste6, i], Element[liste6, i + 1.0], B], i, 1.0, Length[liste6])
liste4 = Sequence(Segment[Element[liste8, i], Element[liste8, i + 1.0]], i, 1.0, Length[liste8])
liste7 = Sequence((x(B), y(B)) + Diamètre * (sin(m°) * sin(i°) * v + cos(m°) * sin(i°) * u - cos(i°) * v), i, 0.0, k, Face)
h = CurveCartesian(x(B - Diamètre * (sin(Inc°) * sin(i°) * v + cos(Inc°) * sin(i°) * u - cos(i°) * w)), y(B - Diamètre * (sin(Inc°) * sin(i°) * v + cos(Inc°) * sin(i°) * u - cos(i°) * v)), i, 0.0, k)
O'_1 = Translate(O, Vector[Diamètre * v])
O''_1 = Mirror(O'_1, O)
liste3 = Sequence(Polygon[Element[liste8, i], Element[liste8, i + 1.0], O], i, 1.0, Length[liste6])
j = Segment(O'_1, O''_1)
liste5 = Sequence(Segment[Element[liste6, i], Element[liste6, i + 1.0]], i, 1.0, Length[liste6])
liste2 = Sequence(Segment[Element[liste6, i], Element[liste6, i + 1.0]], i, 1.0, Length[liste6])
liste9 = Sequence((x(B), y(B)) + Diamètre * (sin(Inc°) * sin(i°) * w + cos(Inc°) * sin(i°) * u - cos(i°) * v), i, 0.0, k, k / 24.0)
C: B - Diamètre * (sin(Inc°) * sin(-(3.141592653589793) / 2.0) * w + cos(Inc°) * sin(-(3.141592653589793) / 2.0) * u - cos(-(3.141592653589793) / 2.0) * v)
E: B - Diamètre * (sin(Inc°) * sin(-(3.141592653589793) / 4.0) * w + cos(Inc°) * sin(-(3.141592653589793) / 4.0) * u - cos(-(3.141592653589793) / 4.0) * v)
F: B - Diamètre * (sin(Inc°) * sin(-(3.0) * 3.141592653589793 / 4.0) * w + cos(Inc°) * sin(-(3.0 * 3.141592653589793) / 4.0) * u - cos(-(3.0 * 3.141592653589793) / 4.0) * v)
H: B - Diamètre * (sin(Inc°) * sin(-(0.0 * 3.141592653589793) / 2.0) * w + cos(Inc°) * sin(-(0.0 * 3.141592653589793) / 2.0) * u - cos(-(0.0 * 3.141592653589793) / 2.0) * v)
H' = Mirror(H, B)
C' = Mirror(C, B)
F' = Mirror(F, B)
E' = Mirror(E, B)
p = Circle(D, 0.4)
f = Circle((x(O), y(O)), Diamètre * Zoom)
q = Circle(D, 0.4)
i = Line(O'_1, g)
l = Line(O''_1, g)
n = Line(O'', j)
r = Line(O'_2, j)
I = Intersect(i, n)
J = Intersect(n, l)
L = Intersect(l, r)
M = Intersect(i, r)
poly1, i_1, m_1, l_1, j_1 = Polygon(I, M, L, J)
c_1 = Segment(C, B)
s = Line(O'_3, c_1)
O' = Translate(O, Vector[haut * 2.0 * cos(Inc°) * u])
liste10 = Sequence((x(O'), y(O')) + Diamètre * (sin(0.0°) * sin(i°) * w + cos(0.0°) * sin(i°) * u - cos(i°) * v), i, 0.0, k, k / 24.0)
Q: O' - Diamètre * (sin(0.0°) * sin(-(t) + 3.141592653589793) * w + cos(0.0°) * sin(-(t + 3.141592653589793)) * u - cos(-(t + 3.141592653589793)) * v)
e_1 = Segment(O'_3, Q)
liste11 = Sequence((x(O'), y(O')) + Diamètre / sin(t) * cos(Inc°) * (sin(0.0°) * sin(i°) * w + cos(0.0°) * sin(i°) * u - cos(i°) * v), i, 0.0, k, k / 24.0)
P: O' - Diamètre / sin(t) * cos(Inc°) * (sin(0.0°) * sin(-(t) + 3.141592653589793) * w + cos(0.0°) * sin(-(t + 3.141592653589793)) * u - cos(-(t + 3.141592653589793)) * v)
a_1 = Segment(O, P)
o = true
aa = If(Inc > 45.0, 3.665191429188092, 3.141592653589793)
bb = If(Inc > 45.0, t, 5.0)
texte19: "" + aa
texte20: "" + aa
texte21: "" + bb
Speed = 0.3 (slider from 0 to 5, step 0.1)
d_1 = Circle(D, 0.4)
col = If(t > aa ∧ bb > 3.67 ∧ bb < 5.92, 1.0, 0.0)
heure: t * 12.0 / 3.141592653589793 + 6.0
z: floor(Mod[heure, 24.0])
texte22: "" + z + " h"