Wechselstromleistung 

Frequenz f

Phasenverschiebung φ

U(t)

I(t)

P(t)

P_w

W

W_{max}

Zeit t

f = 50 (slider from 10 to 100, step 1)
U_s: 3.11
φ = 90 (slider from -90 to 90, step 1)
u(t) = (U_s * sin((((2 * π) * f) * t)))
U_{eff}: U_s / 2^(0.5)
I_{eff}: 1
I_s: (I_{eff} * 2^(0.5))
T: 1 / f
i(t) = (I_s * sin((((2 * π) * f) * t) + (φ * π / 180)))
P(t) = (u(t) * i(t))
a = false
b = false
c = false
W = Integral(P, 0, T)
Text4: "W=\int\limits_0^T P(t)\, dt \; = \;" + (LaTeX[W]) + " \,J

"
d = true
P_s: (U_{eff} * I_{eff})
Ps = Segment((0, P_s), (T, P_s))
W_{max} = Integral(P_s, 0, T)
Text5: "W_{max} = P_s · T = " + ((P_s * T)) + " J"
e = false