\mathit U[V]

\mathit T \; [ms]

\mathit R \; [Ω]

U_R

I

\mathit I[A]

\mathit I

\mathit U

U_R

\mathit U_R

\mathit  U_L

\mathit  U_R[V]

\mathit U_L[V]

\mathit t[ms]

\mathit P[W]

U_L

U

P

\mathit L \; [mH]

U_L

\mathit C \; [μF]

U_C

\mathit U_{LC}

φ

\mathit U_C

\mathit U_C[V]

φ

rezonancia

Feszültség \; rezonancia!

Teljesítmények:

C = 5646 (slider from 100 to 6000, step 1)
T = 30 (slider from 5 to 30, step 0.5)
f: 1000 / T
ω: ((2 * pi) * f)
x_C: 1 / ω / ((C * 10^(-6)))
R = 7 (slider from 4 to 10, step 1)
L = 20 (slider from 1 to 20, step 0.1)
x_L: (ω * L / 1000)
t = 0 (slider from 0 to 20, step 0.001)
x_m = 20
Z: sqrt(R^(2) + (x_L - x_C)^(2))
U_{max} = 8 (slider from 4 to 10, step 0.1)
φ: atan((x_L - x_C) / R)
I_{max}: U_{max} / Z
U_T = Function((U_{max} * sin((ω * x))), 0, T)
I_T = Function((I_{max} * sin((ω * x))), 0, T)
k: x_m / T
O = (0, 0)
q_1 = true
o = true
T_{1/2}: T / 2
P_I: (t, (I_{max} * sin((ω * t / 1000))))
Cs_I: (((-x_m)) / 2 + (I_{max} * cos((ω * t / 1000))), (I_{max} * sin((ω * t / 1000))))
g = Segment(Cs_I, P_I)
O_1: (((-x_m)) / 2, 0)
i = Vector(O_1, Cs_I)
Cs_U: (((-x_m)) / 2 + (U_{max} * cos((ω * t / 1000) + φ)), (U_{max} * sin((ω * t / 1000) + φ)))
u = Vector(O_1, Cs_U)
h = Circle(O_1, Cs_I)
p = Circle(O_1, Cs_U)
I(x) = If[0 ≤ x ≤ T, (I_{max} * sin((ω * x / 1000)))]
U(x) = If[0 ≤ x ≤ T, (U_{max} * sin((ω * x / 1000) + φ))]
P_U: (t, (U_{max} * sin((ω * t / 1000) + φ)))
a = Segment(Cs_U, P_U)
α = Angle(O, O_1, Cs_I)
Cs_{UR}: (((-x_m)) / 2 + ((I_{max} * R) * cos((ω * t / 1000))), ((I_{max} * R) * sin((ω * t / 1000))))
P_{UR}: (t, ((I_{max} * R) * sin((ω * t / 1000))))
b = Segment(Cs_{UR}, P_{UR})
u_R = Vector(O_1, Cs_{UR})
l = Segment(Cs_U, Cs_{UR})
szöveg15: "Időpillanat = " + (LaTeX[t]) + " [ms]"
szöveg3: "Frekvencia = " + (LaTeX[f]) + " [Hz]"
φ_{fok}: (φ * 180 / pi)
szöveg18_1: "Fáziseltolódás =" + (LaTeX[φ_{fok}]) + "°"
P(x) = If[0 ≤ x ≤ T, (U(x) * I(x))]
P_{max}: ((U_{max} * I_{max} / 2) * (cos(φ) + 1))
q_2 = true
q_3 = true
q_4 = true
Cs_{UL}: (((-x_m)) / 2 + ((I_{max} * x_L) * cos((ω * t / 1000) + pi / 2)), ((I_{max} * x_L) * sin((ω * t / 1000) + pi / 2)))
P_{UL}: (t, ((I_{max} * x_L) * sin((ω * t / 1000) + pi / 2)))
n = Segment(Cs_{UL}, P_{UL})
u_L = Vector(O_1, Cs_{UL})
P_P: (t, P(t))
m = Segment((t, P_{max}), (t, (-U_{max})))
q_5 = true
Cs_{UC}: (((-x_m)) / 2 + ((I_{max} * x_C) * cos((ω * t / 1000) - pi / 2)), ((I_{max} * x_C) * sin((ω * t / 1000) - pi / 2)))
P_{UC}: (t, ((I_{max} * x_C) * sin((ω * t / 1000) - pi / 2)))
c = Segment(Cs_{UC}, P_{UC})
u_C = Vector(O_1, Cs_{UC})
u_{LC}: u_L + u_C
Cs_{ULC}: (((-x_m)) / 2 + x(u_{LC}), y(u_{LC}))
d = Segment(Cs_U, Cs_{ULC})
fi1 = Angle(Cs_I, O_1, Cs_U)
fi2 = Angle(Cs_U, O_1, Cs_I)
q: abs(x_L - x_C) < 0.05
ind = If(x_L > x_C, true, false)
kap = If(x_L < x_C, true, false)
jel = If(abs(x_L - x_C) < 0.1, true, false)
M_1: ((-φ) * 1000 / ω)
e = Integral(P, 0, M_1)
j = Segment((-12.5, 0), (-2, 0))
P_h: ((U_{max} * I_{max}) * cos(φ) / 2)
P_m: ((U_{max} * I_{max}) * sin(φ) / 2)
P_l: (U_{max} * I_{max} / 2)
poligon1, e_1 = panelfentr1(70)
poligon2, r = panelbalr1(200)
A: (M_1, 0)
elojel: sgn(φ)
d_1 = Integral(P, M_1, T / 2)
b_1 = Integral(P, T / 2 + M_1, T)
c_1 = Integral(P, 0, T / 2 + M_1)
f_1 = Integral(P, T / 2 + M_1, T / 2)
g_1 = Integral(P, T / 2, T + M_1)
h_1 = Integral(P, T + M_1, T)
a_1 = Integral(P, T / 2, T / 2 + M_1)
szöveg16: "Impedancia =  " + (LaTeX[Z]) + "  [\Omega]"
szöveg13_1: "Meddő=" + (LaTeX[P_m]) + " \; [VAR]"
szöveg10_1: "Látszólagos=" + (LaTeX[P_l]) + " \; [VA]"
szöveg5_1: "Hatásos=" + (LaTeX[P_h]) + " \; [W]"
U_C(x) = If[0 ≤ x ≤ T, ((I_{max} * x_C) * sin((ω * x / 1000) - pi / 2))]
U_R(x) = If[0 ≤ x ≤ T, ((I_{max} * R) * sin((ω * x / 1000)))]
U_L(x) = If[0 ≤ x ≤ T, ((I_{max} * x_L) * sin((ω * x / 1000) + pi / 2))]

Tool: panelbalr1
szám
Input: n
Output: poligon1, t

poligon1 = AttachCopyToView(Polygon[(0, 0), (1, 0), (1, 1), (0, 1)], 1, (0, 0), (1, 1), (0, 0), (n, y(Corner[5])))
A, B, C, D = Vertex(poligon1)
t = Segment(B, C)

Tool: panelfentr1
szám
Input: n
Output: poligon1, t

poligon1 = AttachCopyToView(Polygon[(0, 0), (1, 0), (1, 1), (0, 1)], 1, (0, 0), (1, 1), (0, 0), (x(Corner[5]), n))
A, B, C, D = Vertex(poligon1)
t = Segment(C, D)