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