summaryrefslogtreecommitdiff
path: root/1586/CH3/EX3.8/EXP3_8.sce
blob: 50e4c88a71677bb755931fa5b210dd06d2db4361 (plain)
1
2
3
4
5
6
7
8
9
10
11
clc;funcprot(0);//EXAMPLE 3.8
// Initialisation of Variables
r=1;.......//Radius of each atom in units
l=0.334;.......//Lattice parameter of (010) in nm
//CALCULATIONS
a1=2*r;........//Area of face for (010)
a2=l^2;...........//Area of face of (010) in cm^2
pd=1/a2;........//Planar density of (010) in atoms/nm^2
pf=%pi*r^2/(a1)^2;......//Packing fraction of (010)
disp(pd*10^14,"Planar density of (010) in atoms/cm^2:")
disp(pf,"Packing fraction of (010):")