diff options
author | priyanka | 2015-06-24 15:03:17 +0530 |
---|---|---|
committer | priyanka | 2015-06-24 15:03:17 +0530 |
commit | b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (patch) | |
tree | ab291cffc65280e58ac82470ba63fbcca7805165 /1736/CH1/EX1.19 | |
download | Scilab-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-x | 1736/CH1/EX1.19/Ch01Ex19.sce | 14 |
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)
|