summaryrefslogtreecommitdiff
path: root/3768/CH4/EX4.8/Ex4_8.sce
blob: 724e9cca8806f830dbf74f8af9eb975c4f925b58 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
//Example number 4.8, Page number 69

clc;clear;
close;

//Variable declaration
e=1.6*10**-19;    //charge(c)
theta=56;    //angle(degree)
V=854;    //voltage(V)
n=1;      //order of diffraction
m=9.1*10**-31;    //mass(kg)
h=6.625*10**-34;   //plank constant
//Calculation
theta=theta*%pi/180;    //angle(radian)
lamda=h/sqrt(2*m*e*V);    //wavelength(m)
d=n*lamda/(2*sin(theta))*10**10;     //spacing of crystal(Angstrom)
//Result
printf("spacing of crystal is %.3f Angstrom",d)