blob: 7515e1d5868d175b559377392ce94e3826efd0c5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
// Ex10_1 Page:211 (2014)
clc;clear;
m = 2; n = 3; p = 1; // Coefficients of intercepts along the crystallographic axes
m_inv = 1/m; // Reciprocal of the first coefficient
n_inv = 1/n; // Reciprocal the second coefficient
p_inv = 1/p; // Reciprocal the third coefficient
mul_fact = double(lcm(int32([m,n,p]))); // LCM of m, n and p
i1 = m_inv*mul_fact; // Clear the first fraction
i2 = n_inv*mul_fact; // Clear the second fraction
i3 = p_inv*mul_fact; // Clear the third fraction
printf("\nThe Miller indices of the plane are (%d %d %d) ", i1, i2, i3);
// Result
// The Miller indices of the plane are (3 2 6)
|
