t = 0.04 (slider from 0 to 0.04, step 1.0E-4)
fréq = 50 (slider from 0 to 100, step 5)
Amplitude = 3 (slider from 0 to 5, step 0.5)
ω: 2 * π * fréq
θ: ω * t
f(x) = Amplitude * sin(θ)
C = Point(xAxis)
O = Point(yAxis)
a = Segment(C, O)
b = LineBisector(a)
A = Intersect(b, a)
c = Circle(A, Amplitude)
B = Intersect(c, a, 2)
B' = Rotate(B, θ, A)
h(x) = Amplitude * sin(x)
g = Function(h, 0, θ)
v = Vector(A, B')
N: (θ; 0)
M: (θ, f(θ))
d = Segment(N, M)
i = Function(f, x(B'), Infinity)
texte1: "t (ms)=" + (LaTeX[t * 1000]) + ""
D: (θ, 4.5)
α = Angle(O, A, B')
E = Intersect(d, e)
distanceOE = Distance(O, E)
TexteOE: Name[O] + (Name[E]) + " \, = \, " + distanceOE