1 files changed, 37 insertions, 0 deletions
diff --git a/3556/CH12/EX12.15/Ex12_15.sce b/3556/CH12/EX12.15/Ex12_15.sce
new file mode 100644
index 000000000..dcdbb0ac3
--- /dev/null
+++ b/3556/CH12/EX12.15/Ex12_15.sce
@@ -0,0 +1,37 @@
+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 - 15
+
+clear; clc; close; 
+//
+// Given data
+Zy    =  complex(8,6);
+VL    =   208.0000;
+// Calculations Wattmeter Reading 1 dan Wattmeter Reading 2
+Zy_mag = norm(Zy);
+Zy_angle = atand(imag(Zy),real(Zy));
+Vp = VL/sqrt(3);
+IL = Vp/Zy_mag; 
+P1 = VL*IL*cosd(Zy_angle + 30.0000);
+P2 = VL*IL*cosd(Zy_angle - 30.0000);
+// Calculations Total Real Power 
+PT = P1 + P2;
+// Calculations Total Reactive Power 
+QT = sqrt(3)*(P2 - P1);
+//
+disp("Example 12-15 Solution : "); 
+disp("a. Wattmeter Reading : ");
+printf(" \n P1  =  Reading of Wattmeter W1              = %.3f Watt",P1)
+printf(" \n P2  =  Reading of Wattmeter W2              = %.3f Watt",P2)
+disp("")
+disp("b. Total Real Power : ");
+printf(" \n PT  =  Total Real Power                     = %.3f Watt",PT)
+disp("")
+disp("c. Total Reactive Power : ");
+printf(" \n QT  =  Total Real Power                     = %.3f Watt",QT)