From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 49/CH4/EX4.7/ex7.sce | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100755 49/CH4/EX4.7/ex7.sce

(limited to '49/CH4/EX4.7')

diff --git a/49/CH4/EX4.7/ex7.sce b/49/CH4/EX4.7/ex7.sce
new file mode 100755
index 000000000..728446efc
--- /dev/null
+++ b/49/CH4/EX4.7/ex7.sce
@@ -0,0 +1,23 @@
+//CHAPTER 4_ Motion and Dimensional Measurement
+//Caption : Seismic vibration
+// Example 7// Page 232
+disp("ty=0.6")
+disp("fn=10")
+disp("f=25")
+disp("M=0.15")
+disp("xo=1.5*10^-3")
+ty=0.6  //(' enter the damping ratio of seismic vibration pickup=:')
+fn=10   //('enter the natural frequency =:')
+f=25  //('enter the frequency at which the table is vibrating=')
+M=0.15  //( 'enter the seismic mass=:')
+xo=1.5*10^-3  //('enter the relative amplitude of the mass=:')
+r=f/fn;
+disp("xi=xo/((r^2)/sqrt((1-r^2)^2+(2*ty*r)^2));")
+xi=xo/((r^2)/sqrt((1-r^2)^2+(2*ty*r)^2));
+error=(xi-xo)/xo;
+printf('error in measurement is %fd\n',error)
+wn=2*%pi*fn;
+Ks=wn^2*M;
+printf('spring constant is %fd N/m\n',Ks)
+B=ty*(2*sqrt(Ks*M));
+printf(' damping coefficient of pickup is %fdN-s/m\n',B)
\ No newline at end of file
-- 
cgit