summaryrefslogtreecommitdiff
path: root/3020/CH13/EX13.5/ex13_5.sce
blob: e0ad7d30d7035157bb44977adbdf68192fbab63a (plain)
1
2
3
4
5
6
7
8
9
10
clc;
clear all;
lambda = 1.5418e-10; // Wavelength of X-rays in meters
theta = 30; // Angle of diffracted angle in degrees
h = 1; //Miller indices of diffracted plane 
k = 1; //Miller indices of diffracted plane
l = 1;// Miller indices of diffracted plane
d = lambda/(2*sind(30));// Interplanar Distance for first order diffraction
a = d*sqrt(h^2+k^2+l^2);// Lattice constant
disp('m',a,'The value of lattice constant is')