From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 1445/CH2/EX2.6/ch2_ex_6.sce | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 1445/CH2/EX2.6/ch2_ex_6.sce

(limited to '1445/CH2/EX2.6')

diff --git a/1445/CH2/EX2.6/ch2_ex_6.sce b/1445/CH2/EX2.6/ch2_ex_6.sce
new file mode 100644
index 000000000..078b110aa
--- /dev/null
+++ b/1445/CH2/EX2.6/ch2_ex_6.sce
@@ -0,0 +1,28 @@
+//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT
+//Example 6
+
+disp("CHAPTER 2");
+disp("EXAMPLE 6");
+
+//VARIABLE INITIALIZATION
+f=50;                            //in Hertz
+I1=20;                           //in Amperes
+pf1=0.75;                        //power factor
+v=230;                           //in Volts
+pf2=0.9;                         //power factor(lagging)
+
+//SOLUTION
+phi1=acos(pf1);
+res1=tan(phi1);                  //result1 = tan(Φ1)
+phi2=acos(pf2);
+res2=tan(phi2);                  //result2 = tan(Φ2)
+Ic=I1*pf1*(res1-res2);
+w=2*%pi*f;
+c=Ic/(v*w);
+disp(sprintf("The value of capacitance is %f μF",c*(10^6)));
+Qc=v*Ic;
+disp(sprintf("The reactive power is %f kVAR",Qc/(10^3)));
+I2=I1*(pf1/pf2);
+disp(sprintf("The new supply current is %f A",I2));
+
+//END
-- 
cgit