summaryrefslogtreecommitdiff
path: root/2672/CH3/EX3.37/Ex3_37.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /2672/CH3/EX3.37/Ex3_37.sce
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 '2672/CH3/EX3.37/Ex3_37.sce')
-rwxr-xr-x2672/CH3/EX3.37/Ex3_37.sce24
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.