summaryrefslogtreecommitdiff
path: root/98/CH6/EX6.2/example6_2.sce
blob: 762b6cb5b0e0c27e1a545590823494b497ff21b7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
//Chapter 6
//Example 6_2
//Page 109

clear;clc;

v=400;
f=50;
im=31.7;
pf1=0.7;
pf2=0.9;

acim=im*pf1;
i=acim/pf2;
rcim=im*sin(acos(pf1));
rci=i*sin(acos(pf2));
ic=rcim-rci;
c=ic/v/(2*%pi*f);

printf("Active component of Im = %.2f A \n\n", acim);
printf("Active component of I = %.1f*I A \n\n", pf2);
printf("Reactive component of Im = %.2f A \n\n", rcim);
printf("Reactive component of I = %.2f A \n\n", rci);
printf("Current through capacitor = %.2f A \n\n", ic);
printf("C = %.2f uF \n\n", c*1e6);