blob: 0253e04979d0307ed0e018d2dd2a9f80dc9a88e8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
clc
// Given That
lambda1=5.89e-5// wavelength in cm
lambda2=5.896e-5//wavelength in cm
n=1// for second order spectrum
t = 2 // width of detraction grating
grating_element = 425 // no. of lines per cm
//Sample Problem 23a Page No. 56
printf("\n # Problem 23a # \n")
printf(" \n Standard formula used \n lambda / d_lambda = n*N \n")
total_line = t * grating_element
printf("\n Total number of lines on diffraction grating is %d \n So",total_line)
N=lambda1/ (lambda2-lambda1)/n
if (N > total_line) then
printf ("\n Lines will not be resolved in %d order .",n)
printf("\nas %d lines are required for diffraction ", N)
else printf("\nas %d lines are required for diffraction are. ", N)
printf (" Lines will be resolved in %d order", n)
end
|
