summaryrefslogtreecommitdiff
path: root/1523/CH4/EX4.51/ex4_51.sce
blob: f162b8429ae26ce20bb9ea1d15ec54bdf79e2d14 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
//AC Circuits : example 4.51 :(pg 4.40 & 4.41)
P=2000;
pf=0.5;
V=230;
S=(P/pf);
phi=acosd(pf);
I=(P/(V*pf));
Q=(V*I*sind(phi));
disp("P=2000 W");
disp("pf=0.5 (leading)");
disp("V=230 V");
disp("P=V*I*cos(phi)");
printf("\nI=%.2f A",I);
printf("\nS=V*I=P/cos(phi)=%.f VA",S);
printf("\nphi=%.f degrees",phi);
printf("\nQ=V*I*sin(phi)=%.f VAR",Q);