Puissance instantanée: p(t)

v(t)

i(t)

I = 1.6 (slider from 0 to 3, step 0.1)
t = 0.0286 (slider from 0 to 0.04, step 1.0E-4)
O = Point(yAxis)
C = Point(xAxis)
a = Segment(C, O)
b = LineBisector(a)
A = Intersect(b, a)
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 = 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_1 = Function(f, x(B'), Infinity)
texte1: "t (ms)=" + (LaTeX[t * 1000]) + ""
D: (θ, 4.5)
e = Circle(A, I)
F = Point(e)
α = 2.007128639793479 rad (slider from 0 to 6.28, step 0.017453292519943295)
φ_1: α - π
n(x) = I * sin(θ + φ_1)
texte2: "φ = " + φ_1 + " rad"
m(x) = I * sin(x + φ_1)
p = Function(m, 0, θ)
F' = Rotate(F, θ + φ_1, A)
i = Vector(A, F')
φ = Angle(i, v)
q(x) = h(x) * m(x)
r = Function(q, 0, θ)