diff options
Diffstat (limited to '3717/CH10')
| -rw-r--r-- | 3717/CH10/EX10.1/Ex10_1.sce | 14 | ||||
| -rw-r--r-- | 3717/CH10/EX10.10/Ex10_10.sce | 12 | ||||
| -rw-r--r-- | 3717/CH10/EX10.11/Ex10_11.sce | 17 | ||||
| -rw-r--r-- | 3717/CH10/EX10.12/Ex10_12.sce | 10 | ||||
| -rw-r--r-- | 3717/CH10/EX10.13/Ex10_13.sce | 18 | ||||
| -rw-r--r-- | 3717/CH10/EX10.2/Ex10_2.sce | 14 | ||||
| -rw-r--r-- | 3717/CH10/EX10.6/Ex10_6.sce | 16 | ||||
| -rw-r--r-- | 3717/CH10/EX10.7/Ex10_7.sce | 18 | ||||
| -rw-r--r-- | 3717/CH10/EX10.8/Ex10_8.sce | 14 | ||||
| -rw-r--r-- | 3717/CH10/EX10.9/Ex10_9.sce | 14 |
10 files changed, 147 insertions, 0 deletions
diff --git a/3717/CH10/EX10.1/Ex10_1.sce b/3717/CH10/EX10.1/Ex10_1.sce new file mode 100644 index 000000000..7515e1d58 --- /dev/null +++ b/3717/CH10/EX10.1/Ex10_1.sce @@ -0,0 +1,14 @@ +// Ex10_1 Page:211 (2014)
+clc;clear;
+m = 2; n = 3; p = 1; // Coefficients of intercepts along the crystallographic axes
+m_inv = 1/m; // Reciprocal of the first coefficient
+n_inv = 1/n; // Reciprocal the second coefficient
+p_inv = 1/p; // Reciprocal the third coefficient
+mul_fact = double(lcm(int32([m,n,p]))); // LCM of m, n and p
+i1 = m_inv*mul_fact; // Clear the first fraction
+i2 = n_inv*mul_fact; // Clear the second fraction
+i3 = p_inv*mul_fact; // Clear the third fraction
+printf("\nThe Miller indices of the plane are (%d %d %d) ", i1, i2, i3);
+
+// Result
+// The Miller indices of the plane are (3 2 6)
\ No newline at end of file diff --git a/3717/CH10/EX10.10/Ex10_10.sce b/3717/CH10/EX10.10/Ex10_10.sce new file mode 100644 index 000000000..6a74dccbf --- /dev/null +++ b/3717/CH10/EX10.10/Ex10_10.sce @@ -0,0 +1,12 @@ +// Ex10_10 Page:220 (2014)
+clc;clear;
+lambda = 1.4e-010; // Wavelength of X-rays, m
+a = 5e-010; // Lattice parameter, m
+h = 1, k = 1, l = 1; // Miller indices of planes from which the reflection occurs
+d_111 = a/sqrt(3); // Interplanar spacing between (1 1 1) planes, m
+n = 1; // Order of diffraction
+theta_111 = asind(n*lambda/(2*d_111)); // Angle at which the X-ray is incident on (1 1 1) plane of the crystal, degree
+printf("\nThe angle at which the X-ray is incident on (1 1 1) plane = %2d degree", theta_111);
+
+// Result
+// The angle at which the X-ray is incident on (1 1 1) plane = 14 degree
\ No newline at end of file diff --git a/3717/CH10/EX10.11/Ex10_11.sce b/3717/CH10/EX10.11/Ex10_11.sce new file mode 100644 index 000000000..109c22fd1 --- /dev/null +++ b/3717/CH10/EX10.11/Ex10_11.sce @@ -0,0 +1,17 @@ +// Ex10_11 Page:221 (2014)
+clc;clear;
+h = 6.626e-034; // Planck's constant, Js
+e = 1.6e-019; // Charge on an electron, C
+m = 9.1e-031; // Mass of an electron, kg
+V = 120; // Accelerating potential, volt
+theta = 22; // The angle at which the reflection maximum is observed, degree
+lambda = h/sqrt(2*m*e*V); // Wavelength of a moving electron, m
+h = 1, k = 1, l = 1; // Miller indices of planes from which the reflection occurs
+n = 1; // Order of diffraction
+d_111 = n*lambda/(2*sind(theta)*1e-010); // Interplanar spacing between (1 1 1) planes, m
+a = sqrt(3)*d_111; // Lattice parameter, m
+printf("\nThe lattice parameter = %5.3f angstrom", a);
+
+// Result
+// The lattice parameter = 2.591 angstrom
+// The answers vary due to round off error
\ No newline at end of file diff --git a/3717/CH10/EX10.12/Ex10_12.sce b/3717/CH10/EX10.12/Ex10_12.sce new file mode 100644 index 000000000..57e909775 --- /dev/null +++ b/3717/CH10/EX10.12/Ex10_12.sce @@ -0,0 +1,10 @@ +// Ex10_12 Page:224 (2014)
+clc;clear;
+e = 1.6e-019; // Charge on an electron, C
+epsilon_0 = 8.85e-012; // Absolute electric permittivity of free space, coulomb-square/N/Sq.m
+r_0 = 0.32e-009; // Inter-ionic distance of KCl, m
+V = -e/(4*3.14*epsilon_0*r_0); // Potential energy of K+ and Cl- ions, eV
+printf("\nThe potential energy of K+ and Cl- ions = %5.3f eV", V);
+
+// Result
+// The potential energy of K+ and Cl- ions = -4.498 eV
\ No newline at end of file diff --git a/3717/CH10/EX10.13/Ex10_13.sce b/3717/CH10/EX10.13/Ex10_13.sce new file mode 100644 index 000000000..d4032dc51 --- /dev/null +++ b/3717/CH10/EX10.13/Ex10_13.sce @@ -0,0 +1,18 @@ +// Ex10_13 Page:224 (2014)
+clc;clear;
+e = 1.6e-019; // Charge on an electron, C
+epsilon_0 = 8.85e-012; // Absolute electric permittivity of free space, coulomb-square/N/Sq.m
+r_0 = 0.31e-009; // Equilibrium separation of Na+ and Cl- ions, m
+alpha = 1.748; // Madelung constant
+n = 9; // Repulsive exponent
+E_ion = 5; // Ionization energy of NaCl, eV
+V = -1*alpha*e^2/(4*3.14*epsilon_0*r_0*e)*(1-1/n); // Potential energy of Na+ and Cl- ions, eV
+E_ele = 1/2*V; // Electron affinity, eV
+E_trans = E_ion + E_ele; // Electron transfer energy, eV
+delta_E = E_trans/2; // Contribution per ion to the cohesive energy, eV
+E_cohesive = E_ele + delta_E; // Cohesive energy per NaCl atom, eV
+printf("\nThe cohesive energy per NaCl atom = %5.3f eV", E_cohesive);
+
+// Result
+// The cohesive energy per NaCl atom = -2.911 eV
+// The answers vary due to round off error
\ No newline at end of file diff --git a/3717/CH10/EX10.2/Ex10_2.sce b/3717/CH10/EX10.2/Ex10_2.sce new file mode 100644 index 000000000..d2564c3bb --- /dev/null +++ b/3717/CH10/EX10.2/Ex10_2.sce @@ -0,0 +1,14 @@ +// Ex10_2 Page:211 (2014)
+clc;clear;
+p = 2; q = 3/2; r = %inf; // Coefficients of intercepts along the x-, y- and z-axes
+inv_p = 1/p; // Reciprocal of the first coefficient
+inv_q = 1/q; // Reciprocal the second coefficient
+inv_r = 1/r; // Reciprocal the third coefficient
+mul_fact = double(lcm(int32([p, q*2]))); // LCM of p and twice of q
+m1 = inv_p*mul_fact; // Clear the first fraction
+m2 = inv_q*mul_fact; // Clear the second fraction
+m3 = inv_r*mul_fact; // Clear the third fraction
+printf("\nThe Miller indices of the plane parallel to z-axis are (%d %d %d) ", m1, m2, m3);
+
+// Result
+// The Miller indices of the plane parallel to z-axis are (3 4 0)
\ No newline at end of file diff --git a/3717/CH10/EX10.6/Ex10_6.sce b/3717/CH10/EX10.6/Ex10_6.sce new file mode 100644 index 000000000..3bfcbe050 --- /dev/null +++ b/3717/CH10/EX10.6/Ex10_6.sce @@ -0,0 +1,16 @@ +// Ex10_6 Page:213 (2014)
+clc;clear;
+r = 0.152e-09; // Atomic radius of silver, m
+a = 4*r/sqrt(2); // Lattice parameter for silver, m
+// Case-I
+h = 2; k = 3; l = 1; // Miller Indices for first set of planes
+d_231 = a/(h^2+k^2+l^2)^(1/2); // The interplanar spacing of (2 3 1) planes, m
+printf("\nThe interplanar spacing of (2 3 1) planes = %6.4f nm", d_231/1e-09);
+// Case-II
+h = 1; k = 1; l = 0; // Miller Indices for second set of planes
+d_110 = a/(h^2+k^2+l^2)^(1/2); // The interplanar spacing of (1 1 0) planes, m
+printf("\nThe interplanar spacing of (1 1 0) planes = %5.3f nm", d_110/1e-09);
+
+// Result
+// The interplanar spacing of (2 3 1) planes = 0.1149 nm
+// The interplanar spacing of (1 1 0) planes = 0.304 nm
\ No newline at end of file diff --git a/3717/CH10/EX10.7/Ex10_7.sce b/3717/CH10/EX10.7/Ex10_7.sce new file mode 100644 index 000000000..c90982768 --- /dev/null +++ b/3717/CH10/EX10.7/Ex10_7.sce @@ -0,0 +1,18 @@ +// Ex10_7 Page:213 (2014)
+clc;clear;
+a = 0.424e-09; // Lattice parameter of cubic crystal, m
+p = 2; q = %inf; r = 1; // Coefficients of intercepts along the x-, y- and z-axes
+inv_p = 1/p; // Reciprocal of the first coefficient
+inv_q = 1/q; // Reciprocal the second coefficient
+inv_r = 1/r; // Reciprocal the third coefficient
+mul_fact = double(lcm(int32([p, r]))); // LCM of p and r
+h = inv_p*mul_fact; // Clear the first fraction
+k = inv_q*mul_fact; // Clear the second fraction
+l = inv_r*mul_fact; // Clear the third fraction
+d_102 = a/(h^2+k^2+l^2)^(1/2); // The interplanar spacing of (1 0 2) planes, m
+printf("\nThe Miller indices are (%d %d %d) ", h, k, l);
+printf("\nThe interplanar spacing = %6.4f nm", d_102/1e-09);
+
+// Result
+// The Miller indices are (1 0 2)
+// The interplanar spacing = 0.1896 nm
\ No newline at end of file diff --git a/3717/CH10/EX10.8/Ex10_8.sce b/3717/CH10/EX10.8/Ex10_8.sce new file mode 100644 index 000000000..ea94b8dce --- /dev/null +++ b/3717/CH10/EX10.8/Ex10_8.sce @@ -0,0 +1,14 @@ +// Ex10_8 Page:214 (2014)
+clc;clear;
+a = 3.2e-10; // Lattice parameter for lead, m:
+M = 207.2; // Atomic weight of Pb, gram per mole
+rho = 11.36e+03; // Density of Pb, kg per metre cube
+N = 6.023D+26; // Avogadro's No., per k-mol
+// Volume of the unit cell is given by
+// a^3 = M*n/(N*rho)
+// Solving for n
+n = a^3*rho*N/M; // Number of atoms per unit cell
+printf("\nThe number of atoms per unit cell for an fcc lattice of lead = %d", n);
+
+// Result
+// The number of atoms per unit cell for an fcc lattice of lead = 1
\ No newline at end of file diff --git a/3717/CH10/EX10.9/Ex10_9.sce b/3717/CH10/EX10.9/Ex10_9.sce new file mode 100644 index 000000000..687f7f065 --- /dev/null +++ b/3717/CH10/EX10.9/Ex10_9.sce @@ -0,0 +1,14 @@ +// Ex10_9 Page:220 (2014)
+clc;clear;
+d = 2.51e-010; // Spacing between adjacent planes, m
+theta = 9; // Glancing angle for diffraction, degree
+n = 1; // Order of diffraction
+lambda = 2*d*sind(theta)/n; // Wavelength of X-ray from Bragg's Law, m
+n = 2; // New order of diffraction
+theta = asind(2*lambda/(2*d)); // Glancing angle for second order diffraction, degree
+printf("\nThe wavelength of X-rays = %6.4f angstrom", lambda/1e-010);
+printf("\nThe glancing angle for second order diffraction = %2d degree", theta);
+
+// Result
+// The wavelength of X-rays = 0.7853 angstrom
+// The glancing angle for second order diffraction = 18 degree
\ No newline at end of file |