diff options
Diffstat (limited to '1586/CH3/EX3.3/EXP3_3.sce')
| -rw-r--r-- | 1586/CH3/EX3.3/EXP3_3.sce | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/1586/CH3/EX3.3/EXP3_3.sce b/1586/CH3/EX3.3/EXP3_3.sce new file mode 100644 index 000000000..c7ec6aff2 --- /dev/null +++ b/1586/CH3/EX3.3/EXP3_3.sce @@ -0,0 +1,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")
|