1 files changed, 24 insertions, 0 deletions
diff --git a/2309/CH5/EX5.17/Ex5_17.sce b/2309/CH5/EX5.17/Ex5_17.sce
new file mode 100755
index 000000000..ff8cdc1d2
--- /dev/null
+++ b/2309/CH5/EX5.17/Ex5_17.sce
@@ -0,0 +1,24 @@
+// Chapter 5 Example 17
+//==============================================================================
+clc;
+clear;
+
+//input data
+// (101),(221) planes in simple cubic lattice
+h1       = 1;            // miller indice
+k0       = 0;            // miller indice
+l1       = 1;            // miller indice
+h2       = 2;            // miller indice
+k2       = 2;            // miller indice
+l1       = 1;            // miller indice
+a        = 4.2          // inter atomic space Å
+
+// Calculations
+d101    = a/sqrt((h1^2)+(k0^2)+(l1^2)); // interplanar distance
+d221    = a/sqrt((h2^2)+(k2^2)+(l1^2)); // interplanar distance
+
+
+// Output
+mprintf('d(101) = %3.4f Å\n d(221) = %3.1f Å ',d101,d221);
+//=============================================================================
+