1 files changed, 24 insertions, 0 deletions
diff --git a/1964/CH5/EX5.37/ex5_37.sce b/1964/CH5/EX5.37/ex5_37.sce
new file mode 100755
index 000000000..5a9b5c371
--- /dev/null
+++ b/1964/CH5/EX5.37/ex5_37.sce
@@ -0,0 +1,24 @@
+//Chapter-5, Example 5.37, Page 198
+//=============================================================================
+clc
+clear
+//INPUT DATA
+V=120;//source voltage in volts
+R=50;//resistance in ohms
+L=0.5;//inductance in Henry
+C=50;//capacitance in uF
+//CALCULATIONS
+//at Resonance
+fr=(1/(2*%pi*(sqrt(L*C*10^-6))));//resonant frequency in hz
+I0=V/R;//current at resonance in A
+Vl=(%i)*(I0*L);//voltage developed across inductor in volts
+Vc=(-%i)*(I0*L);//voltage developed across capacitor in volts
+Q=(inv(R))*(sqrt(L/(C*10^-6)));//quality factor
+Bw=(fr)/(Q);//Bandwidth in Hz
+//given resonance is to occur at 300 rad/sec,then
+wr=300;//wr=(2*%pi*f*r)------->measured in Hz
+//wr=inv(sqrt(L*Cn))
+Cr=inv(L*(wr)^2);//capacitance required in uF
+mprintf("Thus resonant frequency,current,quality factor and bandwidth are %2.1f Hz,%1.1f A,%d and %2.1f hz respectively\n",fr,I0,Q,Bw);
+mprintf("New value of capacitance at 300 rad/sec is %g F",Cr)
+//=================================END OF PROGRAM======================================================================================================