A = 1
t = -3 (slider from -3 to 48, step 0.1)
c = 1 (slider from 1 to 10, step 1)
s1(x) = A * exp(-(t - x / c)^(2.0))
T = 12 (slider from 4 to 12, step 2)
s6(x) = A * exp(-(t - x / c - 5.0 * T)^(2.0))
s5(x) = A * exp(-(t - x / c - 4.0 * T)^(2.0))
s4(x) = A * exp(-(t - x / c - 3.0 * T)^(2.0))
s3(x) = A * exp(-(t - x / c - 2.0 * T)^(2.0))
s2(x) = A * exp(-(t - x / c - T)^(2.0))
s(x) = s1(x) + s2(x) + s3(x) + s4(x) + s5(x) + s6(x)
d = 10 (slider from 5 to 10, step 0.1)
M: (d, s(d))
O: (0.0, s(0.0))
O': (t / 4.0, y(O) - 3.0)
M': (t / 4.0, y(M) - 4.5)
B = Point(a)
C = Point(a)
D: (x(B), -(1.5))
E: (x(C), -(1.5))
poly1, d_1, b, c_1, e = Polygon(D, B, C, E)
distanceBC = Distance(B, C)
TexteBC: Name[B] + (Name[C]) + " \, = \, " + distanceBC
texte1: "Δt = " + (distanceBC * 4.0) + " s"