1 files changed, 36 insertions, 0 deletions
diff --git a/1445/CH2/EX2.5/ch2_ex_5.sce b/1445/CH2/EX2.5/ch2_ex_5.sce
new file mode 100644
index 000000000..ea3f932de
--- /dev/null
+++ b/1445/CH2/EX2.5/ch2_ex_5.sce
@@ -0,0 +1,36 @@
+//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT
+//Example 5
+
+disp("CHAPTER 2");
+disp("EXAMPLE 5");
+
+//VARIABLE INITIALIZATION
+I1=0.75;                       //in Amperes
+v=240;                         //in Volts
+f=50;                          //in Hertz
+p=80;                          //in Watts
+
+//SOLUTION
+res=p/v;                       
+pf1=res/I1;                    //1st power factor = cos(Φ1)
+phi1=acos(pf1);
+res1=tan(phi1);                //result1 = tan(Φ1)
+w=2*%pi*f;
+
+//solution (a)
+res2=0;                        //result2 = tan(Φ2)
+Ic1=res*(res1-res2);
+c1=Ic1/(v*w); 
+disp(sprintf("(a) When power factor is unity, the value of capacitance is %f μF",c1*(10^6)));
+
+//solution (b)
+pf2=0.95;                      //given
+phi2=acos(pf2);
+res2=tan(phi2);
+Ic2=res*(res1-res2);
+c2=Ic2/(v*w);
+disp(sprintf("(b) When power factor is 0.95(lagging), the value of capacitance is %f μF",c2*(10^6)));
+
+//END
+
+