1 files changed, 42 insertions, 0 deletions
diff --git a/3556/CH12/EX12.13/Ex12_13.sce b/3556/CH12/EX12.13/Ex12_13.sce
new file mode 100644
index 000000000..22c7aa9c3
--- /dev/null
+++ b/3556/CH12/EX12.13/Ex12_13.sce
@@ -0,0 +1,42 @@
+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
+Van_mag   = 100.0000;
+Van_angle = 0.0000;
+Vbn_mag   = 100.0000;
+Vbn_angle = 120.0000;
+Vcn_mag   = 100.0000;
+Vcn_angle = -120.0000;
+Ia_mag   = 6.6700; 
+Ia_angle = 0.0000;
+Ib_mag   = 8.9400;
+Ib_angle = 93.4400;
+Ic_mag   = 10.0000;
+Ic_angle = -66.8700;
+// Calculations The Wattmeter Reading 1
+P1 = Van_mag * Ia_mag * cosd(Van_angle - Ia_angle);
+// Calculations The Wattmeter Reading 2
+P2 = Vbn_mag * Ib_mag * cosd(Vbn_angle - Ib_angle);
+// Calculations The Wattmeter Reading 3
+P3 = Vcn_mag * Ic_mag * cosd(Vcn_angle - Ic_angle);
+// Calculations Total Power Absorbed 
+PT = P1  + P2 + P3;
+//
+disp("Example 12-13 Solution : "); 
+disp("a. Wattmeter Reading : ");
+printf(" \n P1         =  Wattmeter Reading 1             = %.3f Watt",P1)
+printf(" \n P2         =  Wattmeter Reading 2             = %.3f Watt",P2)
+printf(" \n P3         =  Wattmeter Reading 3             = %.3f Watt",P3)
+disp("")
+disp("b. Total Power Absorbed : ");
+printf(" \n PT         =  Total Power Absorbed            = %.3f Watt",PT)