summaryrefslogtreecommitdiff
path: root/671/CH9/EX9.9/9_9.sce
blob: c1afd007bf0db92a97ca638b96b14529c42aae95 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

P=2
f=50
S=42
m=S/3/P
gammaa=%pi/3/m
Kb=sin(m*gammaa/2)/m/sin(gammaa/2)
coilpitch=17
polepitch=S/2
spa=(polepitch-coilpitch)*gammaa
Kp=cos(spa/2)

N=S*2
Nc=N/2
Coilsperphase=Nc/3
Nph=Coilsperphase/2
Eline=2300
flux=Eline/sqrt(3)/4.44/Kb/Kp/f/Nph
disp(flux)