summaryrefslogtreecommitdiff
path: root/1529/CH16/EX16.10
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1529/CH16/EX16.10
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '1529/CH16/EX16.10')
-rwxr-xr-x1529/CH16/EX16.10/16_10.sce16
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);