diff options
| author | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
|---|---|---|
| committer | prashantsinalkar | 2017-10-10 12:27:19 +0530 |
| commit | 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch) | |
| tree | dbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /3472/CH16/EX16.7/Example16_7.sce | |
| parent | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff) | |
| download | Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2 Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip | |
initial commit / add all books
Diffstat (limited to '3472/CH16/EX16.7/Example16_7.sce')
| -rw-r--r-- | 3472/CH16/EX16.7/Example16_7.sce | 46 |
1 files changed, 46 insertions, 0 deletions
diff --git a/3472/CH16/EX16.7/Example16_7.sce b/3472/CH16/EX16.7/Example16_7.sce new file mode 100644 index 000000000..a852cde19 --- /dev/null +++ b/3472/CH16/EX16.7/Example16_7.sce @@ -0,0 +1,46 @@ +// A Texbook on POWER SYSTEM ENGINEERING
+// A.Chakrabarti, M.L.Soni, P.V.Gupta, U.S.Bhatnagar
+// DHANPAT RAI & Co.
+// SECOND EDITION
+
+// PART II : TRANSMISSION AND DISTRIBUTION
+// CHAPTER 9: LOAD FLOW STUDY USING COMPUTER TECHNIQUES
+
+// EXAMPLE : 9.7 :
+// Page number 239
+clear ; clc ; close ; // Clear the work space and console
+
+// Given data
+Y_C = complex(0,0.1) // Shunt admittance(mho)
+Z_L = complex(0,0.2) // Series impedance(mho)
+
+// Calculations
+Y_L = 1.0/Z_L // Series admittance(mho)
+Y_11 = Y_C+Y_C+Y_L+Y_L // Admittance(mho)
+Y_12 = -Y_L // Admittance(mho)
+Y_13 = -Y_L // Admittance(mho)
+Y_21 = Y_12 // Admittance(mho)
+Y_22 = Y_L+Y_L+Y_C+Y_C // Admittance(mho)
+Y_23 = -Y_L // Admittance(mho)
+Y_31 = Y_13 // Admittance(mho)
+Y_32 = Y_23 // Admittance(mho)
+Y_33 = Y_L+Y_L+Y_C+Y_C // Admittance(mho)
+Y_bus = [[Y_11, Y_12, Y_13],
+ [Y_21, Y_22, Y_23],
+ [Y_31, Y_32, Y_33]] // Bus admittance matrix
+S_11 = conj(Y_bus(1,1:1))
+S_12 = conj(Y_bus(1,2:2))
+S_13 = conj(Y_bus(1,3:3))
+S_21 = S_12
+S_22 = conj(Y_bus(2,2:2))
+S_23 = conj(Y_bus(2,3:3))
+S_31 = S_13
+S_32 = S_23
+S_33 = conj(Y_bus(3,3:3))
+
+// Results
+disp("PART II - EXAMPLE : 9.7 : SOLUTION :-")
+printf("\nPower flow expressions are:")
+printf("\nS_1 = %.1fj|V_1|^2 %.1fjV_1V_2* %.1fjV_3*", imag(S_11),imag(S_12),imag(S_13))
+printf("\nS_2 = %.1fjV_2V_1* + %.1fj|V_2|^2 %.1fjV_2V_3*", imag(S_21),imag(S_22),imag(S_23))
+printf("\nS_3 = %.1fjV_3V_1* %.1fjV_3V_2* + %.1fj|V_3|^2", imag(S_31),imag(S_32),imag(S_33))
|