summaryrefslogtreecommitdiff
path: root/296/CH1/EX1.3/eg1_3.sce
blob: ad956ff42a14b0d1c71b7173b3898c7bbbb8a87f (plain)
1
2
3
4
5
6
7
8
a = 5.43*10^-8; // lattice constant 
d = (1+4*0.25)/(a*a); //areal density on (100) plane
n = 2*(6*0.5+8*0.125); //number of atoms per cube
V = n/(a*a*a); //volume density
disp("3)")
disp(a,"lattice constant (in cm)=")
disp(d,"areal density on (100) plane (in per cm square) =")
disp(V,"volume density (in per cm cube) =")