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

---
 2642/CH1/EX1.9/Ex1_9.sce | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100755 2642/CH1/EX1.9/Ex1_9.sce

(limited to '2642/CH1/EX1.9')

diff --git a/2642/CH1/EX1.9/Ex1_9.sce b/2642/CH1/EX1.9/Ex1_9.sce
new file mode 100755
index 000000000..820f123d3
--- /dev/null
+++ b/2642/CH1/EX1.9/Ex1_9.sce
@@ -0,0 +1,32 @@
+// FUNDAMENTALS OF ELECTICAL MACHINES 
+// M.A.SALAM 
+// NAROSA PUBLISHING HOUSE 
+// SECOND EDITION
+
+// Chapter 1 : REVIEW OF ELECRTIC CIRCUITS  
+// Example : 1.9
+
+clc;clear; // clears the console and command history 
+
+// Given data
+V_P = 340 //  phase voltage in V 
+Z = 6+%i*8 // per phase impedance 
+ 
+// caclulations 
+
+V_AN = (V_P/exp(%i*(0)*(%pi/180)))   // phase voltage
+V_BN = (V_P/exp(%i*(-120)*(%pi/180))) // phase voltage
+V_CN = (V_P/exp(%i*(120)*(%pi/180))) // phase voltage
+
+I_Aa = V_AN/Z   // line current for phase A in A
+I_Bb = V_BN/Z  // line current for phase B in  A
+I_Cc = V_CN/Z  // line current for phase C in A
+
+
+
+// display the result 
+disp("Example 1.9 solution");
+printf(" \n Line currents are \n I_Aa = %.2f<%.2f A \n", abs(I_Aa),atand(imag(I_Aa),real(I_Aa)) );
+printf(" I_Bb = %.2f<% 2f A \n", abs(I_Bb),atand(imag(I_Bb),real(I_Bb)) );
+printf(" I_Cc = %.2f<% 2f A \n", abs(I_Cc),atand(imag(I_Cc),real(I_Cc)) );
+printf(" \n The load is balanced, so the value of the neutral current will be zero")
-- 
cgit