summaryrefslogtreecommitdiff
path: root/3875/CH11/EX11.6/11_6.sce
blob: 74aed69a959b59a418bc72720574cf931ad6c0b0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
clc;
clear;
unit_cell_edge_x=(2) //intercept of x
unit_cell_edge_y=(-3) //intercept of y
unit_cell_edge_z=(6) //intercept of z

//calculations
Reciprocal_x=1/unit_cell_edge_x //reciprocal value of miller index x
Reciprocal_y=1/unit_cell_edge_y //reciprocal value of miller index y
Reciprocal_z=1/unit_cell_edge_z //reciprocal value of miller index z
Reciprocal_xyz=int32([unit_cell_edge_x,unit_cell_edge_y,unit_cell_edge_z]) //creating integer vector for LCM calculation
LCM=double(lcm(Reciprocal_xyz)) //LCM of unit cell edges
coordinate_A=(Reciprocal_x)*LCM
coordinate_B=Reciprocal_y*LCM
coordinate_C=Reciprocal_z*LCM

mprintf("The required miller indices of the plane are (%d,%d,%d).",coordinate_A,coordinate_B,coordinate_C)