r [cm]

I[A]

Földi mező ki/be

               Észak
(Jegesmedve lakhelye)

            Dél
(Pingvin lakhelye)

A vezeték és az iránytű távolsága R [cm]

A vezetékben folyó áramerősség [A]

------Áram

B_f = 25
r = 4.3 (slider from 1 to 5, step 0.1)
I = 0 (slider from -10 to 10, step 0.1)
BI: ((((100000 * 4) * π) * 10^(-7)) * I / 2 / π / ((r * 0.01)))
c = true
Bf: (c * 2.5)
B: (0, r, r)
A: (0, 0, r)
a = Line(A, B)
d = Circle(A, r, a)
O = (0, 0, 0)
C: (0, Bf, 0)
B_F = Vector(O, C)
D: ((-BI), 0, 0)
B_I = Vector(O, D)
E: ((-BI), Bf, 0)
u = Vector(O, E)
b = Segment(D, E)
h = Segment(E, C)
F = (0, 0)
alfa: atan(BI / Bf)
G: ((-3 * sin(alfa)), (3 * cos(alfa)))
poligon1, poligon2, H, J = iranytu(F, G)
k_1 = 5.0E-5
e: yAxis
R = Segment(A, O)
v: (I * UnitVector[a])
B' = Mirror(B, A)

Tool: iranytu
Input: A, B
Output: poligon1', poligon1, B', D

a = Line(A, B)
b = OrthogonalLine(A, a)
c = Distance(A, B)
d = Circle(A, c / 5)
C, D = Intersect(d, b)
B' = Mirror(B, b)
poligon1, c_1, b_1, d_1 = Polygon(B, D, C)
B'_2 = Mirror(B, b)
D'_1 = Mirror(D, b)
C'_1 = Mirror(C, b)
poligon1', c'_1, b'_2, d'_1 = Polygon(B'_2, D'_1, C'_1)

Tool: iranytu (command iranytu1)
Input: A, B
Output: poligon1', poligon1, B', D

a = Line(A, B)
b = OrthogonalLine(A, a)
c = Distance(A, B)
d = Circle(A, c / 5)
C, D = Intersect(d, b)
B' = Mirror(B, b)
poligon1, c_1, b_1, d_1 = Polygon(B, D, C)
B'_2 = Mirror(B, b)
D'_1 = Mirror(D, b)
C'_1 = Mirror(C, b)
poligon1', c'_1, b'_2, d'_1 = Polygon(B'_2, D'_1, C'_1)