initial commit / add all books

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);