1 files changed, 34 insertions, 0 deletions
diff --git a/1445/CH2/EX2.41/ch2_ex_41.sce b/1445/CH2/EX2.41/ch2_ex_41.sce
new file mode 100644
index 000000000..5a2bb77e8
--- /dev/null
+++ b/1445/CH2/EX2.41/ch2_ex_41.sce
@@ -0,0 +1,34 @@
+//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT
+//Example 41 // read it as example 40 in the book on page 2.99
+
+disp("CHAPTER 2");
+disp("EXAMPLE 41");
+
+//VARIABLE INITIALIZATION 
+lampV=100;                                //Volts
+lampW=60;                                 //watts
+V=250;
+f=50;
+//
+//SOLUTION
+lampI=lampW/lampV;
+lampR=lampW/lampI^2;                    //W=I^2.R
+//
+disp("SOLUTION (a)");
+disp(sprintf("The resistance of the lamp is t is %f Ohms", lampR));
+//
+//in purely resistive / non inductive circuit,V=IR applies, and R=lampR+R
+R=V/lampI-lampR;
+disp(sprintf("The value value of resistor to be placed in series with the lamp is %f Ohms", R));
+//
+//in case of inductance
+//XL=2*%pi*f*L;
+//V=Z.I where Z^2=R^2+XL^2
+//L=sqrt((V^2/I^2-R^2)/2*%pi*f)
+L=sqrt((V/lampI)^2-lampR^2)/(2*%pi*f);
+disp(sprintf("The  inductive resistance to be placed is %f H",L));
+disp(" "); 
+// 
+//END
+
+