diff options
Diffstat (limited to '1271/CH13/EX13.5')
| -rwxr-xr-x | 1271/CH13/EX13.5/5.txt | 3 | ||||
| -rwxr-xr-x | 1271/CH13/EX13.5/example13_5.sce | 20 |
2 files changed, 23 insertions, 0 deletions
diff --git a/1271/CH13/EX13.5/5.txt b/1271/CH13/EX13.5/5.txt new file mode 100755 index 000000000..0c562585e --- /dev/null +++ b/1271/CH13/EX13.5/5.txt @@ -0,0 +1,3 @@ +
+ Miller indices of the plane are (2 1 0).
+ Inter planar distance is sqrt(5) angstrom.
diff --git a/1271/CH13/EX13.5/example13_5.sce b/1271/CH13/EX13.5/example13_5.sce new file mode 100755 index 000000000..30c74806f --- /dev/null +++ b/1271/CH13/EX13.5/example13_5.sce @@ -0,0 +1,20 @@ + +clc +// Given that +x = 1 // intercepts cut by the plane along vector a of crystallographic axes +y = 2 // intercepts cut by the plane along vector b of crystallographic axes +k = 0 // raciprocal of intercepts cut by the plane along vector c of crystallographic axes +a = 5 // length of vector a of crystallographic axes in angstrom +b = 5 // length of vector b of crystallographic axes in angstrom +c = 5 // length of vector c of crystallographic axes in angstrom +// Sample Problem 5 on page no. 13.26 +printf("\n # PROBLEM 5 # \n") +printf("Standard formula used \n") +printf(" d = 1 / (x1^2 + y1^2 + z1^2)^1/2 \n") +x_ = 2 / x +y_ = 2 / y +z_ = 2 * k +d = a / sqrt(x_^2 + y_^2 + z_^2) +D=d^2 +printf("\n Miller indices of the plane are (%d %d %d).\n Inter planar distance is sqrt(%d) angstrom.",x_,y_,z_,D) + |