1 files changed, 19 insertions, 0 deletions
diff --git a/3754/CH28/EX28.6/28_6.sce b/3754/CH28/EX28.6/28_6.sce
new file mode 100644
index 000000000..0337c1109
--- /dev/null
+++ b/3754/CH28/EX28.6/28_6.sce
@@ -0,0 +1,19 @@
+clear//
+
+//Variables
+
+fo = 455.0 * 10**3         //Resonant frequency (in Hertz)
+BW = 10.0 * 10**3          //Bandwidth (in Hertz)
+XL = 1255.0                //Inductive reactance (in ohm)
+
+//Calculation
+
+Qo = fo / BW               //Quality factor
+R = XL / Qo                //Resistance (in ohm)
+L = XL / (2*%pi*fo)    //Inductance (in Henry)
+C = 1 / (XL*2*%pi*fo)  //Capacitance (in Farad)
+Zp = L / (C*R)             //Circuit impedance (in ohm)
+
+//Result
+
+printf("\n The value of circuit impedance at resonance is  %0.0f  kilo-ohm.",Zp * 10**-3)