U[V]

U_{max}[V]

T[ms]

R[Ω]

U_R

I

I[A]

I

U

U_R

U_L

U=U_L

U_R[V]

U_L[V]

U=U_L

t[ms]

P[W]

U_L

U

P

L[mH]

U_L

φ

L = 9.6 (slider from 3 to 20, step 0.1)
R = 0 (slider from 0 to 5, step 0.1)
T = 20 (slider from 5 to 30, step 1)
f: 1000 / T
ω: ((2 * pi) * f)
x_L: (ω * L / 1000)
t = 0 (slider from 0 to T, step 0.001)
x_m = 25
U_{max} = 10 (slider from 4 to 10, step 0.1)
Z: sqrt(R^(2) + x_L^(2))
φ: atan(((-x_L)) / R)
I_{max}: U_{max} / Z
k: x_m / T
O = (0, 0)
H = Intersect(xAxis, x = (x_m * T))
q_1 = false
o = true
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)))]
P_U: (t, (U_{max} * sin((ω * t / 1000))))
a = Segment(Cs_U, P_U)
α = Angle(O, O_1, Cs_I)
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}]) + "°"
szöveg16: "Impedancia =  " + (LaTeX[Z]) + "  \Omega"
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 = 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})
d = Segment(Cs_U, Cs_{UL})
fi = Angle(Cs_I, O_1, Cs_U)
P_P: (t, P(t))
m = Segment((t, P_{max}), (t, (-U_{max})))
U_L = Function(((I_{max} * x_L) * sin((ω * x / 1000) + φ + pi / 2)), 0, T)
q = Function((0 * x), 0, T)
A, B, C, D, E = Intersect(P, q, 0, T)
c = Integral(P, 0, x(B))
r = Integral(P, x(B), x(C))
s = Integral(P, x(C), x(D))
v = Integral(P, x(D), x(E))
poligon1, b = panelfentr1(70)

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)