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/CH10/EX10.12/Example10_12.sce | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 3472/CH10/EX10.12/Example10_12.sce

(limited to '3472/CH10/EX10.12')

diff --git a/3472/CH10/EX10.12/Example10_12.sce b/3472/CH10/EX10.12/Example10_12.sce
new file mode 100644
index 000000000..590f1de8c
--- /dev/null
+++ b/3472/CH10/EX10.12/Example10_12.sce
@@ -0,0 +1,38 @@
+// 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 3: STEADY STATE CHARACTERISTICS AND PERFORMANCE OF TRANSMISSION LINES
+
+// EXAMPLE : 3.12 :
+// Page number 143
+clear ; clc ; close ; // Clear the work space and console
+
+// Given data
+E_s = 275.0                 // Sending end voltage(kV)
+f = 50.0                    // Frequency(Hz)
+l = 400.0                   // Line length(km)
+x = 0.05                    // Inductive reactance(ohm/km)
+y = 3.0*10**-6              // Line charging susceptance(S/km)
+r = 0.0                     // Lossless line
+
+// Calculations
+// Case(a)
+R = r*l                     // Total resistance(ohm/phase)
+X = x*l                     // Inductive reactance(ohm/phase)
+Y = y*l                     // Susceptance(mho)
+Z = complex(R,X)            // Total impedance(ohm/phase)
+A = 1+(Y*Z/2)*%i            // Line constant
+E_r = E_s/abs(A)            // Receiving end voltage at no load(kV)
+// case(b)
+Z_0 = (X/Y)**0.5            // Load at receiving end(ohm)
+// Case(c)
+Z_0_new = 1.2*Z_0           // New load at receiving station(ohm)
+
+// Results
+disp("PART II - EXAMPLE : 3.12 : SOLUTION :-")
+printf("\nCase(a): Receiving end voltage on open circuit = %.1f kV", E_r)
+printf("\nCase(b): Load at receiving end for flat voltage profile on line, Z_0 = %.1f Ω", Z_0)
+printf("\nCase(c): Distributed inductive reactance of the line is to be increased as, Loading for new voltage profile = %.2f Ω", Z_0_new)
-- 
cgit