initial commit / add all books

4 files changed, 48 insertions, 0 deletions

diff --git a/273/CH7/EX7.1/ex7_1sce.sce b/273/CH7/EX7.1/ex7_1sce.sce
new file mode 100755
index 000000000..3498b6db4
--- /dev/null
+++ b/273/CH7/EX7.1/ex7_1sce.sce
@@ -0,0 +1,11 @@
+clc;clear;

+//Example 7.1

+//plane parallel thin film

+

+//given values

+x=5890*10^-10;//wavelength of light in metre

+n=1.5;//refractive index

+r=60*%pi/180;//angle of refraction in degree

+ //calculation

+t=x/(2*n*cos(r));

+disp(t*10^6,'thickness of plate (in micrometre) is:');
\ No newline at end of file
diff --git a/273/CH7/EX7.2/ex7_2sce.sce b/273/CH7/EX7.2/ex7_2sce.sce
new file mode 100755
index 000000000..9e3bdfeba
--- /dev/null
+++ b/273/CH7/EX7.2/ex7_2sce.sce
@@ -0,0 +1,12 @@
+clc;clear;

+//Example 7.2

+//wedge shaped thin film

+

+//given values

+x=5893*10^-10;//wavelength of light in metre

+n=1.5;//refractive index

+y=.1*10^-3;//fringe spacing

+ //calculation

+z=x/(2*n*y);//angle of wedge

+alpha=z*180/%pi;//conversion of radian into degree

+disp(alpha,'angle of wedge (in degree) is:');
\ No newline at end of file
diff --git a/273/CH7/EX7.3/ex7_3.sce b/273/CH7/EX7.3/ex7_3.sce
new file mode 100755
index 000000000..1bc5613d2
--- /dev/null
+++ b/273/CH7/EX7.3/ex7_3.sce
@@ -0,0 +1,12 @@
+clc;clear;

+//Example 7.3

+//Newton's ring experiment- calculation of refractive index

+

+//given values

+D1=1.5;//diametre (in cm)of tenth dark ring in air

+D2=1.27;//diametre (in cm)of tenth dark ring in liquid

+

+

+ //calculation

+n=D1^2/D2^2;

+disp(n,'refractive index of liquid  is');
\ No newline at end of file
diff --git a/273/CH7/EX7.4/ex7_4sce.sce b/273/CH7/EX7.4/ex7_4sce.sce
new file mode 100755
index 000000000..209b31950
--- /dev/null
+++ b/273/CH7/EX7.4/ex7_4sce.sce
@@ -0,0 +1,13 @@
+clc;clear;

+//Example 7.4

+//nonreflecting film

+

+//given values

+l=5500*10^-10;//wavelength of light

+n1=1.33;//refractive index of water

+n2=1.52;//refractive index of glass window pane

+x=sqrt(n1);//to check if it is nonreflecting

+

+ //calculation

+t=l/(4*n1);//thickness of water film required

+disp(t*10^6,'minimum thickness of film (in metre) is');
\ No newline at end of file