summaryrefslogtreecommitdiff
path: root/1736/CH1/EX1.19
diff options
context:
space:
mode:
authorpriyanka2015-06-24 15:03:17 +0530
committerpriyanka2015-06-24 15:03:17 +0530
commitb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch)
treeab291cffc65280e58ac82470ba63fbcca7805165 /1736/CH1/EX1.19
downloadScilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.gz
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.tar.bz2
Scilab-TBC-Uploads-b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b.zip
initial commit / add all books
Diffstat (limited to '1736/CH1/EX1.19')
-rwxr-xr-x1736/CH1/EX1.19/Ch01Ex19.sce14
1 files changed, 14 insertions, 0 deletions
diff --git a/1736/CH1/EX1.19/Ch01Ex19.sce b/1736/CH1/EX1.19/Ch01Ex19.sce
new file mode 100755
index 000000000..e42e2aab8
--- /dev/null
+++ b/1736/CH1/EX1.19/Ch01Ex19.sce
@@ -0,0 +1,14 @@
+// Scilab Code Ex 1.19 Page-32 (2006)
+clc; clear;
+p = 2; q = 3; r = 4; // Coefficients of intercepts along three axes
+h = 1/p; // Reciprocate the first coefficient
+k = 1/q; // Reciprocate the second coefficient
+l = 1/r; // Reciprocate the third coefficient
+mul_fact = double(lcm(int32([p,q,r]))); // Find l.c.m. of m,n and p
+h = h*mul_fact; // Clear the first fraction
+k = k*mul_fact; // Clear the second fraction
+l = l*mul_fact; // Clear the third fraction
+printf("\nThe required miller indices are : (%d %d %d) ", h,k,l);
+
+// Result
+// The required miller indices are : (6 4 3)