7 files changed, 58 insertions, 0 deletions
diff --git a/3020/CH5/EX5.1/ex5_1.sce b/3020/CH5/EX5.1/ex5_1.sce
new file mode 100755
index 000000000..8a263f8e0
--- /dev/null
+++ b/3020/CH5/EX5.1/ex5_1.sce
@@ -0,0 +1,9 @@
+
+clc;
+clear all;
+t = 1e-3; // Thickness in meters
+r = 2654; // Density in Kg per cubic meters
+Y = 8e10; // Youngs modulus in Newton per square meter
+p=1;
+f = (p/(2*t))*sqrt(Y/r);//The fundamental frquency 
+disp('Hz',f,'The fundamental frquency is ')
diff --git a/3020/CH5/EX5.2/ex5_2.sce b/3020/CH5/EX5.2/ex5_2.sce
new file mode 100755
index 000000000..3612372a8
--- /dev/null
+++ b/3020/CH5/EX5.2/ex5_2.sce
@@ -0,0 +1,9 @@
+
+clc;
+clear all;
+t = 0.5e-2; // Thickness in meters
+r = 2650; // Density in Kg per cubic meters
+p=1;//for fundamental vibration
+Y = 7.9e10; // Youngs modulus in Newton per square meter
+f = (p/(2*t))*sqrt(Y/r);//The fundamental frquency
+disp('Hz',f,'The fundalmental frquency is ')
diff --git a/3020/CH5/EX5.3/ex5_3.sce b/3020/CH5/EX5.3/ex5_3.sce
new file mode 100755
index 000000000..617b4e5eb
--- /dev/null
+++ b/3020/CH5/EX5.3/ex5_3.sce
@@ -0,0 +1,9 @@
+
+clc;
+clear all;
+t = 0.7e-3; // Thickness in meters
+r = 2800; // Density in Kg per cubic meters
+p=1;//for fundamental frequency
+Y = 8.8e10; // Youngs modulus in Newton per square meter
+f = (p/(2*t))*sqrt(Y/r);//The fundamental frquency
+disp('Hz',f,'The fundamental frquency is ')
diff --git a/3020/CH5/EX5.4/ex5_4.sce b/3020/CH5/EX5.4/ex5_4.sce
new file mode 100755
index 000000000..c22081ec0
--- /dev/null
+++ b/3020/CH5/EX5.4/ex5_4.sce
@@ -0,0 +1,7 @@
+clc;
+clear all;
+t = 10e-2; // Thickness in meters
+r = 8.1e3; // Density in Kg per cubic meters
+Y = 8.2e11; // Youngs modulus in Newton per square meter
+f = (1/(2*t))*sqrt(Y/r);
+disp('Hz',f,'The frquency of produced ultrasonic waves by nickel is ')
diff --git a/3020/CH5/EX5.5/ex5_5.sce b/3020/CH5/EX5.5/ex5_5.sce
new file mode 100755
index 000000000..1f8e17e32
--- /dev/null
+++ b/3020/CH5/EX5.5/ex5_5.sce
@@ -0,0 +1,6 @@
+clc;
+clear all;
+u = 5000; // Velocity of sound in steel in meters per second
+f = 50e3; // Difference between two adjacent frequency in Hertz
+d = u/(2*f);//Thickness of plate
+disp('m',d,'Thickness of plate is') 
diff --git a/3020/CH5/EX5.6/ex5_6.sce b/3020/CH5/EX5.6/ex5_6.sce
new file mode 100755
index 000000000..0f79eac94
--- /dev/null
+++ b/3020/CH5/EX5.6/ex5_6.sce
@@ -0,0 +1,9 @@
+clc;
+clear all;
+f = 2.87e3; //Fundalmental frquency in Hz/m
+r = 2660; // Density in Kg per cubic meters
+Y = 4*f^2*r;//The Youngs modulus of he quartz cystal
+disp('N/m^2',Y,'The Youngs modulus of he quartz cystal is ')
+f1 = 1200e3; // Frequency of vibration in Hertz
+t = (1/(2*f1))*sqrt(Y/r);//The thickness of the crystal
+disp('m',t,'The thickness of the crystal is ')
diff --git a/3020/CH5/EX5.7/ex5_7.sce b/3020/CH5/EX5.7/ex5_7.sce
new file mode 100755
index 000000000..2bd077691
--- /dev/null
+++ b/3020/CH5/EX5.7/ex5_7.sce
@@ -0,0 +1,9 @@
+clc;
+clear all;
+f = 7e6; // Ultrasonic frquency in hertz
+theta = 45;
+v = 1.5; // Blood velocity in m/s
+U = 1500; // Ultrasonic velocity in m/s
+deltaf = (2*f*v*cosd(45))/U
+disp('Hz',deltaf,'The frequency of the doppler flowmeter  is')
+//Variation in anser as compared to textbook..checked in calculator also.. there is mistake in the book..