summaryrefslogtreecommitdiff
path: root/3556/CH12/EX12.14
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /3556/CH12/EX12.14
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 '3556/CH12/EX12.14')
-rw-r--r--3556/CH12/EX12.14/Ex12_14.sce36
1 files changed, 36 insertions, 0 deletions
diff --git a/3556/CH12/EX12.14/Ex12_14.sce b/3556/CH12/EX12.14/Ex12_14.sce
new file mode 100644
index 000000000..b48550d41
--- /dev/null
+++ b/3556/CH12/EX12.14/Ex12_14.sce
@@ -0,0 +1,36 @@
+clc
+// Fundamental of Electric Circuit
+// Charles K. Alexander and Matthew N.O Sadiku
+// Mc Graw Hill of New York
+// 5th Edition
+
+// Part 2 : AC Circuits
+// Chapter 12 : Three Phase Circuit
+// Example 12 - 13
+
+clear; clc; close;
+//
+// Given data
+P1 = 1560.0000;
+P2 = 2100.0000;
+Vp = 220.0000;
+// Calculations The Total Real Power and Per Phase Real Power
+PT = P1 + P2;
+PT_p = PT/3;
+// Calcullation The Total Reactive Power
+QT = sqrt(3)*(P2 - P1);
+QT_p = QT/3;
+// Calculation Power Angle
+pf = cosd(atand(QT,PT))
+// Calculation Phase Impedance
+Ip = PT_p/(Vp*pf);
+Zp_mag = Vp/Ip;
+Zp_angle = atand(QT,PT);
+//
+disp("Example 12-14 Solution : ");
+printf(" \n a. PT_p = Total Real Power Per Phase = %.3f Watt",PT_p)
+printf(" \n b. QT_p = Total Reactive Power Per Phase = %.3f Var",QT_p)
+printf(" \n c. pf = Power Angle = %.3f (Lagging)",pf)
+printf(" \n d. Zp_mag = Magnitude of Phase Impedance = %.3f Ohm",Zp_mag)
+printf(" \n e. Zp_angle = Angle of Phase Impedance = %.3f degree",Zp_angle)
+