summaryrefslogtreecommitdiff
path: root/1026/CH8/EX8.14/Example8_14.sce
blob: d82851751322e845d0249bf537ea1a35cc5b158e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
//chapter8,Example8_14,pg 209

grat=1/1250//transmission grating

n=2

theta=30*(%pi/180)//deviation angle

//(a+b)sin(theta)=n*lam

//grat=(a+b)

lam=(grat*sin(theta))/n//wavelength of spectral line

printf("wavelength of spectral line\n")

printf("lam=%.6f cm",lam)