t = 0.0217 (slider from 0 to 0.04, step 1.0E-4)
fréq = 50 (slider from 0 to 100, step 5)
V = 2.4 (slider from 0 to 3, step 0.1)
ω: 2 * π * fréq
θ: ω * t
f(x) = V * sin(θ)
C = Point(xAxis)
O = Point(yAxis)
a = Segment(C, O)
b = LineBisector(a)
A = Intersect(b, a)
c = Circle(A, V)
B = Intersect(c, a, 2)
B' = Rotate(B, θ, A)
h(x) = V * 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)