summaryrefslogtreecommitdiff
path: root/3872/CH8/EX8.5/EX8_5.sce
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /3872/CH8/EX8.5/EX8_5.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/CH8/EX8.5/EX8_5.sce')
-rw-r--r--3872/CH8/EX8.5/EX8_5.sce18
1 files changed, 18 insertions, 0 deletions
diff --git a/3872/CH8/EX8.5/EX8_5.sce b/3872/CH8/EX8.5/EX8_5.sce
new file mode 100644
index 000000000..c2d59db7d
--- /dev/null
+++ b/3872/CH8/EX8.5/EX8_5.sce
@@ -0,0 +1,18 @@
+//Book - Power System: Analysis & Design 5th Edition
+//Authors - J. Duncan Glover, Mulukutla S. Sarma, and Thomas J. Overbye
+//Chapter - 8 ; Example 8.5
+//Scilab Version - 6.0.0 ; OS - Windows
+
+clc;
+clear;
+
+Zn = %i*10; //generator neutral impedance in ohm
+Zgo = %i*1; //generator zero sequence impedance in ohm
+Zg1 = %i*15; //generator positive sequence impedance in ohm
+Zg2 = %i*3; //generator negative sequence impedance in ohm
+Zl1 = 0.087+(%i*0.99); //line impedace in ohm
+Zdel = 22.98+%i*(19.281); //impedance of the delta load in ohm
+V1=(415.69-(%i*240))/sqrt(3); //RMS line to neutral phase voltage of AC supply in Volts
+I1 = V1/(Zl1+((1/3)*Zdel)); //sequence component of line current in A
+
+printf('\nThe sequence component of the line current Ia is %.4f amperes and its angle is %.4f degree ',abs(I1), atand(imag(I1), real(I1)));