Marées : simulation statique
Author: phm - Obs. Lyon - France

Terre

Lune

Océan

Points sur la Terre

Hauteur d'eau

Variations amplitudes

Terre

Lune

Océan

Points sur la Terre

Hauteur d'eau

Variations amplitudes

Marée basse

Marée haute

Visibilité :
Faire monter le curseur de repère en repère

Animation

em = 0.65
b = 1.1
a = 1.4
P_L = 29.530588853
t = 17.255 (slider from 0 to 30, step 0.0050)
θ: t * 2.0 * 3.141592653589793
t_1 = Circle((0.0, 0.0), 1.0)
A: (1.0; θ)
B: (1.0; θ - 3.141592653589793 / 2.0)
d_{TL} = 3
C_L: (d_{TL}; θ / P_L)
lune = Circle(C_L, 0.3)
e = 0.1
ocean = Ellipse((em * a; θ / P_L + 3.141592653589793), (em * a; θ / P_L), (b; θ / P_L + 3.141592653589793 / 2.0))
A' = Intersect(ocean, Ray[(0.0, 0.0), A])
h_A = Distance(A, A')
B' = Intersect(ocean, Ray[(0.0, 0.0), B])
h_B = Distance(B, B')
texte2: "Marée A : " + h_A + "
Marée B : " + h_B
s_A = Segment(A, A')
s_B = Segment(B, B')
texte1: "Temps : " + (floor(t)) + "j  " + (floor((t - floor(t)) * 24.0)) + "h" + (60.0 * (24.0 * t - floor(24.0 * t))) + "min"
P_A: (t / 5.0 - 3.0, -(2.5) + h_A * 2.5)
P_B: (t / 5.0 - 3.0, -(2.5) + h_B * 2.5)
c = 0 (slider from 0 to 10, step 1)
h = 0.155
trt = Sequence(Segment[(-(3.35), 0.3 + i * h), (-(3.35) - e, 0.3 + i * h)], i, 0.0, 5.0)