1 files changed, 14 insertions, 0 deletions
diff --git a/1985/CH4/EX4.5/Chapter4_Example5.sce b/1985/CH4/EX4.5/Chapter4_Example5.sce
new file mode 100755
index 000000000..599666d66
--- /dev/null
+++ b/1985/CH4/EX4.5/Chapter4_Example5.sce
@@ -0,0 +1,14 @@
+clc
+clear
+//Input data
+N=(5.9*10^5)//Number of lines drawn on the grating in lines/m
+n=2//Order of diffraction
+l=(6000*10^-10)//Wavelength of light used in m
+
+//Calculations
+q=asind(N*n*l)//Angle of diffraction in degrees
+cosq=cosd(q)//Cosine of angle of diffraction
+P=((n*N)/cosq)/10^6//Dispersive power* 10^6
+
+//Output
+printf('The dispersive power of the grating in the second order is %3.2f *10^6',P )