U_{ki}

U_{ki}

U_{be}

U_{max}[V]

R[kΩ]

C[μF]

U_{ki}

t[ms]

U_{ki szűrt}

U_{be}

f = 50
T: 1000 / f
ω: ((2 * pi) * f)
U_d = 0.7
U_{max} = 13.8 (slider from 3 to 20, step 0.1)
U_{be0} = Function(((U_{max} - U_d) * sin(((ω * x) * 0.001))), 0, (3 * T))
R = 169 (slider from 20 to 200, step 1)
C = 2800 (slider from 1000 to 4700, step 100)
S_2 = Function(((U_{max} - U_d) * ℯ^(((-(x - (5 * T / 4)))) / (((R * C) * 0.001)))), (7 * T / 4), (9 * T / 4))
B = Intersect(U_{be0}, S_2, (7 * T / 4), (9 * T / 4))
tau: ((R * C) * 0.001)
S_1 = Function(((U_{max} - U_d) * ℯ^(((-(x - T / 4))) / tau)), (3 * T / 4), (5 * T / 4))
A = Intersect(U_{be0}, S_1, (3 * T / 4), (5 * T / 4))
t = 24.55 (slider from 0 to (3 * T), step 0.01)
U_{be} = Function((U_{max} * sin(((ω * x) * 0.001))), 0, (3 * T))
U_{kisz}(x) = If[0 < x ≤ T / 4 ∨ x(A) < x ≤ (5 * T / 4) ∨ x(B) < x ≤ (9 * T / 4), (((U_{max} - U_d) * R / (R + 0.2)) * sin(((ω * x) * 0.001))), If[T / 4 < x ≤ x(A), (((U_{max} - U_d) * R / (R + 0.2)) * ℯ^(((-(x - T / 4))) / tau)), If[(5 * T / 4) < x ≤ x(B), (((U_{max} - U_d) * R / (R + 0.2)) * ℯ^(((-(x - (5 * T / 4)))) / tau)), If[(9 * T / 4) < x ≤ (3 * T), (((U_{max} - U_d) * R / (R + 0.2)) * ℯ^(((-(x - (9 * T / 4)))) / tau))]]]]
U_{kiszr} = Function(U_{kisz}, 0, t)
U_{ki}(x) = If[(U_{max} * sin(((ω * x) * 0.001))) - U_d - (U_d * 0.2 / (R + 0.2)) > 0, (U_{max} * sin(((ω * x) * 0.001))) - U_d - (U_d * 0.2 / (R + 0.2)), 0]
U_{kir} = Function(U_{ki}, 0, t)
a = true
szöveg1: "frekvencia:" + (LaTeX[f]) + " Hz"
b = false
c = true
U_{ber}(x) = If[0 ≤ x ≤ 60, U_{be}(x)]