summaryrefslogtreecommitdiff
path: root/1586/CH3/EX3.3/EXP3_3.sce
blob: c7ec6aff2858646310b5829f4d07f94ef663ba00 (plain)
1
2
3
4
5
6
7
clc;funcprot(0);//EXAMPLE 3.14
// Initialisation of Variables
r=1;.........// one unit of radius of each atom of FCC  cell
a0=(4*r)/sqrt(2);..........//Lattice constant for FCC   cell
v=(4*%pi*r^3)/3;.........//volume of one atom in FCC cell
Pf=(4*v)/(a0)^3;........//Packing factor in FCC cell
disp(Pf,"Packing factor in FCC cell")