summaryrefslogtreecommitdiff
path: root/3669/CH3/EX3.1/1.sce
blob: 3c31733fd08c98e051dc5bc0dd4457197efaea53 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

//Variable declaration
lamda=0.071*10**-9;     //wavelength(m)
a=0.28*10**-9;    //lattice constant(m)
h=1;
k=1;
l=0;
n=2;    //order of diffraction

//Calculation
d=a/sqrt(h**2+k**2+l**2);
x=n*lamda/(2*d);     
theta=asin(x);     //angle(radian)
theta=theta*180/%pi;    //glancing angle(degrees)

//Result
printf('glancing angle is %0.3f   degrees  \n',int(theta))