summaryrefslogtreecommitdiff
path: root/3828/CH2/EX2.6/Ex2_6.sce
blob: 2c2ea9e5c92047a6da9c4ffb312ffd0d8402af8c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
//Chapter 2 : Diffraction

clear;

//Variable declaration
lamda1=5890*10**-8         //waveleght
lamda2=5896*10**-8         //waveleght
N=6000                     //number of lines for diffraction grating

//Calculations
theta1=((asin(2*lamda1*N))*180/%pi)
theta2=((asin(2*lamda2*N))*180/%pi)

//Result
mprintf("Angular separation= %.2f degrees",(theta2-theta1))