Nord

Six bobines

Quatre aimants

Deux aimants

Deux aimants

Graphiques

Flux magnétiques rassemblés

Tension redressée

Tensions individuelles

Flux magnétiques individuels

Tensions rassemblées

Tensions rassemblées

alpha = 9.91 (slider from 0 to 12.56637061, step 0.01)
G: (cos(alpha), sin(alpha))
H = Rotate(G, 1.5707963267948966)
I = Rotate(G, 3.141592653589793)
J = Rotate(G, -1.5707963267948966)
mag = 1 (slider from -2 to 2, step 0.25)
j = If(mag > 0, Vector[J * (1 + mag), J], Vector[J, J * (1 - mag)])
h = If(mag > 0, Vector[H * (1 + mag), H], Vector[H, H * (1 - mag)])
g = If(mag > 0, Vector[G, G * (1 + mag)], Vector[G * (1 - mag), G])
i = If(mag > 0, Vector[I, I * (1 + mag)], Vector[I * (1 - mag), I])
spires = 1 (slider from 1 to 5, step 1)
statN, a, b, d, e = Polygon((-0.5, 1.1), (0.5, 1.1), (0.5, 1.1 + spires / 10), (-0.5, 1.1 + spires / 10))
statS = Rotate(statN, 3.141592653589793)
statNO = Rotate(statN, 1.0471975511965976)
statNE = Rotate(statN, -1.0471975511965976)
statSO = Rotate(statN, 2.0943951023931953)
statSE = Rotate(statN, -2.0943951023931953)
f = true
OflN = (7, 2)
scaleX = 0.25
scaleY = 0.3
OflSE = (11, 2)
OflSO = (15, 2)
k = true
c = Circle((0, 0), G)
l = true
fluN = If(l, If[k, -cos(2 * alpha) * spires * mag, (abs(-cos(2 * alpha)) - cos(2 * alpha)) * spires * mag / 2], If[Mod[alpha, 6.28319] < π, (abs(-cos(2 * alpha)) - cos(2 * alpha)) * spires * mag / 2, 0])
fluSO = If(l, If[k, -cos(2 * (alpha - 2 * π / 3)) * spires * mag, (abs(-cos(2 * (alpha - 2 * π / 3))) - cos(2 * (alpha - 2 * π / 3))) * spires * mag / 2], If[Mod[alpha - 2 * π / 3, 6.28319] < π, (abs(-cos(2 * (alpha - 2 * π / 3))) - cos(2 * (alpha - 2 * π / 3))) * spires * mag / 2, 0])
fluSE = If(l, If[k, -cos(2 * (alpha + 2 * π / 3)) * spires * mag, (abs(-cos(2 * (alpha + 2 * π / 3))) - cos(2 * (alpha + 2 * π / 3))) * spires * mag / 2], If[Mod[alpha + 2 * π / 3, 6.28319] < π, (abs(-cos(2 * (alpha + 2 * π / 3))) - cos(2 * (alpha + 2 * π / 3))) * spires * mag / 2, 0])
PflN: OflN + (alpha * scaleX, fluN * scaleY)
PflSE: OflSE + (alpha * scaleX, fluSE * scaleY)
PflSO: OflSO + (alpha * scaleX, fluSO * scaleY)
VSE = If(l, If[k, sin(2 * (alpha + 2 * π / 3)) * spires * mag, If[(π / 12 < Mod[alpha, 3.141592653589793]) ∧ (Mod[alpha, 3.141592653589793] < 7 * π / 12), 0, sin(2 * (alpha + 2 * π / 3)) * spires * mag]], If[(π / 12 < Mod[alpha, 6.283185307179586]) ∧ (Mod[alpha, 6.283185307179586] < 19 * π / 12), 0, sin(2 * (alpha + 2 * π / 3)) * spires * mag])
VN = If(l, If[k, sin(2 * alpha) * spires * mag, If[(π / 4 < Mod[alpha, 3.141592653589793]) ∧ (Mod[alpha, 3.141592653589793] < 3 * π / 4), sin(2 * alpha) * spires * mag, 0]], If[(π / 4 < Mod[alpha, 6.28319]) ∧ (Mod[alpha, 6.28319] < 3 * π / 4), sin(2 * alpha) * spires * mag, 0])
VSO = If(l, If[k, sin(2 * (alpha - 2 * π / 3)) * spires * mag, If[(π / 12 < Mod[alpha - π / 3, 3.141592653589793]) ∧ (Mod[alpha - π / 3, 3.141592653589793] < 7 * π / 12), 0, sin(2 * (alpha - 2 * π / 3)) * spires * mag]], If[(7 * π / 12 < Mod[alpha - π / 3, 6.283185307179586]) ∧ (Mod[alpha - π / 3, 6.283185307179586] < 13 * π / 12), sin(2 * (alpha - 2 * π / 3)) * spires * mag, 0])
OVN = (7, 0)
OVSE = (11, 0)
OVSO = (15, 0)
m = Line(PflN, yAxis)
n = Line(PflSE, yAxis)
o = Line(PflSO, yAxis)
PVSO: OVSO + (alpha * scaleX, VSO * scaleY) + If[f, (0, VSO * scaleY), (0, 0)]
PVSE: OVSE + (alpha * scaleX, VSE * scaleY) + If[f, (0, VSE * scaleY), (0, 0)]
PVN: OVN + (alpha * scaleX, VN * scaleY) + If[f, (0, VN * scaleY), (0, 0)]
Ofl = (3, 2)
OV = (3, 0)
pVN: OV + (alpha * scaleX, VN * scaleY) + If[f, (0, VN * scaleY), (0, 0)]
pVSE: OV + (alpha * scaleX, VSE * scaleY) + If[f, (0, VSE * scaleY), (0, 0)]
pVSO: OV + (alpha * scaleX, VSO * scaleY) + If[f, (0, VSO * scaleY), (0, 0)]
pflN: Ofl + (alpha * scaleX, fluN * scaleY)
pflSE: Ofl + (alpha * scaleX, fluSE * scaleY)
pflSO: Ofl + (alpha * scaleX, fluSO * scaleY)
OVf = (3, -4)
pVf: OVf + (alpha * scaleX, (abs(VN) + abs(VSE) + abs(VSO)) * scaleY) + If[f, (0, abs(VN) + abs(VSE) + abs(VSO)) * scaleY, (0, 0)]
r_1 = false
t = false
u = false
v = false
p = Line(pflN, yAxis)
B = (-2, 1.1)
A = Intersect(e, a)
C: (-2, -1.1 - spires / 10)
D: (-0.5, -1.1 - spires / 10)
q = PolyLine(A, B, C, D)
E = Intersect(d, b)
F: (2, 1.1 + spires / 10)
K = (0.5, -1.1)
L = (2, -1.1)
a_1 = Segment(K, L)
b_1 = Segment(E, F)
A' = Rotate(A, 1.0471975511965976)
B' = Rotate(B, 1.0471975511965976)
C' = Rotate(C, 1.0471975511965976)
D' = Rotate(D, 1.0471975511965976)
r = PolyLine(A', B', C', D')
E' = Rotate(E, 1.0471975511965976)
F' = Rotate(F, 1.0471975511965976)
b_2 = Segment(E', F')
K' = Rotate(K, 1.0471975511965976)
L' = Rotate(L, 1.0471975511965976)
a_2 = Segment(K', L')
K'_1 = Rotate(K, -1.0471975511965976)
L'_1 = Rotate(L, -1.0471975511965976)
a_3 = Segment(K'_1, L'_1)
E'_1 = Rotate(E, -1.0471975511965976)
F'_1 = Rotate(F, -1.0471975511965976)
b_3 = Segment(E'_1, F'_1)
s = PolyLine(Rotate[A, -1.0471975511965976], Rotate[B, -1.0471975511965976], Rotate[C, -1.0471975511965976], Rotate[D, -1.0471975511965976])
w = false
M: G - (-sin(alpha), cos(alpha)) * 0.25
N = Mirror(M, G)
mag1, m_1, n_1, c_1, d_1, O, P = Polygon(M, N, 4)
Q = Midpoint(M, O)
mag2 = Rotate(mag1, 1.5707963267948966)
mag3 = Rotate(mag1, 3.141592653589793)
mag4 = Rotate(mag1, 4.71238898038469)
U = (0.2363073952809132, -0.5096657264362856)
V = (0.943094742004768, -0.4150563965598649)
Z = (0.4143955456365302, 0.9428657499017021)
A_1 = (0.5034396208143387, 0.2527741672736926)
B_1 = Midpoint(Z, A_1)
R = Rotate(Q, 1.5707963267948966)
S = Rotate(Q, 3.141592653589793)
T = Rotate(Q, 4.71238898038469)