diff options
Diffstat (limited to '3872/CH4/EX4.3')
| -rw-r--r-- | 3872/CH4/EX4.3/Ex4_3.JPG | bin | 0 -> 21162 bytes | |||
| -rw-r--r-- | 3872/CH4/EX4.3/Ex4_3.sce | 24 |
2 files changed, 24 insertions, 0 deletions
diff --git a/3872/CH4/EX4.3/Ex4_3.JPG b/3872/CH4/EX4.3/Ex4_3.JPG Binary files differnew file mode 100644 index 000000000..575b83197 --- /dev/null +++ b/3872/CH4/EX4.3/Ex4_3.JPG 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);
|
