diff options
| author | priyanka | 2015-06-24 15:03:17 +0530 |
|---|---|---|
| committer | priyanka | 2015-06-24 15:03:17 +0530 |
| commit | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch) | |
| tree | ab291cffc65280e58ac82470ba63fbcca7805165 /1820/CH9/EX9.5 | |
| download | Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2 Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip | |
initial commit / add all books
Diffstat (limited to '1820/CH9/EX9.5')
| -rwxr-xr-x | 1820/CH9/EX9.5/Example9_5.sce | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/1820/CH9/EX9.5/Example9_5.sce b/1820/CH9/EX9.5/Example9_5.sce new file mode 100755 index 000000000..15e6dc2c2 --- /dev/null +++ b/1820/CH9/EX9.5/Example9_5.sce @@ -0,0 +1,45 @@ +// ELECTRIC POWER TRANSMISSION SYSTEM ENGINEERING ANALYSIS AND DESIGN
+// TURAN GONEN
+// CRC PRESS
+// SECOND EDITION
+
+// CHAPTER : 9 : SYMMETRICAL COMPONENTS AND FAULT ANALYSIS
+
+// EXAMPLE : 9.5 :
+clear ; clc ; close ; // Clear the work space and console
+
+// GIVEN DATA
+Z_012 = [(19.6736 + 109.05044*%i) (0.5351182 + 0.4692097*%i) (- 0.5351182 + 0.4692097*%i) ; (- 0.5351182 + 0.4692097*%i) (8.24 + 28.471684*%i) (- 1.0702365 - 0.9384195*%i) ; (0.5351182 + 0.4692097*%i) (1.0702365 - 0.9384195*%i) (8.24 + 28.471684*%i)] ; // Line impedance matrix . result of exa 9.3
+Y_012 = inv(Z_012) ; // Sequence admittance of line
+
+// CALCULATIONS
+// For case (a)
+Y_01 = Y_012(1,2) ;
+Y_11 = Y_012(2,2) ;
+m_0 = Y_01/Y_11 ; // Per-unit unbalance for zero-sequence in pu from equ 9.67b
+m_0_per = m_0 * 100 ; // Per-unit unbalance for zero-sequence in percentage
+
+// For case (b)
+Z_01 = Z_012(1,2) ;
+Z_00 = Z_012(1,1) ;
+m_01 = -(Z_01/Z_00) ; // Per-unit unbalance for zero-sequence in pu from equ 9.67b
+m_01_per = m_01 * 100 ; // Per-unit unbalance for zero-sequence in percentage
+
+// For case (c)
+Y_21 = Y_012(3,2) ;
+Y_11 = Y_012(2,2) ;
+m_2 = (Y_21/Y_11) ; // Per-unit unbalance for zero-sequence in pu from equ 9.67b
+m_2_per = m_2 * 100 ; // Per-unit unbalance for zero-sequence in percentage
+
+// For case (d)
+Z_21 = Z_012(3,2) ;
+Z_22 = Z_012(3,3) ;
+m_21 = -(Z_21/Z_22) ; // Per-unit unbalance for zero-sequence in pu from equ 9.67b
+m_21_per = m_21 * 100 ; // Per-unit unbalance for zero-sequence in percentage
+
+// DISPLAY RESULTS
+disp("EXAMPLE : 9.5 : SOLUTION :-") ;
+printf("\n (a) Per-unit electromagnetic unbalance for zero-sequence , m_0 = %.2f<%.1f percent pu \n",abs(m_0_per),atand( imag(m_0_per),real(m_0_per) )) ;
+printf("\n (b) Approximate value of Per-unit electromagnetic unbalance for negative-sequence , m_0 = %.2f<%.1f percent pu \n",abs(m_01_per),atand( imag(m_01_per),real(m_01_per) )) ;
+printf("\n (c) Per-unit electromagnetic unbalance for negative-sequence , m_2 = %.2f<%.1f percent pu \n",abs(m_2_per),atand( imag(m_2_per),real(m_2_per) )) ;
+printf("\n (d) Approximate value of Per-unit electromagnetic unbalance for negative-sequence , m_2 = %.2f<%.1f percent pu \n",abs(m_21_per),atand( imag(m_21_per),real(m_21_per) )) ;
|