summaryrefslogtreecommitdiff
path: root/3869/CH2/EX2.8/Ex2_8.sce
blob: a2fe3c22092ce701afd3d5f878da415d83fe6547 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
clear
//
//
//

//Variable declaration
theta=10*%pi/180           //angle(radian)
dtheta=3*%pi/(60*60*180)           //difference of angle(radian)
dlamda=5*10**-9                //wavelength(cm)
k=2

//Calculation
lamda=sin(theta)*dlamda/(cos(theta)*dtheta)       
lamdanew=lamda+dlamda             //wavelength of lines(cm)
N=lamda/(dlamda*k)
Ne=N*k*lamda/sin(theta)      //minimum grating width required(cm)

//Result
printf("\n wavelength of lines is %0.1f  *10**-8 cm",lamda*10**8)
printf("\n answer given in the book varies due to rounding off errors")
printf("\n minimum grating width required is %0.1f  cm",Ne)