c = 1

ψ(x,t)

f(x) = If[x > 0 ∧ x < 2, ((-x^(3)) * (x - 2)^(3)), 0]
g(x) = f(((x / 6 - floor(x / 6)) * 6))
t = -0.9 (slider from -3 to 9)
B: (6, 0)
A: (0, 0)
i = Segment(A, B)
a = Div(7, 3)
h(x) = If[0 < x < 6, (-g(-6 - x - t)) + g(x + 6 - t)]
p(x) = g(x + 6 - t)
q(x) = (-g(-6 - x - t))
C = (-1.819433568082573, 2.963090498964503)
D = (-1.2889630008970296, 2.963090498964503)
E = (-1.8281707303656294, 3.9528018774264186)