summaryrefslogtreecommitdiff
path: root/1736/CH1/EX1.22/Ch01Ex22.sce
diff options
context:
space:
mode:
Diffstat (limited to '1736/CH1/EX1.22/Ch01Ex22.sce')
-rwxr-xr-x1736/CH1/EX1.22/Ch01Ex22.sce20
1 files changed, 20 insertions, 0 deletions
diff --git a/1736/CH1/EX1.22/Ch01Ex22.sce b/1736/CH1/EX1.22/Ch01Ex22.sce
new file mode 100755
index 000000000..e49a91a1f
--- /dev/null
+++ b/1736/CH1/EX1.22/Ch01Ex22.sce
@@ -0,0 +1,20 @@
+// Scilab Code Ex 1.22 Page-33 (2006)
+clc; clear;
+r = 1.746e-010; // Atomic radius of lead atom, angstrom
+a = 4*r/sqrt(2); // Interatomic spacing, m
+h = 1; k = 0; l = 0; // Miller Indices for planes in a cubic crystal
+d_100 = a/(h^2+k^2+l^2)^(1/2); // The interplanar spacing for cubic crystals, m
+printf("\nThe interplanar spacing between consecutive (100) planes = %4.2f angstrom", d_100/1e-010);
+
+h = 1; k = 1; l = 0; // Miller Indices for planes in a cubic crystal
+d_110 = a/(h^2+k^2+l^2)^(1/2); // The interplanar spacing for cubic crystals, m
+printf("\nThe interplanar spacing between consecutive (110) planes = %5.3f angstrom", d_110/1e-010);
+
+h = 1; k = 1; l = 1; // Miller Indices for planes in a cubic crystal
+d_111 = a/(h^2+k^2+l^2)^(1/2); // The interplanar spacing for cubic crystals, m
+printf("\nThe interplanar spacing between consecutive (111) planes = %4.2f angstrom", d_111/1e-010);
+
+// Result
+// The interplanar spacing between consecutive (100) planes = 4.94 angstrom
+// The interplanar spacing between consecutive (110) planes = 3.492 angstrom
+// The interplanar spacing between consecutive (111) planes = 2.85 angstrom