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

---
 1820/CH9/EX9.15/Example9_15.sce | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100755 1820/CH9/EX9.15/Example9_15.sce

(limited to '1820/CH9/EX9.15')

diff --git a/1820/CH9/EX9.15/Example9_15.sce b/1820/CH9/EX9.15/Example9_15.sce
new file mode 100755
index 000000000..e4ccd682a
--- /dev/null
+++ b/1820/CH9/EX9.15/Example9_15.sce
@@ -0,0 +1,37 @@
+
+// ELECTRIC POWER TRANSMISSION SYSTEM ENGINEERING ANALYSIS AND DESIGN
+// TURAN GONEN
+// CRC PRESS
+// SECOND EDITION
+
+// CHAPTER : 9 : SYMMETRICAL COMPONENTS AND FAULT ANALYSIS
+
+// EXAMPLE : 9.15 :
+clear ; clc ; close ; // Clear the work space and console
+
+// GIVEN DATA
+Y_11 = -2.2115*%i ;
+Y_12 = 0.2404*%i ;
+Y_21 = 0.2404*%i ;
+Y_22 = -2.0912*%i ;
+Y = [Y_11 Y_12 ; Y_21 Y_22] ;
+I_S1 = 2.3077*%i ;
+I_S2 = 1.9230*%i ;
+
+I_a1 = poly(0,'I_a1') ;
+I_a2 = poly(0,'I_a2') ;
+a = Y_12*I_S2 - Y_22*I_S1 ;
+b = (Y_12+Y_22)*I_a1 ;
+c = Y_12*I_S1 - Y_11*I_S2 ;
+d = (Y_12 + Y_11)*I_a1 ;
+V1 = (1/det(Y))*[(a-b) ; (c+d)] ; // Gives the uncoupled positive sequence N/W
+A = (Y_12+Y_22)*I_a2 ;
+B = (Y_12 + Y_11)*I_a2 ;
+V2 = (1/det(Y))*[A ; B] ; // Gives the uncoupled negative sequence N/W
+
+// DISPLAY RESULTS
+disp("EXAMPLE : 9.15 : SOLUTION :-") ;
+printf("\n (a) [V_a1 ; V_a11] = ") ; disp(V1) ;
+printf("\n     Values of Uncoupled positive-sequence network \n") ;
+printf("\n (b) [V_a2 ; V_a22] = ") ; disp(V2) ;
+printf("\n     Values of Uncoupled negative-sequence network \n") ;
-- 
cgit