summaryrefslogtreecommitdiff
path: root/1118/CH26/EX26.11/eg26_11.sce
blob: 60e8dab6bbd506378a0203d9a6724a88a12269c2 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
clear;
//clc();
p=900;
q1=acosd(0.65);
x=1000;
y=0.15*2000;
pf=sqrt(1- (y/x)^2);
printf("The power factor is:%.4f lagging\n",pf);

q2=acosd(pf);
qc=p*(tand(q1)-tand(q2));
printf("The capacitance is:%.0f uF\n",qc);