From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 1445/CH3/EX3.2/Ex3_2.sce | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 1445/CH3/EX3.2/Ex3_2.sce

(limited to '1445/CH3/EX3.2/Ex3_2.sce')

diff --git a/1445/CH3/EX3.2/Ex3_2.sce b/1445/CH3/EX3.2/Ex3_2.sce
new file mode 100644
index 000000000..c5a2d35e0
--- /dev/null
+++ b/1445/CH3/EX3.2/Ex3_2.sce
@@ -0,0 +1,24 @@
+//CHAPTER 3- THREE-PHASE A.C. CIRCUITS
+//Example 2
+
+disp("CHAPTER 3");
+disp("EXAMPLE 2");
+
+//VARIABLE INITIALIZATION
+v_l=400;                          //line voltage in Volts
+I_l=30;                           //line current in Amperes
+p=12*1000;                        //power absorbed in Watts
+
+//SOLUTION
+v_ph=v_l/sqrt(3);                 //phase voltage = (line voltage)/sqrt(3)
+z_ph=v_ph/I_l;                    //phase current = line current for star connection   
+pow_fact=p/(sqrt(3)*v_l*I_l);     //three-phase power = sqrt(3)*v_l*I_l*pow_fact
+r_ph=z_ph*pow_fact;               //from impedance tringle
+disp(sprintf("The resisatnce of each impedance is %.2f Ω",r_ph));
+x_ph=sqrt((z_ph^2)-(r_ph^2));
+disp(sprintf("The ractance of each impedance is %.2f Ω",x_ph));
+
+//END
+
+
+
-- 
cgit