summaryrefslogtreecommitdiff
path: root/503/CH8/EX8.16/ch8_16.sci
blob: 7a6b480209630dbe23d06400967f2a9c5b982817 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
//to find power angle,field current

clc;
j=sqrt(-1);
V=400;
Vt=V/sqrt(3);
pf=1;
Ia=50;
Xs=1.3;
Ef=Vt-j*Ia*Xs;
disp(-atand(imag(Ef)/real(Ef)),'power angle');

Pm=Vt*Ia*pf;
pff=.8;
Ia=Pm/(Vt*pff);
ang=acosd(pff);
Eff=sqrt((Vt*cosd(ang))^2+(Vt*sind(ang)+Ia*Xs)^2);
If=.9;
Iff=If*Eff/abs(Ef);
disp(Iff,'field current(A)');