1 files changed, 18 insertions, 0 deletions
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=")