summaryrefslogtreecommitdiff
path: root/3872/CH4/EX4.7/Ex4_7.sce
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /3872/CH4/EX4.7/Ex4_7.sce
parentb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff)
downloadScilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip
initial commit / add all books
Diffstat (limited to '3872/CH4/EX4.7/Ex4_7.sce')
-rw-r--r--3872/CH4/EX4.7/Ex4_7.sce27
1 files changed, 27 insertions, 0 deletions
diff --git a/3872/CH4/EX4.7/Ex4_7.sce b/3872/CH4/EX4.7/Ex4_7.sce
new file mode 100644
index 000000000..69180967b
--- /dev/null
+++ b/3872/CH4/EX4.7/Ex4_7.sce
@@ -0,0 +1,27 @@
+// Book - Power System: Analysis & Design 5th Edition
+// Authors - J. Duncan Glover, Mulukutla S. Sharma, Thomas J. Overbye
+// Chapter - 4 : Example 4.7
+// Scilab Version 6.0.0 : OS - Windows
+
+
+clc;
+clear;
+
+V = 345; // Line Voltage in kV
+T = 795000; // Size of the Conductor in cmil
+D = 1.108; // Diameter of the conductor in inch
+f= 60; // Frequency in Hz
+e = 8.854*10^-12;
+
+r = (D/2)*0.0254; // Radius of the copper conductor in metre
+Dsc = sqrt((r)*(0.40)); // Equivalent radius of the two onductor bundle
+Deq = nthroot([10*10*20], 3); // Eqivalent GMR of a onductor in metres from Ex 4.5
+Can = (2*%pi)*(e)/(log(12.6/0.0750))*(1000)*(200); // Deviation of the capacitance in Farad
+w = (2*%pi*f); // Angular Velocity in rad/sec
+Yan = (%i*w*Can); // Shunt admitance-to-neutral in Siemens
+e = (V/sqrt(3));
+Ichg = (abs(Yan)*e); // Charging Current of Phase A
+Qc3fi = (abs(Yan)*(345)^2); // Total reactive power supplied by the three-phase line in MVAR
+
+printf('Charging Current of Phase A is (Ichg) = %0.3f kA/phase', Ichg);
+printf('\n Total reactive power supplied by the three-phase line is (Qc3fi)= %0.2f MVAR', Qc3fi);