1 files changed, 17 insertions, 0 deletions
diff --git a/1964/CH5/EX5.39/ex5_39.sce b/1964/CH5/EX5.39/ex5_39.sce
new file mode 100755
index 000000000..b74aa55ef
--- /dev/null
+++ b/1964/CH5/EX5.39/ex5_39.sce
@@ -0,0 +1,17 @@
+//Chapter-5, Example 5.39, Page 199
+//=============================================================================
+clc
+clear
+//INPUT DATA
+R=4;//resistance in ohm
+L=100*10^-6;//inductance in henry
+C=250*10^-12;//capacitance in Farads
+//CALCULATIONS
+fr=inv(2*%pi*sqrt(L*C));//resonant frequency in Hz
+Q=(inv(R))*(sqrt(L/C));//Q-factor
+Bw=fr/Q;//bandwidth in Hz
+hf1=fr+Bw;//halfpower freq1 in Hz
+hf2=fr-Bw;//halfpower freq2 in Hz
+mprintf("Thus resonant freq,Q-factor and new halfpower frequencies are %dhz ,%d,%g hz,%g hz respectively",fr,Q,hf1,hf2);
+//note:given answers are wrong in textbook.Please check the answers
+//=================================END OF PROGRAM======================================================================================================