summaryrefslogtreecommitdiff
path: root/503/CH8/EX8.32/ch8_32.sci
blob: e6c9a3af761beaa81b9fc602299e09c771c47fb8 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
//to calculate syncronising power/elec deg,pu sync torque/mech deg

clc;
j=sqrt(-1);
Xd=.8;
Xq=.5;
Vt=1;
pf=.8;
phi=acosd(pf);
Ia=1*complex(cosd(phi),sind(phi));

Ef=Vt-j*Ia*Xq;
Eff=abs(Ef);
dl=atand(imag(Ef)/real(Ef));
w=-dl+phi;
Id=abs(Ia)*sind(w);
Ef=Eff+Id*(Xd-Xq);

Psyn=abs(Ef)*Vt*cosd(dl)/Xd+Vt^2*((Xd-Xq)/(Xd*Xq))*cosd(2*dl);
disp(Psyn*(%pi/180),'syncronising power(pu)/elec deg');
f=50;
P=12;
n_s=(120*f/P)*(2*%pi/60);
Tsyn=Psyn/n_s;disp(Tsyn,'pu sync torque/mech deg');