1 files changed, 24 insertions, 0 deletions
diff --git a/1445/CH2/EX2.40/ch2_ex_40.sce b/1445/CH2/EX2.40/ch2_ex_40.sce
new file mode 100644
index 000000000..d9879f458
--- /dev/null
+++ b/1445/CH2/EX2.40/ch2_ex_40.sce
@@ -0,0 +1,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