summaryrefslogtreecommitdiff
path: root/503/CH8/EX8.46/ch8_46.sci
blob: 3dfdf2fa9016dd55dd5cb275b117eeb76cf78840 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
//to find exciting emf neglecting saliency and accounting saliency

clc;
j=sqrt(-1);
Xd=.12/3;
Xq=.075/3;

disp('neglecting saliency');
Xs=Xd;
V=440;
pf=.8;
phi=acosd(pf);
Vt=V/sqrt(3);
Ia=1000;
Ef=Vt+j*Xs*Ia*complex(cosd(-phi),sind(-phi));
disp(abs(Ef)*sqrt(3),'excitation emf(line)(V)');
disp('accounting saliency');
w=atand((Vt*sind(phi)+Ia*Xq)/(Vt*cosd(phi)));
dl=w-phi;
Ef=Vt*cosd(dl)+Ia*sind(dl)*Xd;
disp(abs(Ef)*sqrt(3),'excitation emf(line)(V)');