U[V]

U_{max}[V]

T[ms]

R[Ω]

U_R

I

I[A]

I

U

C[μF]

U_R

U_R

U_C

U_C

φ

U=U_C

U_R[V]

U_C[V]

U=U_C

t[ms]

P[W]

U_C

U

P

Q[mC]

Q

t[ms]

t: 0
x_m = 28
T = 30 (slider from 5 to 30, step 1)
f: 1000 / T
ω: ((2 * pi) * f)
U_{max} = 7.6 (slider from 5 to 10, step 0.1)
R = 0 (slider from 0 to 5, step 0.1)
C = 1600 (slider from 500 to 2000, step 100)
X_C: 1 / ω / ((C * 10^(-6)))
φ: (-atan(X_C / R))
Z: sqrt(R^(2) + X_C^(2))
I_{max}: U_{max} / Z
U_T = Function((U_{max} * sin((ω * x))), 0, T)
k: x_m / T
O = (0, 0)
H = Intersect(xAxis, x = (x_m * T))
q_1 = true
o = true
x_0 = -1 (slider from -5 to 5, step 1)
e = Segment(O, H)
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)))]
U_C = Function(((I_{max} * X_C) * sin((ω * x / 1000) - φ - pi / 2)), 0, T)
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) - φ)))
Cs_{UC}: (((-x_m)) / 2 + ((I_{max} * X_C) * cos((ω * t / 1000) - φ - pi / 2)), ((I_{max} * X_C) * sin((ω * t / 1000) - φ - pi / 2)))
P_{UR}: (t, ((I_{max} * R) * sin((ω * t / 1000) - φ)))
b = Segment(Cs_{UR}, P_{UR})
P_{UC}: (t, ((I_{max} * X_C) * sin((ω * t / 1000) - φ - pi / 2)))
c = Segment(Cs_{UC}, P_{UC})
u_R = Vector(O_1, Cs_{UR})
u_C = Vector(O_1, Cs_{UC})
l = Segment(Cs_U, Cs_{UR})
d = Segment(Cs_U, Cs_{UC})
fi = Angle(Cs_U, O_1, Cs_I)
m = Segment((t, U_{max}), (t, (-U_{max})))
szöveg15: "Időpillanat = " + (LaTeX[t]) + " [ms]"
szöveg3: "Frekvencia = " + (LaTeX[f]) + " [Hz]"
φ_{fok}: (φ * 180 / pi)
P = Function((U(x) * I(x)), 0, T)
P_{max}: ((U_{max} * I_{max} / 2) * (cos(φ) + 1))
q_2 = false
q_3 = true
q_4 = false
Q = Function((C * U_C(x) / 1000), 0, T)
n = false
U_R = Function(((I_{max} * R) * sin((ω * x / 1000) - φ)), 0, T)
φ_{fok+}: (-φ_{fok})
szöveg18_1: "Fáziseltolódás =" + (LaTeX[φ_{fok+}]) + "°"
j = Segment((-24, 0), (-1, 0))
q = Integral(P, 0, T / 4)
r = Integral(P, T / 4, T / 2)
s = Integral(P, T / 2, (3 * T / 4))
v = Integral(P, (3 * T / 4), T)
szöveg16: "Kapacitív ellenállás =  " + (LaTeX[Z]) + "  \Omega"
poligon1, a_1 = panelfentr1(100)

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)