blob: e42e2aab8e13e5b9eef9f90b2127f4181cafa4af (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
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)
|
