1 files changed, 31 insertions, 0 deletions
diff --git a/3556/CH11/EX11.18/Ex11_18.sce b/3556/CH11/EX11.18/Ex11_18.sce
new file mode 100644
index 000000000..e4a677556
--- /dev/null
+++ b/3556/CH11/EX11.18/Ex11_18.sce
@@ -0,0 +1,31 @@
+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 11 :  AC power Analysis 
+// Example 11 - 18
+
+clear; clc; close; 
+//
+// Given data
+P          = 300.0000;
+Vrms       = 13.0000; 
+pf         = 0.8000;
+Hours      = 520;
+Energy_Charge = 0.0600;
+pf_penalty  = 0.001;
+pf_credit   = 0.001;
+// Calculations Energy Consumed
+W = P * Hours;
+// Calculations Delta Energy Consumed 
+Delta_W = (5*pf_penalty)*W;
+// Calculation Total Energy Consumed 
+Wt = W + Delta_W;
+// Calculations Cost Per Month
+Cost = Energy_Charge * Wt;
+//
+disp("Example 11-18 Solution : ");
+printf(" \n a. Cost = Cost For Month    = %.3f Dollar",Cost)