//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