1376/CH16/EX16.13/16_13.sci


1
2
3
4
5
6
7
8
9

//16.13
clc;
W1=10;
W2=-1.2;
P_absorbed=W1+W2;
printf("\nPower=%.2f kW",P_absorbed)
phi=atand((3^0.5)*(W1-W2)/(W1+W2));
pf=cosd(phi);
printf("\nPower Factor=%.2f ",pf)