summaryrefslogtreecommitdiff
path: root/1586/CH3/EX3.13/EXP3_13.sce
diff options
context:
space:
mode:
Diffstat (limited to '1586/CH3/EX3.13/EXP3_13.sce')
-rw-r--r--1586/CH3/EX3.13/EXP3_13.sce9
1 files changed, 9 insertions, 0 deletions
diff --git a/1586/CH3/EX3.13/EXP3_13.sce b/1586/CH3/EX3.13/EXP3_13.sce
new file mode 100644
index 000000000..a2aadc519
--- /dev/null
+++ b/1586/CH3/EX3.13/EXP3_13.sce
@@ -0,0 +1,9 @@
+clc;funcprot(0);//EXAMPLE 3.13
+// Initialisation of Variables
+r=1;............//Radius of each atom in units
+n=8;.........//No. of atoms present in Diamond cubic Silicon per cell
+//CALCULATIONS
+v=(4/3)*%pi*r^3;..........// Volume of each atom in Diamond cubic Silicon
+a0=(8*r)/sqrt(3);..........//Volume of unit cell in Diamond cubic Silicon
+Pf=(n*v)/a0^3;............//Packing factor of Diamond cubic Silicon
+disp(Pf,"Packing factor of Diamond cubic Silicon:")