Période T

Amplitude A

Animer translation

T = 3 (slider from 0.5 to 4.5, step 0.5)
A = 2.5 (slider from 0.1 to 4, step 0.1)
f(x) = (A * cos(((2 * π) * x / T)))
A_0: (0, f(0))
A_1: (T, f(T))
u = Vector(A_0, A_1)
v = Vector(A_1, A_0)
g(x) = If[0 ≤ x ≤ T, f]
O: (0, 0)
B: (T, 0)
w = Vector(O, A_0)
a = Vector(A_0, O)
h = Segment(B, A_1)
n = 2 (slider from -6 to 6, step 1)
g_1 = Translate(g, Vector[(n * u)])