1 files changed, 35 insertions, 0 deletions
diff --git a/1319/CH1/EX1.14/1_14.sce b/1319/CH1/EX1.14/1_14.sce
new file mode 100644
index 000000000..7e1c58a01
--- /dev/null
+++ b/1319/CH1/EX1.14/1_14.sce
@@ -0,0 +1,35 @@
+//Series Resonance in RLC circuit to find inductance and power
+
+clc;
+clear;
+
+R=5;
+C=50*(10^-6);
+f0=100;
+w=2*%pi*f0;
+
+L=1/(C*(w^2));
+
+V=200;
+Xc=1/(C*w);
+Xl=L*w;
+
+I=V/R;
+
+P=(I^2)*R;
+
+Vc=I*Xc;
+
+Zc=R+(Xl*%i);
+
+Vz=I*(Zc);
+
+Q0=Xl/R;
+
+bw=f0/Q0;
+
+printf('a) The inductance of the coil = %f mH \n',(10^3)*L)
+printf('b) The power delivered to the coil = %f kW \n',(10^-3)*P)
+printf('c) The voltage magnitude across the capacitor = %f V \n The voltage magnitude of the coil = %f V \n',Vc,abs(Vz)) // Magnitudes with at most accuracy
+printf('d) The bandwidth of the circuit = %f \n',bw)
+