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

---
 3872/CH4/EX4.3/Ex4_3.sce | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 3872/CH4/EX4.3/Ex4_3.sce

(limited to '3872/CH4/EX4.3/Ex4_3.sce')

diff --git a/3872/CH4/EX4.3/Ex4_3.sce b/3872/CH4/EX4.3/Ex4_3.sce
new file mode 100644
index 000000000..41173d8d4
--- /dev/null
+++ b/3872/CH4/EX4.3/Ex4_3.sce
@@ -0,0 +1,24 @@
+// Book - Power System: Analysis & Design 5th Edition
+// Authors - J. Duncan Glover, Mulukutla S. Sharma, Thomas J. Overbye
+// Chapter - 4 : Example 4.3
+// Scilab Version 6.0.0 : OS - Windows
+
+
+clc;
+clear;
+
+f = 60;                                      // Single Phase line operating fruquency in Hz
+S = 12;                                      // Strand Copper conductors
+Dxy = 5;                                     // Geometrical Mean Distance between conductor centers in ft
+Dxx =0.01750;                                // Geometrical Mean Radiance of Copper Conductor in feet from Table A.3
+Dyy = Dxx;
+l = 20;                                      // Line length in miles
+
+Lx = (2*10^-7)*log(Dxy/Dxx)*1609*l;          // Line Inductance in Henry per conductor
+Ly = Lx;
+L = Lx+Ly;                                   // Total Inductance in Henry per Circuit
+Xl = (2*%pi*f*L);                            // Total Inductive Reactance in Ohm per circuit
+
+printf('Line Inductance is  (Lx) = %f  H per conductor',Lx);
+printf('\nTotal Inductance is  (L) = %0.5f  H per circuit',L);
+printf('\nTotal Inductive Reactance is  (Xl) = %0.2f  Ohm per circuit',Xl);
-- 
cgit