1 files changed, 16 insertions, 0 deletions
diff --git a/1529/CH16/EX16.10/16_10.sce b/1529/CH16/EX16.10/16_10.sce
new file mode 100755
index 000000000..1954003cb
--- /dev/null
+++ b/1529/CH16/EX16.10/16_10.sce
@@ -0,0 +1,16 @@
+//Chapter 16, Problem 10
+clc;
+L=100e-3;                   //inductance in henry
+R=800;                         //resistance in ohm
+f=5000;                         //frequency
+V=12;                        //voltage
+w=2*%pi*f;
+C=(L*(w^2+(R^2/L^2)))^-1;        //capacitance in farad
+Xl=2*%pi*f*L;                 //inductive reactance
+Rd=L/(R*C);                     //dynamic resistance
+Ir=V/Rd;                       //current at resonance
+Q=Xl/R;                         //circuit Q-factor at resonance
+printf("(a) capacitance of the capacitor, = %f uF\n\n",C*10^6);
+printf("(b) Dynamic resistance Rd = %.2f k.ohm\n\n",Rd/1000);
+printf("(c) supply current Ir = %.3f mA\n\n",Ir*1000);
+printf("(d) Q factor of circuit = %.2f",Q);