summaryrefslogtreecommitdiff
path: root/1928/CH4/EX4.15.24/ex_4_15_24.sce
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1928/CH4/EX4.15.24/ex_4_15_24.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 '1928/CH4/EX4.15.24/ex_4_15_24.sce')
-rwxr-xr-x1928/CH4/EX4.15.24/ex_4_15_24.sce33
1 files changed, 33 insertions, 0 deletions
diff --git a/1928/CH4/EX4.15.24/ex_4_15_24.sce b/1928/CH4/EX4.15.24/ex_4_15_24.sce
new file mode 100755
index 000000000..911527454
--- /dev/null
+++ b/1928/CH4/EX4.15.24/ex_4_15_24.sce
@@ -0,0 +1,33 @@
+//Chapter-4,Example4_15_24,pg 4-38
+
+//for case1
+t1=2*10^-3 //thicknesss of plate
+
+d=2.65*10^3 //density
+
+Y=8*10^10 //Young's modulus
+
+k=1 //consider 1st harmonic
+
+n1=(k/(2*t1))*sqrt(Y/d) //formula of natural frequency
+
+printf(" 1)natural frequency =")
+
+disp(n1)
+
+printf("Hz")
+
+//for case2
+
+n2=3*10^6 //frequency
+
+t2=(k/(2*n2))*sqrt(Y/d) //arranging formula of natural frequency
+
+t=t1-t2 //change in thickness
+
+printf(" 2)change in thickness =")
+
+disp(t)
+
+printf("meter")
+