U_{ki}

U_{be}

U_{ki}

\mathit U_{max} \; [V]

\mathit R \; [kΩ]

t[ms]

U_{be}

U_d = 0.7
U_{max} = 15 (slider from 3 to 20, step 1)
f = 50
ω: ((2 * pi) * f)
T: 1000 / f
R = 100 (slider from 0.2 to 200, step 0.1)
t = 45.14 (slider from 0 to (3 * T), step 0.01)
U_{be} = Function((U_{max} * sin(((ω * x) * 0.001))), 0, (3 * T))
U_{ki}(x) = If[(U_{max} * sin(((ω * x) * 0.001))) - (2 * U_d) - ((2 * U_d) * 0.2 / (R + 0.2)) > 0, (U_{max} * sin(((ω * x) * 0.001))) - (2 * U_d) - ((2 * U_d) * 0.2 / (R + 0.2)), If[((-U_{max}) * sin(((ω * x) * 0.001))) - (2 * U_d) - ((2 * U_d) * 0.2 / (R + 0.2)) > 0, ((-U_{max}) * sin(((ω * x) * 0.001))) - (2 * U_d) - ((2 * U_d) * 0.2 / (R + 0.2)), 0]]
U_{kir} = Function(U_{ki}, 0, t)
a = true
b = true
U_{be0} = Function((U_{max} * sin(((ω * x) * 0.001))) - (2 * U_d) - ((2 * U_d) * 0.2 / (R + 0.2)), 0, (3 * T))
szöveg1: "A  \; frekvencia:" + (LaTeX[f]) + " Hz"
U_{ber}(x) = If[0 ≤ x ≤ 40, U_{be}(x)]