//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=")