1 files changed, 18 insertions, 0 deletions
diff --git a/1985/CH13/EX13.5/Chapter13_example5.sce b/1985/CH13/EX13.5/Chapter13_example5.sce
new file mode 100755
index 000000000..831413261
--- /dev/null
+++ b/1985/CH13/EX13.5/Chapter13_example5.sce
@@ -0,0 +1,18 @@
+clc
+clear
+//Input data
+x=2//Lattice plane cut intercepts of length 2a
+y=3//Lattice plane cut intercepts of length 3b
+z=4//Lattice plane cut intercepts of length 4c
+
+//Calculations
+x1=1/x//Inverse of coefficients
+y1=1/y//Inverse of coefficients
+z1=1/z//Inverse of coefficients
+LCM=12//L.C.M of x,y,z
+x2=(x1*LCM)//Multiplying the fractions by LCM
+y2=(y1*LCM)//Multiplying the fractions by LCM
+z2=(z1*LCM)//Multiplying the fractions by LCM
+
+//Output
+printf('The miller indices of the plane is (%i %i %i)',x2,y2,z2)