Terre

Lune

animer

.reset   .

Expèrience 1

Expèrience 2

b = 20 (slider from 0 to 20, step 0.1)
A = (-10.65449134782892, -4.260731319554852)
a = 14.3 (slider from 5 to 20, step 0.1)
B: (x(A) + b, y(A))
C: (x(B), y(B) + a)
D: (x(A), y(C))
poly1, a_1, b_1, c, d = Polygon(A, B, C, D)
e = true
f = false
t = 15.706 (slider from 7 to 25, step h)
H: (x(A) + 1, y(A) + 1)
E = (-7.880007435433991, 0.10333863275039568)
F = (-8.206417307480454, -3.211446740858508)
I = (-7.372258745583939, -3.1875993640699547)
J = (-5.178059050160497, 3.0604133545310006)
g_1 = Line(E, J)
u = Vector(E, J)
xx: x(u) * (t - 11)
g = 1.6 (slider from 0 to 10, step 0.1)
yy: -0.5 * g * (t - 11)^(2) + y(u) * (t - 11)
K: (x(E) + xx, y(E) + yy)
L = (-8.859237051573379, -2.853736089030209)
o_1 = true
o = 5
G: (x(H) + 2, y(H))
M = (-7.807471908312555, -3.1875993640699547)
h = If(t < 11, 1, 0.0010)
N = (-0.7171241321921784, -1.9713831478537382)
O: (0.26211, y(N))
i = Segment(N, O)
P = Midpoint(i)
j = OrthogonalLine(P, i)
Q = Point(j)
k = Segment(Q, P)
R: (2.76458, y(Q))
l = Segment(Q, R)
S = Midpoint(l)
T: (x(S), y(S) - g / 10)
S' = Mirror(S, T)
T' = Mirror(T, S')
S'' = Mirror(S', T')
U = Midpoint(S, T)
V = Midpoint(T, S')
W = Midpoint(S', T')
Z = Midpoint(T', S'')
A_1 = Point(l)
m = OrthogonalLine(A_1, l)
U' = Mirror(U, m)
T'_1 = Mirror(T, m)
V' = Mirror(V, m)
S''_1 = Mirror(S', m)
W' = Mirror(W, m)
T'' = Mirror(T', m)
Z' = Mirror(Z, m)
S''' = Mirror(S'', m)
n = Segment(A_1, U)
p = Segment(U, T'_1)
q = Segment(T'_1, V)
r = Segment(V, S''_1)
s = Segment(S''_1, W)
c_1 = Segment(W, T'')
d_1 = Segment(T'', Z)
e_1 = Segment(Z, S''')
B_1 = Midpoint(S'', S''')
f_1 = Circle(B_1, S''')
C_1 = Intersect(f_1, m, 1)
h_1 = Segment(S''', C_1)
D_1: (x(C_1) - 0.5, y(C_1))
E_1 = Mirror(D_1, C_1)
F_1: (x(D_1), y(C_1) - 0.5)
G_1: (x(E_1), y(C_1) - 0.5)
poly2, d_2, e_2, g_2, f_2 = Polygon(D_1, E_1, G_1, F_1)
w = true
z = false
v = If(t < 12, 2, 0.4)
H_1: (-4.86978, y(E))
α = Angle(H_1, E, J)
dd: u^(2) * sin(2 * α) / g
I_1: (x(E) + dd, y(E))
fleche: (u * sin(α))^(2) / (2 * g)
K_1 = Midpoint(E, I_1)
J_1: (x(K_1), y(E) + fleche)
L_1: (1.31387, y(L))
i_1 = Line(L, L_1)
coef1: (-g) / (2 * u^(2) * cos(α)^(2))
ff(x) = coef1 * (x - x(E))^(2) + (x - x(E)) * tan(α) + y(E)
M_1, N_1 = Intersect(ff, i_1)