initial commit / add all books

1 files changed, 31 insertions, 0 deletions

diff --git a/49/CH6/EX6.3/ex3.sce b/49/CH6/EX6.3/ex3.sce
new file mode 100755
index 000000000..1da1ada8b
--- /dev/null
+++ b/49/CH6/EX6.3/ex3.sce
@@ -0,0 +1,31 @@
+//CHAPTER 6 _ PRESSURE AND SOUND MEASUREMENT

+//Caption : Elastic Transducers

+// Example 3 // Page 337

+Sa=1000

+disp("Sa=1000")    //('Enter the sensitivity of LVDT =:')

+//Properties of diaphragm

+E=200*10^9   //('Enter the value of modulus of elasticity=:')

+disp("E=200*10^9 ")

+v=0.3  //('Enter the Poissons ratio=:')

+disp("v=0.3 ")

+d=0.2   //('Enter the diameter of diaphragm=:')

+disp("d=0.2  ")

+R=d*(1/2);

+P_max=2*10^6  //('What is the maximum pressure?')

+disp("P_max=2*10^6 ")

+p=7800   //('What is the density of steel?')

+disp("Thickness is given by:")

+disp("t=(3*P_max*R^4*(1-v^4)/(4*E))^(1/4);")

+t=(3*P_max*R^4*(1-v^4)/(4*E))^(1/4)

+T=t*1000;

+printf('Thickness is %1.1f mm\n',T)

+//To calculate the lowest pressure in kPa which may be sensed by this instrument , resolution and the natural frequency of the diaphragm

+y=.001   //('Enter  the l)east value of measurement=:')

+p_min=(y*16*E*t^3)/(3*R^4*(1-v^2)*Sa)

+printf('So the minimum pressure and resolution is %d Pa \n',p_min)

+f=(10.21/R^2)*((E*t^2)/(12*(1-v^2)*p))^(1/2)

+printf('The natural frequency of diaphragm is %fd Hz',f)

+

+

+

+