Szuperpozíció szemléltetése
Author: Varga Zsolt
Date: 29 Március 2015

$ %n=%v \space μC $

$ %n=%v \space μC $

Q_1

Q_2

$Nagyítás$

$ %n \space =\space %v \space m$

$ %n \space =\space %v \space m$

E_1

E_2

E_e

$ %n \space =\space %v \space m$

Nagyítás

Q_1 = 3.8 (slider from -5 to 5, step 0.001)
Q_2 = -2.467 (slider from -5 to 5, step 0.001)
P_1 = (-1.0295949954237384, 2.7210679305129117)
P = (9.692081240666514, 6.703405513929927)
r_1 = Distance(P_1, P)
P_2 = (11.902860757906836, -1.5743955835458403)
r_2 = Distance(P_2, P)
k = 9.0E9
E_2: ((k * 10^((-6))) * Q_2 / r_2^(2))
E_1: ((k * 10^((-6))) * Q_1 / r_1^(2))
k_E = 0.0084 (slider from 0.001 to 0.01, step 1.0E-4)
E_{1v}: (E_1 * k_E)
E_{2v}: (E_2 * k_E)
d_1 = Segment(P_1, P)
d_2 = Segment(P_2, P)
e_1 = UnitVector(d_1)
e_2 = UnitVector(d_2)
E_{1ve}: (e_1 * E_{1v})
E_{2ve}: (e_2 * E_{2v})
E_{ev}: E_{1ve} + E_{2ve}
a: sgn(Q_1)
i_1 = If(Q_1 > 0, true)
i_2 = If(Q_2 > 0, true)
d = Segment(P_1, P_2)
poligon1, b = panelbalr1(200)
szöveg1: "E_1 \space = \space " + (LaTeX[E_1]) + " \space \frac{N}{C}"
szöveg2: "E_2 \space = \space " + (LaTeX[E_2]) + "\space \frac{N}{C}"
E_{evsz}: Length[E_{ev}] / k_E
szöveg3: "E_e \space = \space " + (LaTeX[E_{evsz}]) + "\space \frac{N}{C}"
P' = Translate(P, E_{ev})
P'_1 = Translate(P, E_{1ve})
P'_2 = Translate(P, E_{2ve})
c = Segment(P'_1, P')
e = Segment(P'_2, P')
α = Angle(E_{2ve}, E_{ev})
szöveg4: "Q_1 \space = \space " + (LaTeX[Q_1]) + "  \space \mu C"
szöveg5: "Q_2 \space = \space  " + (LaTeX[Q_2]) + "  \space \mu C"

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)