A = 1
t = -3 (slider from -3 to 15, step 0.1)
c = 1 (slider from 1 to 10, step 1)
s(x) = A * exp(-(t - x / c)^(2.0))
O: (0.0, s(0.0))
d = 10 (slider from 1 to 10, step 1)
M: (d, s(d))
M': (t, y(M) - 4.5)
O': (t, y(O) - 3.0)
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 + " s"