summaryrefslogtreecommitdiff
path: root/503/CH8/EX8.43/ch8_43.sci
blob: 690ce68077229dffc7a1484657e2cb826c2cdb1f (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
26
27
28
29
30
31
32
//to clculate pf angle, torque angle,equivalent capicitor and inductor value

clc;
of1=250;
scr=.52;    //short ckt ratio
of2=of1/scr;
r=25*10^6;
V=13000;
Ia=r/(sqrt(3)*V);
Isc=Ia*of1/of2;
Xs=V/(sqrt(3)*Isc);
Xb=V/(sqrt(3)*Ia);
Xsadj=Xs/Xb;

f=50;
If=200;
Ef=V*If/of1;
Vt=V/sqrt(3);
Ia=(Vt-Ef/sqrt(3))/Xs;
dl=0;disp(dl,'torque angle(deg)');
pf=90;disp(pf,'pf angle(deg)');
L=(V/(sqrt(3)*Ia))/(2*%pi*f);
disp(L,'inductor value(H)');

If=300;
Eff=V*If/of1;
Vt=Ef/sqrt(3);
Ia=(Eff/sqrt(3)-Vt)/Xs;
dl=0;disp(dl,'torque angle(deg)');
pf=90;disp(pf,'pf angle(deg)');
c=1/((V/(Ia))*(2*%pi*f));
disp(c,'capacitor value(F)');