c = 2
T = 6.7 (slider from 1 to 40, step 0.1)
ΔH = 0 (slider from 0 to 1, step 0.1)
ΔT = 0 (slider from 0 to 5, step 0.1)
φ = 0 (slider from -5 to 5, step 0.1)
d = 5 (slider from 0 to 5, step 0.1)
t = 53 (slider from 0 to 80, step 0.1)
H = 1.5
λ: c * T
f(x) = H * sin(2.0 * 3.141592653589793 / λ * x - 2.0 * 3.141592653589793 / T * t)
g(x) = (H + ΔH) * sin(2.0 * 3.141592653589793 / λ * T / (T + ΔT) * x + 2.0 * 3.141592653589793 / (T + ΔT) * t + φ) - d
h(x) = g(x) + d + f(x) + 6.0
A = (-12.629171397940917, -10.076069515497888)
a = OrthogonalLine(A, xAxis)
B = Intersect(f, a, (-12.629171397940917, 1.1971277147015116))
C = Intersect(g, a, (-12.629171397940917, -5.299820923608419))
D = Intersect(h, a, (-12.629171397940917, 6.897306791093093))
b = OrthogonalLine(A, a)
E = Point(b)
F = Point(b)
G: (x(E), 10.0)
I: (x(F), 10.0)
poly1, g_1, i, f_1, e = Polygon(G, I, F, E)
distanceEF = Distance(E, F)
TexteEF: Name[E] + (Name[F]) + " \, = \, " + distanceEF
texte1: "d = " + distanceEF
texte2: "T = " + T + " ms" + "
c = " + c + "m/s" + "
λ = " + λ + " mm" + "
f  = " + (1.0 / T * 1000.0) + "Hz"