blob: dc38bd18e410a346843b1ed06c469dd4a7b017ad (
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
|
//CHAPTER 3- THREE-PHASE A.C. CIRCUITS
//Example 5
disp("CHAPTER 3");
disp("EXAMPLE 5");
//VARIABLE INITIALIZATION
w1=5000; //reading of 1st wattmeter in Watts
w2=-1000; //reading of 2nd wattmeter in Watts
//SOLUTION
//solution (a)
p1=w1+w2;
disp(sprintf("(a) The total power is %d W",p1));
//solution (b)
p2=w1-w2;
phi=atan((sqrt(3)*p2)/p1);
pow_fact=cos(phi);
disp(sprintf("(b) The power factor of the load is %f", pow_fact));
//END
|
