summaryrefslogtreecommitdiff
path: root/503/CH8/EX8.28/ch8_28.sci
blob: afbb7622b6667d8c19f41ed29037a676444b7dd8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
//to find max pu power, pu armature current, pu reactive power

clc;
Vt=1;
Xd=1.02;
Xq=.68;
Pmmax=Vt^2*(Xd-Xq)/(2*Xd*Xq);disp(Pmmax,'max pu power');
dl=.5*asind(Pmmax/(Vt^2*(Xd-Xq)/(2*Xd*Xq)));

Id=Vt*cosd(dl)/Xd;
Iq=Vt*cosd(dl)/Xq;
Ia=sqrt(Id^2+Iq^2);disp(Ia,'armature current(pu)');

Qe=Id*Vt*cosd(dl)+Iq*Vt*sind(dl);disp(Qe,'reactive power(pu)');

pf=cosd(atand(Qe/Pmmax));disp(pf,'pf');