blob: 7437159b70ad2d38912c1760d9659bb42e3a3a0f (
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
|
//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT
//Example 7
disp("CHAPTER 2");
disp("EXAMPLE 7");
//VARIABLE INITIALIZATION
s1=300; //apparent power in kVA
pf1=0.65; //power factor(lagging)
pf2=0.85; //power factor(lagging)
//SOLUTION
//solution (a)
p=s1*pf1; //active power
q1=sqrt((s1^2)-(p^2));
disp(sprintf("(a) To bring the power factor to unity, the capacitor bank should have a capacity of %f kVAR",q1));
//solution (b)
s2=p/pf2;
q2=sqrt((s2^2)-(p^2));
disp(sprintf("(b) To bring the power factor to 85%% lagging, the capacitor bank should have a capacity of %f kVAR",q2));
//END
|
