1 files changed, 24 insertions, 0 deletions
diff --git a/2672/CH3/EX3.37/Ex3_37.sce b/2672/CH3/EX3.37/Ex3_37.sce
new file mode 100755
index 000000000..17a614fcb
--- /dev/null
+++ b/2672/CH3/EX3.37/Ex3_37.sce
@@ -0,0 +1,24 @@
+//Example 3_37
+clc;
+clear;
+close;
+format('v',5);
+//given data :
+R=10;//ohm
+L=20;//mH
+C=10;//micro F
+V=50;//V
+f0=1/2/%pi/sqrt(L/1000*C/10^6);//Hz
+disp(f0,"Resonance frequency(Hz)");
+I0=V/R;//A
+XL=2*%pi*f0*L/1000;//ohm
+VL=I0*XL;//V
+disp(VL,"Voltage across inductance(V)");
+VR=I0*R;//V
+disp(VR,"Voltage across Resistance(V)");
+XC=1/2/%pi/f0/(C*10^-6);//ohm
+VC=I0*XC;//V
+disp(VC,"Voltage across Capacitance(V)");
+Q=VL/V;//Q-factor
+disp(Q,"Q-factor");
+//Answer is not accurate in the book.