5 files changed, 75 insertions, 0 deletions
diff --git a/1784/CH45/EX45.1/example_1.sce b/1784/CH45/EX45.1/example_1.sce
new file mode 100755
index 000000000..7ae441fbc
--- /dev/null
+++ b/1784/CH45/EX45.1/example_1.sce
@@ -0,0 +1,8 @@
+//example 1
+//chapter 45
+//clc()
+m=1
+lambda=4000//in A
+d=31700//in A
+theta=asind((m*lambda)/d)
+disp(theta,"The first order diffraction pattern in degree=")
+\ No newline at end of file
diff --git a/1784/CH45/EX45.2/example_2.sce b/1784/CH45/EX45.2/example_2.sce
new file mode 100755
index 000000000..cb3198b83
--- /dev/null
+++ b/1784/CH45/EX45.2/example_2.sce
@@ -0,0 +1,15 @@
+//chapter 45
+//example 2
+//given
+//clc()
+m=1
+lambda=5890//in A
+d=25400//in A
+theta=asind((m*lambda)/d)
+disp("solution (a)")
+disp(theta,"The first order diffraction pattern in degree=")
+disp("solution (b)")
+//given
+del_lambda=5.9//in A
+delta_theta=(m*(del_lambda))/(d*cosd(theta))
+disp(delta_theta,"Angle of seperation in degree=")
+\ No newline at end of file
diff --git a/1784/CH45/EX45.3/example3.sce b/1784/CH45/EX45.3/example3.sce
new file mode 100755
index 000000000..abcc36594
--- /dev/null
+++ b/1784/CH45/EX45.3/example3.sce
@@ -0,0 +1,10 @@
+//Example 3
+//chapter 45
+//Given
+lambda=5890//A
+m=3
+delta_lambda=(5895.9-5890.0)//in A
+R=lambda/(delta_lambda)
+disp(R,"Resolving power=")
+N=(R/m)
+disp(N,"Number of rulings needed is=")
diff --git a/1784/CH45/EX45.4/example_4.sce b/1784/CH45/EX45.4/example_4.sce
new file mode 100755
index 000000000..0a2ae0a5d
--- /dev/null
+++ b/1784/CH45/EX45.4/example_4.sce
@@ -0,0 +1,18 @@
+//Example 4
+//Chapter 45
+//clc()
+m=3
+m1=5
+lambda=5460//in A
+d=31700//in A
+theta=asind((m*lambda)/d)
+disp(theta,"The first order diffraction pattern in degree=")
+D=m/(d* cosd(theta))
+disp("Solution (a)")
+disp(D,"The dispersion in radian/A=")
+disp("Solution (b)")
+N=8000
+lambda=5460
+R=N*m1
+delta_lambda=lambda/R
+disp(delta_lambda,"Wave length difference in A=")
diff --git a/1784/CH45/EX45.5/example5.sce b/1784/CH45/EX45.5/example5.sce
new file mode 100755
index 000000000..d6fa97a65
--- /dev/null
+++ b/1784/CH45/EX45.5/example5.sce
@@ -0,0 +1,24 @@
+//Example 5
+//chapter 45
+//clc()
+a_o=5.63//A
+d=a_o/sqrt(5)
+lambda=1.10//in A
+disp(d,"Interplanar spacing d in A=")
+
+disp("diffracted beam occurs when m=1,m=2 and m=3")
+disp("when m1=1, theta in degree=")
+m1=1
+x=(m1*lambda)/(2*d)
+theta_1=asind(x)
+disp(theta_1)
+disp("when m1=2, theta in degree=")
+m2=2
+x=(m2*lambda)/(2*d)
+theta_2=asind(x)
+disp(theta_2)
+disp("when m1=3, theta in degree=")
+m3=3
+x=(m3*lambda)/(2*d)
+theta_3=asind(x)
+disp(theta_3)
+\ No newline at end of file