summaryrefslogtreecommitdiff
path: root/Working_Examples/154/CH11/EX11.4/ch11_4.sce
blob: cdf0690fb4d47d789f16d2c3ccd24dad31250b41 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
clc
disp("Problem 11.4")
printf("\n")

printf("Given")
disp("Veff=110V Z=10+i8 ohm")
Veff=110;
Z=10+%i*8;
R = 10;
Zmag=sqrt(10^2+8^2)
Zph=(atan(8/10)*180)/%pi
P=(Veff^2*R)/(Zmag^2)
pf=cos((Zph*%pi)/180)

disp(pf,"Power factor is")