summaryrefslogtreecommitdiff
path: root/1523/CH4/EX4.47/ex4_47.sce
blob: 338882b111d524a05f5abdaf33b333238439d8b9 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
//AC Circuits : example 4.47 :pg(4.47)
f1=60;
V=200;
P=600;
I=5;
f=50;
Z=V/I;
r=(P/(I^2));
XL=sqrt((Z^2)-(r^2));
L=(XL/(2*%pi*f));
XL1=(2*%pi*f1*L);
Z1=sqrt((r^2)+(XL1^2));
I=(V/Z1);
printf("\nI=5 A \nV=200 V \nP=600 W \nFor f=50 Hz,");
printf("\nZ=V/I =%.f Ohms",Z);
printf("\nP=((I^2)*r) \nr=%.f Ohms",r);
printf("\nXL=sqrt((Z^2)-(r^2)) \nXL=%.f Ohms",XL);
printf("\nXL=(2*pi*f*L)\nL=%.4f H",L);
printf("\nFor  f=60 Hz \nXL=%.1f Ohm",XL1);
printf("\nr=24 Ohms \nZ=sqrt((r^2)+(XL^2))=%.2f Ohms",Z1);
printf("\nI=V/Z=%.3f A",I);