1 files changed, 16 insertions, 0 deletions
diff --git a/3828/CH10/EX10.1/Ex10_1.sce b/3828/CH10/EX10.1/Ex10_1.sce
new file mode 100644
index 000000000..7847f9c46
--- /dev/null
+++ b/3828/CH10/EX10.1/Ex10_1.sce
@@ -0,0 +1,16 @@
+//Chapter 10 : Crystallography and Crystal Imperfections
+
+clear;
+
+//Variable declaration
+rho=10.6              //density of material
+n=4                   //No. of atoms/cell
+A=108                 //Atomic weigth
+No=6.023*10**23       //Avagadro's No.
+
+//Calculations
+a=((n*A)/(No*rho))**(1/3)/10**-8
+
+//Result
+mprintf("Lattice parameter a= %.5f*10**-8 cm",a)
+