summaryrefslogtreecommitdiff
path: root/1586/CH3/EX3.14/EXP3_14.sce
blob: c3a652dd652a993ce78de5f0fa883ea9e7a0d848 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
clc;funcprot(0);//EXAMPLE 3.14
// Initialisation of Variables
wL=1.54;........//Wave length of Copper K-alpha in      Angstorms
t1=19.5;......//Half the angle between the difracted beam and the original beam direction
t2=39;......// The angle between the difracted beam and the original beam direction
//CALCULATIONS
D1=wL/(sin(t1*%pi/180));......//Interplanar spacing between the planes in Angstroms
D2=wL/(sin(t2*%pi/180));......//Interplanar spacing between the planes in Angstroms
a0=D2*(sqrt(3));.......//Lattice constant for cubic form of BaTiO3
disp(D1,"Interplanar spacing between the planes in     Angstroms:")
disp(a0,"Lattice constant for cubic form of BaTiO3:")