Segédvonalak

Segédvonalak

ÉO_Kv

A = (3.8439340317834443, 0)
Q_B = -2 (slider from -3 to 3, step 1)
Q_A = 2 (slider from -3 to 3, step 1)
l3: (Q_A ≤ 0) ∧ (Q_B ≤ 0)
B: ((2 * 5.5) - x(A), 0)
l4: sgn(Q_A) ≠ sgn(Q_B)
Ck = If(l3, ((A * Q_A) + (B * Q_B)) / (Q_A + Q_B), If[Q_A > 0, A, B])
ksz = 10
lista2: {(7.136838340741593, 0.010009680350053292), (7.125014403883408, 0.029903583256570478), (7.157896658106373, 0.02960158453212404), (7.160542894958952, 0.001760180738296941), (7.148609575315233, -0.001943537620736846), (7.138208339878832, 0.010277292059752145), (7.137873336893751, -0.04174786778221184), (7.151392938271385, -0.024146428907829677), (7.147745899679616, -0.00998104564520582), (7.157203589929606, 3.3070106148645924E-6), (NaN, NaN)}
a = Segment(A, B)
q = 1 (slider from -5 to 5, step 1)
dt = 0.05
n = 2.7 (slider from -5 to 5, step 0.1)
listarA = Sequence(Segment[A, Element[lista2, i]], i, 1, ksz)
l1 = false
listarB = Sequence(Segment[B, Element[lista2, i]], i, 1, ksz)
listaFa = Sequence(((9000 * Q_A) * q / Element[listarA, i]^(2) / 1000), i, 1, ksz)
listaua = Sequence(Vector[Translate[UnitVector[Element[listarA, i]], A]], i, 1, ksz)
listaFb = Sequence(((9000 * Q_B) * q / Element[listarB, i]^(2) / 1000), i, 1, ksz)
listaub = Sequence(Vector[Translate[UnitVector[Element[listarB, i]], B]], i, 1, ksz)
listaFA = Sequence(Vector[(Element[listaFa, i] * Element[listaua, i])], i, 1, ksz)
C': (-0.03 + ((x(Ck) + 6) * l3) + (x(B) * (Q_B > 0)) + ((x(A) * l4) * (Q_A > 0)), 0)
listaFB = Sequence(Vector[(Element[listaFb, i] * Element[listaub, i])], i, 1, ksz)
lista2': {(7.136838340741593, -0.010009680350053292), (7.157203589929606, -3.3070106148651074E-6), (7.147745899679616, 0.00998104564520582), (7.151392938271385, 0.024146428907829677), (7.137873336893751, 0.04174786778221184), (7.138208339878832, -0.010277292059752145), (7.148609575315236, 0.0019435376207367402), (7.160542894958952, -0.001760180738296941), (7.157896658106373, -0.02960158453212404), (7.125014403883408, -0.029903583256570478), (NaN, NaN)}
listarB' = Sequence(Segment[B, Element[lista2', i]], i, 1, ksz)
listarA' = Sequence(Segment[A, Element[lista2', i]], i, 1, ksz)
listaFa' = Sequence(((9000 * Q_A) * q / Element[listarA', i]^(2) / 1000), i, 1, ksz)
listaFb' = Sequence(((9000 * Q_B) * q / Element[listarB', i]^(2) / 1000), i, 1, ksz)
listaua' = Sequence(Vector[Translate[UnitVector[Element[listarA', i]], A]], i, 1, ksz)
listaub' = Sequence(Vector[Translate[UnitVector[Element[listarB', i]], B]], i, 1, ksz)
listaFA' = Sequence(Vector[(Element[listaFa', i] * Element[listaua', i])], i, 1, ksz)
listaFB' = Sequence(Vector[(Element[listaFb', i] * Element[listaub', i])], i, 1, ksz)
listaF' = Sequence(Vector[Element[listaFA', i] + Element[listaFB', i]], i, 1, ksz)
C: (0.03 + ((x(Ck) + 6) * l3) + (x(A) * (Q_A > 0)) + ((x(B) * l4) * (Q_B > 0)), 0)
l2: (Q_A > 0) ∧ (Q_B > 0)
listaF = Sequence(Vector[Element[listaFA, i] + Element[listaFB, i]], i, 1, ksz)
listaC = Sequence(Rotate[C, (180 + (180 / (ksz - (2 * ((Q_A + Q_B  <  0) ∧ (Q_A + Q_B > -3)))) * (1 + (0.5 * (l3 ∨ l4)))) + (360 / (ksz - (2 * ((Q_A + Q_B  <  0) ∧ (Q_A + Q_B > -3)))) * i))°, If[l3, Ck, If[Q_A > 0, A, B]]], i, 0, ksz - (2 * ((Q_A + Q_B  <  0) ∧ (Q_A + Q_B > -3))) - 1)
listaC' = Sequence(Rotate[C', ((-180 / (ksz - (2 * ((Q_A + Q_B  <  0) ∧ (Q_A + Q_B > -3)))) * (1 + (0.5 * (l3 ∨ l4)))) + (360 / (ksz - (2 * ((Q_A + Q_B  <  0) ∧ (Q_A + Q_B > -3)))) * i))°, If[l3, Ck, If[Q_B > 0, B, A]]], i, 0, ksz - (2 * ((Q_A + Q_B  <  0) ∧ (Q_A + Q_B > -3))) - 1)
D = (6.8591476315316084, 2.9369722991560017)
r_A = Segment(A, D)
r_B = Segment(B, D)
F_a: ((9000 * Q_A) * q / r_A^(2) / 2000)
F_b: ((9000 * Q_B) * q / r_B^(2) / 2000)
u = UnitVector(r_A)
u_A = Translate(u, C)
v = UnitVector(r_B)
u_B = Translate(v, C)
E_A = Translate(Vector[(u_A * F_a)], D)
E_B = Translate(Vector[(u_B * F_b)], D)
ΣE = Translate(Vector[E_A + E_B], D)
F_h = Length(ΣE)
D' = Translate(D, E_A)
D'_1 = Translate(D, E_B)
D'_2 = Translate(D, ΣE)
b = Segment(D'_2, D')
c = Segment(D'_2, D'_1)
l6 = false
poligon1, d = panelbalr1(240)
E = (-0.9212858925244412, 1.1869659745962795)
G = (-0.956758993697949, 0.21736787585373069)
H = (1.0770321402498333, 0.21736787585373069)
I = (1.0770321402498333, 1.2224390757697874)
poligon2, e, g, h, i = Polygon(E, G, H, I)
l5: false
l7: true

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)