summaryrefslogtreecommitdiff
path: root/503/CH5/EX5.4/ch5_4.sci
blob: 171bb33b9a980db88c25f6af344064f69b9651f3 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
// to calculate flux/pole

clc;
S=42;
p=2;
 f = 50;
ph=3;
m=S/(p*ph);    //slots/pole/phase
g=180*p/S;    //slots angle
K_b=sind(m*g/2)/(m*sind(g/2));    //breadth factor
cp=17;
pp=S/p;
theta_sp=(pp-cp)*g;    //short pitch angle
K_p=cosd(theta_sp/2);
N_ph=S*2/(ph*p*2);        //2 parallel paths
E_p=2300/sqrt(3);
phi=E_p/(4.44*K_b*K_p*f*N_ph);
disp(phi,'flux/pole(Wb)');