summaryrefslogtreecommitdiff
path: root/1964/CH5/EX5.38
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1964/CH5/EX5.38
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 '1964/CH5/EX5.38')
-rwxr-xr-x1964/CH5/EX5.38/ex5_38.sce19
1 files changed, 19 insertions, 0 deletions
diff --git a/1964/CH5/EX5.38/ex5_38.sce b/1964/CH5/EX5.38/ex5_38.sce
new file mode 100755
index 000000000..f164fa649
--- /dev/null
+++ b/1964/CH5/EX5.38/ex5_38.sce
@@ -0,0 +1,19 @@
+//Chapter-5, Example 5.38, Page 199
+//=============================================================================
+clc
+clear
+//INPUT DATA
+Q=45;//quality factor
+f1=600*10^3;//freq in Hz
+f2=1000*10^3;//freq in Hz
+//given new resistance is 50% greater than former.let us consider two reistances as R1=1 ohm and R2=1.5 ohm for ease of calculation.Then
+R1=1;//resistance in ohm
+R2=1.5;//resistance in ohm
+//CALCULATIONS
+W1=2*%pi*f1;//angular freq 1 in rad/sec
+W2=2*%pi*f2;//angular freq 2 in rad/sec
+Q=45;//quality factor
+L=(Q*R1)/(W1);//inductance in henry
+Q1=(W2*L)/(R2);//new quality factor
+mprintf("Thus new quality factor is %d",Q1);
+//=================================END OF PROGRAM======================================================================================================