summaryrefslogtreecommitdiff
path: root/3020/CH13
diff options
context:
space:
mode:
Diffstat (limited to '3020/CH13')
-rwxr-xr-x3020/CH13/EX13.10/ex13_10.sce18
-rwxr-xr-x3020/CH13/EX13.11/ex13_11.sce22
-rwxr-xr-x3020/CH13/EX13.12/ex13_12.sce9
-rwxr-xr-x3020/CH13/EX13.13/ex13_13.sce18
-rwxr-xr-x3020/CH13/EX13.14/ex13_14.sce16
-rwxr-xr-x3020/CH13/EX13.15/ex13_15.sce8
-rwxr-xr-x3020/CH13/EX13.16/ex13_16.sce8
-rwxr-xr-x3020/CH13/EX13.17/ex13_17.sce6
-rwxr-xr-x3020/CH13/EX13.18/ex13_18.sce11
-rwxr-xr-x3020/CH13/EX13.19/ex13_19.sce10
-rwxr-xr-x3020/CH13/EX13.2/ex13_2.sce8
-rwxr-xr-x3020/CH13/EX13.20/ex13_20.sce9
-rwxr-xr-x3020/CH13/EX13.21/ex13_21.sce8
-rwxr-xr-x3020/CH13/EX13.3/ex13_3.sce9
-rwxr-xr-x3020/CH13/EX13.4/ex13_4.sce10
-rwxr-xr-x3020/CH13/EX13.5/ex13_5.sce10
-rwxr-xr-x3020/CH13/EX13.6/ex13_6.sce8
-rwxr-xr-x3020/CH13/EX13.7/ex13_7.sce8
-rwxr-xr-x3020/CH13/EX13.8/ex13_8.sce13
19 files changed, 209 insertions, 0 deletions
diff --git a/3020/CH13/EX13.10/ex13_10.sce b/3020/CH13/EX13.10/ex13_10.sce
new file mode 100755
index 000000000..594a0326a
--- /dev/null
+++ b/3020/CH13/EX13.10/ex13_10.sce
@@ -0,0 +1,18 @@
+clc;
+clear all;
+// Intercpet along X-axis is 2a
+// Intercpet along Y-axis is 3b
+// Intercpet along Z-axis is 4c
+// So x=2,y=3,z=4
+x=2;// Coefficient of intercept
+y=3;//Coefficient of intercept
+z=4;//Coefficient of intercept
+p1 = (1/x);// Inverse of Coefficient
+p2= (1/y);// Inverse of Coefficient
+p3= (1/z);// Inverse of Coefficient
+p = [p1,p2,p3]
+[pp fact] = lcm(p)
+h = p1*(1/fact(1))
+k = p2*(1/fact(1))
+l = p3*(1/fact(1))
+disp('',l, k, h,'The miller indices of plane is')
diff --git a/3020/CH13/EX13.11/ex13_11.sce b/3020/CH13/EX13.11/ex13_11.sce
new file mode 100755
index 000000000..321868b35
--- /dev/null
+++ b/3020/CH13/EX13.11/ex13_11.sce
@@ -0,0 +1,22 @@
+clc;
+clear all;
+p1 = 1.2; // Primitives in Angstom
+p2 = 1.8; // Primitives in Angstom
+p3 = 2; // Primitives in Angstom
+h = 2;// Miller Indices
+k = 3;// Miller Indices
+l = 1;// Miller Indices
+a = 1/h;
+b = 1/k;
+c = 1/l;
+p = [a,b,c];
+[pp fact] = lcm(p);
+i1 = a*(1/fact(3));
+i2 = b*(1/fact(3));
+i3 = c*(1/fact(3));
+l1 = p1*i1;
+l2 = p2*i2;
+l3 = p3*i3;
+l21 = (p1/l1)*l2;
+l31 = (p1/l1)*l3;
+disp('Angstom',l31,l21,'The length of intercept made by Y and Z axes is')
diff --git a/3020/CH13/EX13.12/ex13_12.sce b/3020/CH13/EX13.12/ex13_12.sce
new file mode 100755
index 000000000..93a20fad0
--- /dev/null
+++ b/3020/CH13/EX13.12/ex13_12.sce
@@ -0,0 +1,9 @@
+clc;
+clear all;
+h = 1;// Miller Indices
+k = 1;// Miller Indices
+l = 0;// Miller Indices
+a = 1/h;
+b = 1/k;
+//c = 1/l; Division by zero
+disp('The intercept made along Z-axis is infinity. It means that plane is paralle to Z axis')
diff --git a/3020/CH13/EX13.13/ex13_13.sce b/3020/CH13/EX13.13/ex13_13.sce
new file mode 100755
index 000000000..e876f4446
--- /dev/null
+++ b/3020/CH13/EX13.13/ex13_13.sce
@@ -0,0 +1,18 @@
+clc;
+clear all;
+a = 4.12e-10; // Lattice constant in meters
+h1 = 1; //Miller indices of diffracted plane case1
+k1 = 1; //Miller indices of diffracted plane case1
+l1 = 1;// Miller indices of diffracted plane case1
+d = a/sqrt(h1^2+k1^2+l1^2);// Lattice constant
+disp('m',d,'The lattice spacing for plane (1,1,1) is')
+h2 = 1; //Miller indices of diffracted plane case2
+k2 = 1; //Miller indices of diffracted plane case2
+l2 = 2;// Miller indices of diffracted plane case2
+d = a/sqrt(h2^2+k2^2+l2^2);// Lattice constant
+disp('m',d,'The lattice spacing for plane (1,1,2) is')
+h3 = 1; //Miller indices of diffracted plane case3
+k3 = 2; //Miller indices of diffracted plane case3
+l3 = 3;// Miller indices of diffracted plane case3
+d = a/sqrt(h3^2+k3^2+l3^2);// Lattice constant
+disp('m',d,'The lattice spacing for plane (1,2,3) is')
diff --git a/3020/CH13/EX13.14/ex13_14.sce b/3020/CH13/EX13.14/ex13_14.sce
new file mode 100755
index 000000000..9a8b45f86
--- /dev/null
+++ b/3020/CH13/EX13.14/ex13_14.sce
@@ -0,0 +1,16 @@
+clc;
+clear all;
+a = 1; // Lattice constant in meters suppose
+h1 = 1; //Miller indices of diffracted plane case1
+k1 = 0; //Miller indices of diffracted plane case1
+l1 = 0;// Miller indices of diffracted plane case1
+d1 = a/sqrt(h1^2+k1^2+l1^2);// Lattice constant
+h2 = 1; //Miller indices of diffracted plane case2
+k2 = 1; //Miller indices of diffracted plane case2
+l2 = 0;// Miller indices of diffracted plane case2
+d2 = a/sqrt(h2^2+k2^2+l2^2);// Lattice constant
+h3 = 1; //Miller indices of diffracted plane case3
+k3 = 1; //Miller indices of diffracted plane case3
+l3 = 1;// Miller indices of diffracted plane case3
+d3 = a/sqrt(h3^2+k3^2+l3^2);// Lattice constant
+disp(' ',[d1,d2,d3],'The ratio of d(1,0,0):d(1,1,0):d(1,1,1)) is')
diff --git a/3020/CH13/EX13.15/ex13_15.sce b/3020/CH13/EX13.15/ex13_15.sce
new file mode 100755
index 000000000..45008df05
--- /dev/null
+++ b/3020/CH13/EX13.15/ex13_15.sce
@@ -0,0 +1,8 @@
+clc;
+clear all;
+a = 4.938e-10; // Lattice constant in meters
+h = 2; //Miller indices of diffracted plane
+k = 2; //Miller indices of diffracted plane
+l = 0;// Miller indices of diffracted plane
+d = a/sqrt(h^2+k^2+l^2);// Lattice constant
+disp('m',d,'The lattice spacing for plane (2,2,0) is')
diff --git a/3020/CH13/EX13.16/ex13_16.sce b/3020/CH13/EX13.16/ex13_16.sce
new file mode 100755
index 000000000..0a4e0d521
--- /dev/null
+++ b/3020/CH13/EX13.16/ex13_16.sce
@@ -0,0 +1,8 @@
+clc;
+clear all;
+a = 0.405e-9; // Lattice constant in meters
+t = 0.005e-2; // Thickness of Al foil in meters
+sl = 25e-4; // Side length of the Al foil in meters
+n = (t*sl)/a^3; // Number of atoms in the Al foil
+disp('',n,'The number of atoms in the Al foil is')
+// Wrong answer in the textbook... Chcecked in calculator also
diff --git a/3020/CH13/EX13.17/ex13_17.sce b/3020/CH13/EX13.17/ex13_17.sce
new file mode 100755
index 000000000..2ec212b26
--- /dev/null
+++ b/3020/CH13/EX13.17/ex13_17.sce
@@ -0,0 +1,6 @@
+clc;
+clear all;
+a = 2.88e-10; //Lattice constant
+rho = 7200; // Density of the metal in Kg per cubic meter
+n = 1/(a^3*rho); // Number of units cells present in 1kg of metal
+disp('',n,'Number of units cells present in 1kg of metal is')
diff --git a/3020/CH13/EX13.18/ex13_18.sce b/3020/CH13/EX13.18/ex13_18.sce
new file mode 100755
index 000000000..68efd9634
--- /dev/null
+++ b/3020/CH13/EX13.18/ex13_18.sce
@@ -0,0 +1,11 @@
+clc;
+clear all;
+ar1 = 0.1258e-9; // Atomic radius in BCC state in meters
+ar2 = 0.1292e-9; // Atomic radius in FCC state in meters
+a1 = (4*ar1)/sqrt(3); //lattice constant for BCC
+v1 = (a1^3)/2; // Volume occupied by 1 atom in BCC
+a2 = (4*ar2)/sqrt(2); //lattice constant for FCC
+v2 = (a2^3)/4; // Volume occupied by 1 atom in FCC
+ch = ((v1-v2)/v1)*100; //Change in volume in percentage
+disp('',ch,'Change in volume in percentage during structural changes is')
+// Wrong answer in textbook...Checked in calculator
diff --git a/3020/CH13/EX13.19/ex13_19.sce b/3020/CH13/EX13.19/ex13_19.sce
new file mode 100755
index 000000000..14dab4848
--- /dev/null
+++ b/3020/CH13/EX13.19/ex13_19.sce
@@ -0,0 +1,10 @@
+clc;
+clear all;
+at = 63.5e-3; // Atomic weight of copper in Kg
+N = 6.022e26; // Avagadro constant
+r = 1.273e-10; // Atomic radius for FCC in meters
+n = 4;// Number of atoms per unit cell in FCC
+a = (4*r)/sqrt(2); // Lattice parameter for FCC
+rho = (n*at)/(N*a^3); //Density of material
+disp('gm/m^3',rho,'The density of copper is')
+// Slight variation in answer than textbook
diff --git a/3020/CH13/EX13.2/ex13_2.sce b/3020/CH13/EX13.2/ex13_2.sce
new file mode 100755
index 000000000..2443f2d64
--- /dev/null
+++ b/3020/CH13/EX13.2/ex13_2.sce
@@ -0,0 +1,8 @@
+clc;
+clear all;
+h = 4; // Miller indices
+k = 3; // Miller indices
+l = 0; // Miller indices
+a = 2e-10; // In meters
+d = a/(sqrt(h^2+k^2+l^2));
+disp('m',d,'The interplanar spacing for the plane is ')
diff --git a/3020/CH13/EX13.20/ex13_20.sce b/3020/CH13/EX13.20/ex13_20.sce
new file mode 100755
index 000000000..8a18b3c0c
--- /dev/null
+++ b/3020/CH13/EX13.20/ex13_20.sce
@@ -0,0 +1,9 @@
+clc;
+clear all;
+rho = 7860;//Density of alpha-iron in Kg/m^3
+M = 55.85e-3; // Atomic weight of alpha-iron in Kg
+n = 2;// Number of atoms per unit cell of BCC
+N = 6.022e26; // Avagadro constant
+a = ((n*M)/(N*rho))^(1/3);//Lattice constant
+r = ((a*sqrt(3))/4);
+disp('m',r,'The atomic radius of alpha-iron is')
diff --git a/3020/CH13/EX13.21/ex13_21.sce b/3020/CH13/EX13.21/ex13_21.sce
new file mode 100755
index 000000000..f328d9a7f
--- /dev/null
+++ b/3020/CH13/EX13.21/ex13_21.sce
@@ -0,0 +1,8 @@
+clc;
+clear all;
+rho = 8960;//Density of copper in Kg/m^3
+M = 63.54e-3; // Atomic weight of copper in Kg
+n = 4;// Number of atoms per unit cell of FCC
+N = 6.023e26; // Avagadro constant
+a = ((n*M)/(N*rho))^(1/3);//Lattice constant
+disp('m',a,'The lattice constant of copper is')
diff --git a/3020/CH13/EX13.3/ex13_3.sce b/3020/CH13/EX13.3/ex13_3.sce
new file mode 100755
index 000000000..487f3343e
--- /dev/null
+++ b/3020/CH13/EX13.3/ex13_3.sce
@@ -0,0 +1,9 @@
+clc;
+clear all;
+de = 9.6e2 ; // Density of sodium in Kg per cubic meter
+At = 23; // Atomic weight of sodium
+n = 2;// Number of atoms present in a unit cell
+av = 6.022e26; // Avagadro constant
+mass = (n*At)/av;
+v = (mass/de)^(1/3); // Volume of a unit cell
+disp('m',v,'The lattice constant osf sodium is')
diff --git a/3020/CH13/EX13.4/ex13_4.sce b/3020/CH13/EX13.4/ex13_4.sce
new file mode 100755
index 000000000..2135b0ffd
--- /dev/null
+++ b/3020/CH13/EX13.4/ex13_4.sce
@@ -0,0 +1,10 @@
+clc;
+clear all;
+de = 4e3; // Density of CsCl in Kg per cuibc meter
+At1 = 132.9; // Atomic weight of Cs
+At2 = 35.5; // Atomic weight of Cl
+a = 4.12e-10; // Lattice constant in meters
+n = 1; // Number of atoms in a unit cell
+m = de*a^3; // Mass of CsCl;
+N = (n*(At1+At2))/m; //Avagadro Constant
+disp('per Kg mole',N,'The value of avagadro constant is')
diff --git a/3020/CH13/EX13.5/ex13_5.sce b/3020/CH13/EX13.5/ex13_5.sce
new file mode 100755
index 000000000..e0ad7d30d
--- /dev/null
+++ b/3020/CH13/EX13.5/ex13_5.sce
@@ -0,0 +1,10 @@
+clc;
+clear all;
+lambda = 1.5418e-10; // Wavelength of X-rays in meters
+theta = 30; // Angle of diffracted angle in degrees
+h = 1; //Miller indices of diffracted plane
+k = 1; //Miller indices of diffracted plane
+l = 1;// Miller indices of diffracted plane
+d = lambda/(2*sind(30));// Interplanar Distance for first order diffraction
+a = d*sqrt(h^2+k^2+l^2);// Lattice constant
+disp('m',a,'The value of lattice constant is')
diff --git a/3020/CH13/EX13.6/ex13_6.sce b/3020/CH13/EX13.6/ex13_6.sce
new file mode 100755
index 000000000..1a8deb510
--- /dev/null
+++ b/3020/CH13/EX13.6/ex13_6.sce
@@ -0,0 +1,8 @@
+clc;
+clear all;
+a = 2.814e-10; // Lattice constant in meters
+h = 1; //Miller indices of diffracted plane
+k = 0; //Miller indices of diffracted plane
+l = 0;// Miller indices of diffracted plane
+d = a/sqrt(h^2+k^2+l^2);// Lattice constant
+disp('m',d,'The lattice spacing for plane (1,1,0) is')
diff --git a/3020/CH13/EX13.7/ex13_7.sce b/3020/CH13/EX13.7/ex13_7.sce
new file mode 100755
index 000000000..d169121f3
--- /dev/null
+++ b/3020/CH13/EX13.7/ex13_7.sce
@@ -0,0 +1,8 @@
+clc;
+clear all;
+a = 4.12e-10; // Lattice constant in meters
+h = 3; //Miller indices of diffracted plane
+k = 2; //Miller indices of diffracted plane
+l = 1;// Miller indices of diffracted plane
+d = a/sqrt(h^2+k^2+l^2);// Lattice constant
+disp('m',d,'The lattice spacing for plane (1,1,0) is')
diff --git a/3020/CH13/EX13.8/ex13_8.sce b/3020/CH13/EX13.8/ex13_8.sce
new file mode 100755
index 000000000..7c023ba77
--- /dev/null
+++ b/3020/CH13/EX13.8/ex13_8.sce
@@ -0,0 +1,13 @@
+clc;
+clear all;
+a = 4.2e-10; // Lattice constant in meters
+h1 = 1; //Miller indices of diffracted plane case1
+k1 = 0; //Miller indices of diffracted plane case1
+l1 = 1;// Miller indices of diffracted plane case1
+d = a/sqrt(h1^2+k1^2+l1^2);// Lattice constant
+disp('m',d,'The lattice spacing for plane (1,0,1) is')
+h2 = 2; //Miller indices of diffracted plane case2
+k2 = 2; //Miller indices of diffracted plane case2
+l2 = 1;// Miller indices of diffracted plane case2
+d = a/sqrt(h2^2+k2^2+l2^2);// Lattice constant
+disp('m',d,'The lattice spacing for plane (2,2,1) is')
generated by cgit (git 2.34.1) at 2024-12-20 09:47:58 +0000