U_{ki}

U_{be}

U_{ki}

\mathit U_{max} \; [V]

\mathit R \; [kΩ]

t[ms]

U_{be}

U_d = 0.7
U_{max} = 20 (slider from 3 to 20, step 1)
f = 50
ω: ((2 * pi) * f)
T: 1000 / f
R = 100 (slider from 0.2 to 200, step 0.1)
t = 60 (slider from 0 to (3 * T), step 0.01)
U_{be0} = Function(((U_{max} - U_d) * sin(((ω * x) * 0.001))), 0, (3 * T))
U_{be} = Function((U_{max} * sin(((ω * x) * 0.001))), 0, (3 * 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
b = true
pf = 85
poligon1, c = panelfentr1(pf)
szöveg1_1: "A  \; frekvencia:" + (LaTeX[f]) + " Hz"
nyil = PolyLine(((-5 * (y(Corner[3]) - y(Corner[1])) / y(Corner[5])), y(Corner[3]) - ((pf * (y(Corner[3]) - y(Corner[1])))) / y(Corner[5]) - (5 * (y(Corner[3]) - y(Corner[1])) / y(Corner[5]))), (0, y(Corner[3]) - ((pf * (y(Corner[3]) - y(Corner[1])))) / y(Corner[5])), ((5 * (y(Corner[3]) - y(Corner[1])) / y(Corner[5])), y(Corner[3]) - ((pf * (y(Corner[3]) - y(Corner[1])))) / y(Corner[5]) - (5 * (y(Corner[3]) - y(Corner[1])) / y(Corner[5]))))
szöveg1 = Text("U [V]", ((5 * (y(Corner[3]) - y(Corner[1])) / y(Corner[5])), y(Corner[3]) - ((pf * (y(Corner[3]) - y(Corner[1])))) / y(Corner[5]) - (24 * (y(Corner[3]) - y(Corner[1])) / y(Corner[5]))))
A = (-68.08326407185254, -13.365589107901567)
B = (-6.792978700121164, -13.814593903332918)
U_{ber}(x) = If[0 ≤ x ≤ 60, U_{be}(x)]

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)