1 files changed, 46 insertions, 0 deletions
diff --git a/3556/CH14/EX14.8/Ex14_8.sce b/3556/CH14/EX14.8/Ex14_8.sce
new file mode 100644
index 000000000..5de3f8932
--- /dev/null
+++ b/3556/CH14/EX14.8/Ex14_8.sce
@@ -0,0 +1,46 @@
+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 14 :  Frequency Response
+// Example 14 - 8
+
+clear; clc; close; 
+//
+// Given data
+R       =   8000.0000;                                                     
+L       =   0.00020;                   
+C       =   8 * 10^(-6);
+Vm      =  10.0000;
+//
+// Calculations Resonant Frequency 
+Wo = 1/sqrt(L*C) 
+// Calculations Quality Factor  and Bandwidth
+Q  = R/(Wo*L);
+B  = Wo/Q;
+// Calculations The Lower Half Power Frequency and The Upper Power Frequency 
+W1 = Wo - (B/2);
+W2 = Wo + (B/2);
+// Calculations Power Dissipated at Wo, W1 and W2 
+P_wo = Vm^2/(2*R);
+P_w1 = Vm^2/(4*R)
+P_w2 = P_w1;
+     
+// 
+disp("a. The Resonant Frequency, Bandwidth and Quality Factor: ");
+printf(" \n Wo         = Resonant Frequency                        = %.3f krad/s",Wo/1000)
+printf(" \n B          = Bandwidth                                 = %.3f rad/s",B)
+printf(" \n Q          = Imaginary Part of Power Complex           = %.3f ",Q)
+disp("")
+disp("b. The Resonant Frequency, The Lower dan Upper Power Frequency: ");
+printf(" \n W1         = The Lower Half Power Frequency            = %.3f krad/s",W1/1000)
+printf(" \n W2         = The Upper Half Power Frequency            = %.3f krad/s",W2/1000)
+disp("")
+disp("c. Power Dissipated at Wo, W1 and W2");
+printf(" \n P_wo       = Power Dissipated at Wo                    = %.3f mW",P_wo*1000)
+printf(" \n P_w1       = Power Dissipated at W1                    = %.3f mW",P_w1*1000)
+printf(" \n P_w2       = Power Dissipated at W2                    = %.3f mW",P_w2*1000)
+