1 files changed, 17 insertions, 0 deletions
diff --git a/3754/CH31/EX31.13/31_13.sce b/3754/CH31/EX31.13/31_13.sce
new file mode 100644
index 000000000..5d9189a9a
--- /dev/null
+++ b/3754/CH31/EX31.13/31_13.sce
@@ -0,0 +1,17 @@
+clear//
+
+//Variables
+
+L = 0.33                       //Inductance (in Henry)
+C1 = 0.065 * 10**-12           //Capacitance (in Farad)  
+C2 = 1.0 * 10**-12             //Capacitance (in Farad)
+R = 5.5 * 10**3                //Resistance (in ohm)              
+
+//Calculation
+
+fs = 1/(2*%pi*(L*C1)**0.5) //Series Resonant frequency (in Hertz)
+Qfactor = 2*%pi*fs*L/R     //Q-factor
+
+//Result
+
+printf("\n Series resonant frequency is  %0.2f  MHz.\nQ-factor of the crystal is  %0.1f .",fs*10**-6,Qfactor)