Mozgasd!

Mozgasd!

U[V]

P[W]

Szinuszos feszültség effektív értékének vizsgálata

U_{max}[V]

T[s]

R[Ω]

P_{=}[W]

feszültségek

teljesítmények

Próbáld újra!

áramerősségek

I[A]

t[s]

U_{max} = 10 (slider from 0 to 10, step 0.1)
T = 1 (slider from 0.4 to 1, step 0.1)
ω: (2 * pi / T)
R = 6 (slider from 4 to 10, step 0.5)
I_{max}: U_{max} / R
U_{0-T}(x) = If[0 ≤ x ≤ T, (U_{max} * sin((ω * x)))]
I_{0-T}(x) = If[0 ≤ x ≤ T, (I_{max} * sin((ω * x)))]
P_{0-T} = Function((U_{0-T}(x) * I_{0-T}(x)), 0, T)
u = 7.0710678118654755 (slider from 0 to U_{max}, step 0.01)
O = (0, 0)
H = Intersect(xAxis, x = T)
B: (0, u)
E: (0, (y(B))^(2) / R)
F: (T, y(E))
n = Segment(E, F)
G = Intersect(n, x = T)
P_{max}: U_{max}^(2) / R
x_m = 1.1
y_m = 25.5
C: (T, y(B))
l = Segment(B, C)
w_{eff}, a, b, c, d = Polygon(O, E, F, H)
q = true
r = true
s = Segment(G, H)
o = true
szöveg14: "W_==" + (LaTeX[w_{eff}]) + "J"
v = Integral(P_{0-T}, 0, T)
szöveg3: "W_{alt}=" + (LaTeX[v]) + "J"
U_{eff}: sqrt((v * R / T))
I_{eff}: U_{eff} / R
q_1: abs(w_{eff} - v) < 0.25
szöveg16: "U_{eff}=" + (LaTeX[U_{eff}]) + "V"
szöveg18: "I_{eff}=" + (LaTeX[I_{eff}]) + "A"
poligon1, e = panelbalr11(200)
x_0 = -1
q_2 = true
szöveg12: "U_{=}[V]=" + (LaTeX[u]) + "V"

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)

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: panelbalr1 (command panelbalr11)
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)