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/CH3/EX3.1/ch3_ex_1.sce | 47 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)
 create mode 100644 1445/CH3/EX3.1/ch3_ex_1.sce

(limited to '1445/CH3/EX3.1/ch3_ex_1.sce')

diff --git a/1445/CH3/EX3.1/ch3_ex_1.sce b/1445/CH3/EX3.1/ch3_ex_1.sce
new file mode 100644
index 000000000..559b4579b
--- /dev/null
+++ b/1445/CH3/EX3.1/ch3_ex_1.sce
@@ -0,0 +1,47 @@
+//CHAPTER 3- THREE-PHASE A.C. CIRCUITS
+//Example 1
+
+disp("CHAPTER 3");
+disp("EXAMPLE 1");
+
+//VARIABLE INITIALIZATION
+v_l=400;                         //line voltage in Volts
+r=15;                            //resistance in Ohms
+xc=10;                           //capacitive resistance in Ohms
+
+//SOLUTION
+
+//solution (i)
+v_ph=v_l/sqrt(3);
+disp(sprintf("(i) The phase voltage is %f V",v_ph));
+
+//solution (ii)
+z_ph=sqrt((r^2)+(xc^2));
+I_l=v_ph/z_ph;
+disp(sprintf("(ii) The line current is %f A",I_l));
+
+//solution (iii)
+//phase current = line current since connection is star 
+disp(sprintf("(iii) The phase current is %f A",I_l));
+
+//solution (iv)
+pow_fact=r/z_ph;
+disp(sprintf("(iv) The power factor of the circuit is %f (leading)",pow_fact));
+
+//solution (v)
+p=sqrt(3)*v_l*I_l*pow_fact;
+disp(sprintf("(v) The total power absorbed is %f W",p));
+
+//solution (vi)
+va=sqrt(3)*v_l*I_l;
+disp(sprintf("(vi) The apparent power is %f VA",va));
+var=sqrt((va^2)-(p^2));
+disp(sprintf("The reactive power is %f VAR",var));
+
+//Answers (v) and (vi) are different due to precision of floating point numbers
+
+//END
+
+
+
+
-- 
cgit