blob: 0a2ae0a5d36d8e72592bb7646565c6047e52195c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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=")
|
