blob: d9879f458236195c6ad75b944ee522b5b3107e7e (
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 40 // read it as example 39 in the book on page 2.98
disp("CHAPTER 2");
disp("EXAMPLE 40");
//VARIABLE INITIALIZATION
V=100; // max amplitude of wave
w=314; //angular speed
phiV=5; //phase angle in degrees
I=5; //max current amplitude
phiI=-40; //phase angle in current in deg
//
//SOLUTION
phi=phiI-phiV;
pf=cos(phi*%pi/180); //convert to radians
p=(V/sqrt(2))*(I/sqrt(2))*pf;
//
disp(sprintf("The Power factor is %f lagging", pf));
disp(sprintf("The Power delivered is %f W", p));
disp(" ");
//
//END
|
