503/CH5/EX5.12/ch5_12.sci


1
2
3
4
5
6
7
8
9
10

// to calculate resultant air gap flux/pole

clc;
F1=400;
F2=850;
a=123.6;
Fr=sqrt(F1^2+F2^2+2*F1*F2*cosd(a));
P=1.408*10^-4;        //permeance/pole
phi_r=P*Fr;
disp(phi_r,'air gap flux/pole(Wb)');