initial commit / add all books

7 files changed, 60 insertions, 0 deletions

diff --git a/1397/CH2/EX2.1/2_1.sce b/1397/CH2/EX2.1/2_1.sce
new file mode 100755
index 000000000..1369be1d2
--- /dev/null
+++ b/1397/CH2/EX2.1/2_1.sce
@@ -0,0 +1,8 @@
+//clc();

+clear;

+//To determine the fundamental frequency of crystal

+t=0.002;            //thickness of the crystal in metres

+V=5750;             //velocity of sound waves in metres per sec

+new=V*10^(-6)/(2*t);

+printf("fundamental frequency of the piezo electric crystal is %f MHz",new);

+

diff --git a/1397/CH2/EX2.2/2_2.sce b/1397/CH2/EX2.2/2_2.sce
new file mode 100755
index 000000000..9fd507ace
--- /dev/null
+++ b/1397/CH2/EX2.2/2_2.sce
@@ -0,0 +1,8 @@
+//clc();

+clear;

+//To determine the frequency of the fundamental note

+l=3*10^(-3);           //vibrating length in metres

+Y=8*10^10;             //Youngs modulus in N/m^2

+rho=2.5*10^3;          //density of crystal in kg/cm^3

+new=(sqrt(Y/rho))/(2*l);

+printf("the frequency of the fundamental note emitted by piezo-electric crystal is %f Hz",new);

diff --git a/1397/CH2/EX2.3/2_3.sce b/1397/CH2/EX2.3/2_3.sce
new file mode 100755
index 000000000..af16fe3a6
--- /dev/null
+++ b/1397/CH2/EX2.3/2_3.sce
@@ -0,0 +1,8 @@
+//clc();

+clear;

+//To determine the natural frequency of ultrasonic waves

+l=5.5*10^(-3);           //thickness of quartz plate in metres

+Y=8.0*10^10;             //youngs modulus of quartz in N/m^2

+rho=2.65*10^3;           //density in kg/m^3

+new=(sqrt(Y/rho))*10^(-3)/(2*l);

+printf("natural frequency of ultrasonic waves is %f KHz",new);

diff --git a/1397/CH2/EX2.4/2_4.sce b/1397/CH2/EX2.4/2_4.sce
new file mode 100755
index 000000000..b6fe82c9f
--- /dev/null
+++ b/1397/CH2/EX2.4/2_4.sce
@@ -0,0 +1,8 @@
+//clc();

+clear;

+//To determine the natural frequency of iron

+l=40*10^(-3);           //length of pure iron rod in metres

+rho=7.25*10^3;          //density of pure iron in kg/m^3

+Y=115*10^9;             //youngs modulus in N/m^2

+new=(sqrt(Y/rho))*10^(-3)/(2*l);

+printf("the natural frequency of pure iron is %f KHz",new);

diff --git a/1397/CH2/EX2.5/2_5.sce b/1397/CH2/EX2.5/2_5.sce
new file mode 100755
index 000000000..5d8e3a282
--- /dev/null
+++ b/1397/CH2/EX2.5/2_5.sce
@@ -0,0 +1,8 @@
+//clc();

+clear;

+//To determine the capacitance

+new=10^6;            //frequency of ultrasonics in Hz

+L=1;                 //Inductance in Henry

+A=4*(%pi^2)*(new^2)*L;

+C=10^12/A;

+printf("the capacitance to produce ultrasonic waves is %f PF",C);

diff --git a/1397/CH2/EX2.6/2_6.sce b/1397/CH2/EX2.6/2_6.sce
new file mode 100755
index 000000000..da4d2fd26
--- /dev/null
+++ b/1397/CH2/EX2.6/2_6.sce
@@ -0,0 +1,8 @@
+//clc();

+clear;

+//To determine the fundamental frequency

+l=3*10^(-3);           //vibrating length of piezo electric crystal in metres

+rho=3.5*10^3;          //density of piezo electric crystal in kg/m^3

+Y=8*10^10;             //youngs modulus in N/m^2

+new=((10^-3)*(sqrt(Y/rho))*10^(-3))/(2*l);

+printf("the fundamental frequency is %f Hz",new);

diff --git a/1397/CH2/EX2.7/2_7.sce b/1397/CH2/EX2.7/2_7.sce
new file mode 100755
index 000000000..739bef271
--- /dev/null
+++ b/1397/CH2/EX2.7/2_7.sce
@@ -0,0 +1,12 @@
+//clc();

+clear;

+//To determine the fundamental frequency

+t=0.001;           //thickness of the crystal in metres

+rho=2650;          //density of quartz in kg/m^3

+Y=7.9*10^10;             //youngs modulus in N/m^2

+V=sqrt(Y/rho);

+printf("the fundamental frequency is %f m/s",V);

+//For fundamental mode of vibration, the thickness must be equal to lambda/2

+lambda=2*t;

+new=V/lambda;

+printf("the fundamental frequency is %f Hz",new);