summaryrefslogtreecommitdiff
path: root/3768/CH4/EX4.1/Ex4_1.sce
blob: c0ffb5ecc0c201fe37d53191dc4819704c78b2dc (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
//Example number 4.1, Page number 66

clc;clear;
close;

//Variable declaration
d=0.282*10**-9;    //lattice spacing(m)
theta=8+(35/60);   //glancing angle(degree)
n=1;   //order
Theta=90;    //angle(degree)
//Calculation
theta=theta*%pi/180;    //angle(radian)
Theta=Theta*%pi/180;    //angle(radian)
lamda=2*d*sin(theta)/n;    //wavelength(m)
nmax=2*d*sin(Theta)/lamda;    //maximum order of diffraction
//Result
printf("wavelength is %.3f Angstrom",lamda*10**10)
//answer varies due to rounding off errors
printf("\n maximum order of diffraction is %d",round(nmax))