blob: 4e7849668934b8b8918e2b59a375956ecdc874e2 (
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
|
clear;
//clc();
vl=400;
il=36;
pf=0.8;
p1=sqrt(3)*vl*il*pf;
op=15*746;
eff=0.85;
p2=op/eff;
//as per ques 26.7
p1=19.953;
p2=12.979;
q1=acosd(0.8);
q2=acosd(0.92);
qm=((p1*tand(q1)) - (p1+p2)*tand(q2))/p2;
pf=cosd(atand(qm));
printf("The power factor is:%.4f leading\n",pf);
lkvar=p2*(qm);
printf("The kVAr is:%.3f kVAr\n",lkvar);
kva=sqrt(p2*p2 + lkvar*lkvar);
printf("The kVA is:%.0f kVA\n",kva);
|
