8 files changed, 129 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)
+
diff --git a/3828/CH10/EX10.2/Ex10_2.sce b/3828/CH10/EX10.2/Ex10_2.sce
new file mode 100644
index 000000000..28bd4f961
--- /dev/null
+++ b/3828/CH10/EX10.2/Ex10_2.sce
@@ -0,0 +1,16 @@
+//Chapter 10 : Crystallography and Crystal Imperfections
+
+clear;
+
+//Variable declaration
+rho=7.86*10**3        //density of material
+n=2                   //No. of atoms/cell
+A=55.85               //Atomic weigth
+No=6.023*10**26       //Avagadro's No.
+
+//Calculations
+a=((n*A)/(No*rho))**(1/3)/10**-10
+
+//Result
+mprintf("Lattice parameter a= %.5f*10**-10 m",a)
+
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)
+
diff --git a/3828/CH10/EX10.4/Ex10_4.sce b/3828/CH10/EX10.4/Ex10_4.sce
new file mode 100644
index 000000000..aa756a6eb
--- /dev/null
+++ b/3828/CH10/EX10.4/Ex10_4.sce
@@ -0,0 +1,15 @@
+//Chapter 10 : Crystallography and Crystal Imperfections
+
+clear;
+
+//Variable declaration
+M=58.45               //formula weigth
+rho=2.17*10**3        //density of material
+n=4                   //No. of atoms/cell              
+No=6*10**26           //Avagadro's No.
+
+//Calculations
+a=((n*M)/(No*rho))**(1/3)/10**-10
+
+//Result
+mprintf("Lattice constant a= %.3f*10**-10 m",a)
diff --git a/3828/CH10/EX10.5/Ex10_5.sce b/3828/CH10/EX10.5/Ex10_5.sce
new file mode 100644
index 000000000..fcddaa5fa
--- /dev/null
+++ b/3828/CH10/EX10.5/Ex10_5.sce
@@ -0,0 +1,14 @@
+//Chapter 10 : Crystallography and Crystal Imperfections
+
+clear;
+
+//Variable declaration
+r=1.278               //atomic weigth              
+No=6.02*10**26        //Avagadro's No.
+
+//Calculations
+a=2*sqrt(2)*r
+
+//Result
+mprintf("Lattice constant a= %.3f Armstrong",a)
+
diff --git a/3828/CH10/EX10.6/Ex10_6.sce b/3828/CH10/EX10.6/Ex10_6.sce
new file mode 100644
index 000000000..145a9e858
--- /dev/null
+++ b/3828/CH10/EX10.6/Ex10_6.sce
@@ -0,0 +1,17 @@
+//Chapter 10 : Crystallography and Crystal Imperfections
+
+clear;
+
+//Variable declaration
+r=1.278               //atomic weigth              
+N0=6.02*10**23        //Avagadro's No.
+no=4                  //No. of atoms/cell
+A=63.54               //Atomic weigth
+
+//Calculations
+a=2*sqrt(2)*r
+rho=(no*A)/(N0*a**3)/10**-24
+
+//Result
+mprintf("Density of the material= %.2f gm/cc",rho)
+
diff --git a/3828/CH10/EX10.7/Ex10_7.sce b/3828/CH10/EX10.7/Ex10_7.sce
new file mode 100644
index 000000000..5b2b526d7
--- /dev/null
+++ b/3828/CH10/EX10.7/Ex10_7.sce
@@ -0,0 +1,17 @@
+//Chapter 10 : Crystallography and Crystal Imperfections
+
+clear;
+
+//Variable declaration
+x=2                    //x intercept  
+y=3                    //y intercept
+z=3                    //z intercept
+
+//Calculations          
+rx=(1/x)*6             //reciprocal of x intercept
+ry=(1/y)*6             //reciprocal of y intercept
+rz=(1/z)*6             //reciprocal of z intercept
+
+//Result
+mprintf("Miller indices are (%d , %d , %d)",rx,ry,rz)
+
diff --git a/3828/CH10/EX10.8/Ex10_8.sce b/3828/CH10/EX10.8/Ex10_8.sce
new file mode 100644
index 000000000..c7623f162
--- /dev/null
+++ b/3828/CH10/EX10.8/Ex10_8.sce
@@ -0,0 +1,17 @@
+//Chapter 10 : Crystallography and Crystal Imperfections
+
+clear;
+
+//Variable declaration
+h=1
+k=1
+l=2
+a=2.5
+b=a
+c=2.6
+
+//Calculations          
+d=((h**2/a**2)+(k**2/b**2)+(l**2/c**2))**(-0.5)
+
+//Result
+mprintf("Inter-planar spacing d= %.3f Armstrong",d)