5 files changed, 57 insertions, 0 deletions
diff --git a/1664/CH1/EX1.1/Ex1_1.sce b/1664/CH1/EX1.1/Ex1_1.sce
new file mode 100755
index 000000000..49d50dc0d
--- /dev/null
+++ b/1664/CH1/EX1.1/Ex1_1.sce
@@ -0,0 +1,12 @@
+
+
+// Example No.1.1.
+// Page No.28.
+clc;clear;
+t = 0.15*10^(-2);//Thickness of the quartz crystal -[m].
+Y = 7.9* 10^(10);//Young's modulus of quartz -[N/m^2].
+d = 2650;//Density of quartz -[kg/m^3].
+f = (1/(2*t))*(sqrt(Y/d));//'f' is fndamental frequency of vibration.
+f = f*10^(-6);//fundamental frequency of vibration.
+printf("\nThe fundamental frequency of vibration of the crystal is %.4f MHz",f);
+
diff --git a/1664/CH1/EX1.2/Ex1_2.sce b/1664/CH1/EX1.2/Ex1_2.sce
new file mode 100755
index 000000000..0b0f3acdd
--- /dev/null
+++ b/1664/CH1/EX1.2/Ex1_2.sce
@@ -0,0 +1,14 @@
+
+
+// Example No.1.2.
+// Page No. 28.
+clc;clear;
+t = 1*10^(-3);//Thickness of the quartz crystal -[m].
+Y = 7.9* 10^(10);//Young's modulus of quartz -[N/m^2].
+d = 2650;//Density of quartz -[kg/m^3].
+p = 1;
+f1 = (p/(2*t))*(sqroot(Y/d));//For fundamental frequency  p=1.
+printf("\nThe fundamental frequency of vibration of the crystal is %3.3e Hz",f1);
+p = 2;
+f2 = (p/(2*t))*(sqroot(Y/d));// f2 is frequency of first overtone and for the first overtone P=2.
+printf("\nThe frequency of the first overtone of the crystal is %3.3e Hz",f2);
diff --git a/1664/CH1/EX1.3/Ex1_3.sce b/1664/CH1/EX1.3/Ex1_3.sce
new file mode 100755
index 000000000..d804d9284
--- /dev/null
+++ b/1664/CH1/EX1.3/Ex1_3.sce
@@ -0,0 +1,13 @@
+
+
+// Example No.1.3.
+// Page No.29.
+clc;clear;
+w = 5.893*10^(-7);//Wavelength of the light -[m].
+f = 1*10^(8);//Frequency of the ultrasonic transducer -[Hz].
+n = 1;//Order of diffraction.
+d = 7.505*10^(-6);
+w = 2*d;//wavelength of the ultrasonic wave.
+printf("\nThe wavelength of the ultrasonic wave is %3.3e m",w);
+v = f*w;//Velocity of the ultrasonic wave.
+printf("\nThe velocity of ultrasonic wave is %.f m/s",v);
diff --git a/1664/CH1/EX1.4/Ex1_4.sce b/1664/CH1/EX1.4/Ex1_4.sce
new file mode 100755
index 000000000..d7571b4bb
--- /dev/null
+++ b/1664/CH1/EX1.4/Ex1_4.sce
@@ -0,0 +1,10 @@
+
+// Example No.1.4.
+// Page No.29.
+clc;clear;
+f = 2*10^(6);//frequency of transducer -[Hz].
+cosq = cosd(30);//Angle of inclination of the probe -[degree].
+c = 800;//Velocity of ultrasonic wave -[m/s].
+v = 3;//Speed of blood -[m/s].
+delf = ((2*f*v*cosq)/c);//Doppler shifted frequency.
+printf("\nThe Doppler shifted frequency is %3.3e Hz",delf);
diff --git a/1664/CH1/EX1.5/Ex1_5.sce b/1664/CH1/EX1.5/Ex1_5.sce
new file mode 100755
index 000000000..717d6cd6b
--- /dev/null
+++ b/1664/CH1/EX1.5/Ex1_5.sce
@@ -0,0 +1,8 @@
+
+// Example No.1.5.
+// Page No.30.
+clc;clear;
+Y = 7.9*10^(10);//Young's modulus of quartz -[N/m^2].
+d = 2650;//Density of quartz -[kg/m^3].
+v = sqroot(Y/d);//Velocity of ultrasonic wave.
+printf("\nThe velocity of the ultrasonic waves is %.2f m/s",v);