From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 3472/CH16/EX16.6/Example16_6.sce | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 3472/CH16/EX16.6/Example16_6.sce

(limited to '3472/CH16/EX16.6')

diff --git a/3472/CH16/EX16.6/Example16_6.sce b/3472/CH16/EX16.6/Example16_6.sce
new file mode 100644
index 000000000..52a4aea97
--- /dev/null
+++ b/3472/CH16/EX16.6/Example16_6.sce
@@ -0,0 +1,24 @@
+// 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.6 :
+// Page number 238
+clear ; clc ; close ; // Clear the work space and console
+
+// Given data
+Y_bus = [[-%i*10.5, 0, %i*5.0, %i*5.0],
+         [0, -%i*8.0, %i*2.5, %i*5.0],
+         [%i*5.0, %i*2.5, -%i*18.0, %i*10.0],
+         [%i*5.0, %i*5.0, %i*10.0, -%i*20.0]]   // Bus admittance matrix
+
+// Calculations
+Z_bus = inv(Y_bus)                              // Bus impedance matrix
+
+// Results
+disp("PART II - EXAMPLE : 9.6 : SOLUTION :-")
+printf("\n[Z_bus] = \n'); disp(Z_bus)
-- 
cgit