1 files changed, 17 insertions, 0 deletions
diff --git a/3828/CH10/EX10.3/Ex10_3.sce b/3828/CH10/EX10.3/Ex10_3.sce
new file mode 100644
index 000000000..05469723d
--- /dev/null
+++ b/3828/CH10/EX10.3/Ex10_3.sce
@@ -0,0 +1,17 @@
+//Chapter 10 : Crystallography and Crystal Imperfections
+
+clear;
+
+//Variable declaration
+M=58.5                //formula weigth
+rho=2180              //density of material
+n=4                   //No. of atoms/cell              
+No=6.02*10**26        //Avagadro's No.
+
+//Calculations
+a=((n*M)/(No*rho))**(1/3)/10**-10/2
+
+//Result
+mprintf("Distance between like atoms a= %.5f*10**-10 m",2*a)
+mprintf("\nDistance between adjacent atoms a/2= %.2f*10**-10 m",a)
+