summaryrefslogtreecommitdiff
path: root/2288/CH1
diff options
context:
space:
mode:
Diffstat (limited to '2288/CH1')
-rwxr-xr-x2288/CH1/EX1.18.3/ex1_18_3.sce16
-rwxr-xr-x2288/CH1/EX1.18.4/ex1_18_4.sce17
-rwxr-xr-x2288/CH1/EX1.21.1/ex1_21_1.sce13
-rwxr-xr-x2288/CH1/EX1.21.2/ex1_21_2.sce13
-rwxr-xr-x2288/CH1/EX1.21.3/ex1_21_3.sce13
-rwxr-xr-x2288/CH1/EX1.21.4/ex1_21_4.sce22
-rwxr-xr-x2288/CH1/EX1.21.5/ex1_21_5.sce15
-rwxr-xr-x2288/CH1/EX1.21.6/ex1_21_6.sce15
-rwxr-xr-x2288/CH1/EX1.21.7/ex1_21_7.sce22
-rwxr-xr-x2288/CH1/EX1.21.8/ex1_21_8.sce20
-rwxr-xr-x2288/CH1/EX1.21.9/ex1_21_9.sce16
-rwxr-xr-x2288/CH1/EX1.22.1/ex1_22_1.sce11
-rwxr-xr-x2288/CH1/EX1.22.2/ex1_22_2.sce14
-rwxr-xr-x2288/CH1/EX1.22.3/ex1_22_3.sce14
-rwxr-xr-x2288/CH1/EX1.22.4/ex1_22_4.sce14
-rwxr-xr-x2288/CH1/EX1.22.5/ex1_22_5.sce14
-rwxr-xr-x2288/CH1/EX1.22.6/ex1_22_6.sce16
-rwxr-xr-x2288/CH1/EX1.22.7/ex1_22_7.sce18
18 files changed, 283 insertions, 0 deletions
diff --git a/2288/CH1/EX1.18.3/ex1_18_3.sce b/2288/CH1/EX1.18.3/ex1_18_3.sce
new file mode 100755
index 000000000..235b52dc3
--- /dev/null
+++ b/2288/CH1/EX1.18.3/ex1_18_3.sce
@@ -0,0 +1,16 @@
+// Exa 1.18.3
+clc;
+clear;
+close;
+// Given data
+At = 28;// Atomic weight
+n = 4;
+N_A = 6.023*10^23;
+a = 5.3;// in Å
+a = a * 10^-10;// in m
+m = At/N_A;// in gm
+m = m*10^-3;// in kg
+V = (a)^3;// in m^3
+Rho = (m*n)/V;// in gm/m^3
+Rho = Rho * 10^-3;// in kg/m^3
+disp(Rho,"The volume density in kg/m^3 is");
diff --git a/2288/CH1/EX1.18.4/ex1_18_4.sce b/2288/CH1/EX1.18.4/ex1_18_4.sce
new file mode 100755
index 000000000..39b187af2
--- /dev/null
+++ b/2288/CH1/EX1.18.4/ex1_18_4.sce
@@ -0,0 +1,17 @@
+// Exa 1.18.4
+clc;
+clear;
+close;
+// Given data
+r = 1.278;// in Å
+a = (4*r)/(sqrt(2));// in Å
+a = a * 10^-10;// in m
+V = (a)^3;// in m^3
+At = 63.5;// atomic weight
+N_A = 6.023*10^23;
+m = At/N_A;// in gm
+m = m * 10^-3;// in kg
+n = 4;
+Rho = (m*n)/V;// in gm/m^3
+Rho = Rho * 10^-3;// in kg/m^3
+disp(Rho,"The density of copper crystal in kg/m^3 is");
diff --git a/2288/CH1/EX1.21.1/ex1_21_1.sce b/2288/CH1/EX1.21.1/ex1_21_1.sce
new file mode 100755
index 000000000..e40e8b6cf
--- /dev/null
+++ b/2288/CH1/EX1.21.1/ex1_21_1.sce
@@ -0,0 +1,13 @@
+// Exa 1.21.1
+clc;
+clear;
+close;
+// Given data
+d = 2.82;// in Å
+d = d * 10^-10;// in m
+n = 1;
+theta = 10;// in degree
+//Formula 2*d*sin(theta) = n*lembda;
+lembda = 2*d*sind(theta);// in m
+lembda = lembda * 10^10;// in Å
+disp(lembda,"The wavelength of X-ray in Å is ");
diff --git a/2288/CH1/EX1.21.2/ex1_21_2.sce b/2288/CH1/EX1.21.2/ex1_21_2.sce
new file mode 100755
index 000000000..7ffc416af
--- /dev/null
+++ b/2288/CH1/EX1.21.2/ex1_21_2.sce
@@ -0,0 +1,13 @@
+// Exa 1.21.2
+clc;
+clear;
+close;
+// Given data
+lembda = 1.6;// in Å
+lembda = lembda * 10^-10;// in m
+theta = 14.2;// in degree
+n = 1;
+//Formula 2*d*sin(theta) = n*lembda;
+d = (n*lembda)/(2*sind(theta));// in m
+d = d * 10^10;// in Å
+disp(d,"The spacing of atomic layer in the crystal in Å is");
diff --git a/2288/CH1/EX1.21.3/ex1_21_3.sce b/2288/CH1/EX1.21.3/ex1_21_3.sce
new file mode 100755
index 000000000..e915b00a8
--- /dev/null
+++ b/2288/CH1/EX1.21.3/ex1_21_3.sce
@@ -0,0 +1,13 @@
+// Exa 1.21.3
+clc;
+clear;
+close;
+// Given data
+n = 1;
+theta = 30;// in degree
+lembda = 1.78;// in Å
+lembda = lembda * 10^-10;// in m
+//Formula 2*d*sin(theta) = n*lembda;
+d = (n*lembda)/(2*sind(theta));// in m
+d = d * 10^10;// in Å
+disp(d,"The interplaner spacing in Å is");
diff --git a/2288/CH1/EX1.21.4/ex1_21_4.sce b/2288/CH1/EX1.21.4/ex1_21_4.sce
new file mode 100755
index 000000000..7f0a6848a
--- /dev/null
+++ b/2288/CH1/EX1.21.4/ex1_21_4.sce
@@ -0,0 +1,22 @@
+// Exa 1.21.4
+clc;
+clear;
+close;
+// Given data
+lembda = 0.58;// in Å
+n = 1;
+theta1 = 6.45;// in degree
+d = (n*lembda)/(2*sind(theta1));// in Å
+disp(d,"Part (i) : At angle of 6.45°, Interplaner spacing of the crystal in Å is ");
+theta2 = 9.15;// in degree
+d1 = (n*lembda)/(2*sind(theta2));// in Å
+disp(d1,"Part(ii) : At angle of 9.15°, Interplaner spacing of the crystal in Å is ");
+theta3 = 13;// in degree
+n2 = 1;
+d2 = (n2*lembda)/(2*sind(theta3));// in Å
+disp(d2,"Part(iii) : At angle of 13°, Interplaner spacing of the crystal in Å is ");
+// For
+n=2;
+d2 = (n*lembda)/(2*sind(theta3));// in Å
+disp(d2,"Part (iv) : The interplaner spacing in Å is : ")
+disp(d1,"The interplaner spacing for some other set of reflecting in Å is : ")
diff --git a/2288/CH1/EX1.21.5/ex1_21_5.sce b/2288/CH1/EX1.21.5/ex1_21_5.sce
new file mode 100755
index 000000000..b4714afc5
--- /dev/null
+++ b/2288/CH1/EX1.21.5/ex1_21_5.sce
@@ -0,0 +1,15 @@
+// Exa 1.21.5
+clc;
+clear;
+close;
+// Given data
+a = 2.814;// in Å
+h = 1;
+k = 0;
+l = 0;
+d = a/(sqrt( ((h)^2) + ((k)^2) + ((l)^2) ));// in Å
+n = 2;
+lembda = 0.710;// in Å
+//Formula 2*d*sin(theta) = n*lembda;
+theta = asind(n*lembda/(2*d) );// in degree
+disp(theta,"The glacing angle in degree is");
diff --git a/2288/CH1/EX1.21.6/ex1_21_6.sce b/2288/CH1/EX1.21.6/ex1_21_6.sce
new file mode 100755
index 000000000..88c9dc23f
--- /dev/null
+++ b/2288/CH1/EX1.21.6/ex1_21_6.sce
@@ -0,0 +1,15 @@
+// Exa 1.21.6
+clc;
+clear;
+close;
+// Given data
+a = 3.65;// in Å
+h = 1;
+k = 0;
+l = 0;
+d = a/(sqrt( ((h)^2) + ((k)^2) + ((l)^2) ));// in Å
+n = 1;
+theta = 60;// in degree
+//Formula 2*d*sin(theta) = n*lembda;
+lambda = 2*d*sind(theta);// in Å
+disp(lambda,"Wavelength of X ray in Å is");
diff --git a/2288/CH1/EX1.21.7/ex1_21_7.sce b/2288/CH1/EX1.21.7/ex1_21_7.sce
new file mode 100755
index 000000000..d4c97f02b
--- /dev/null
+++ b/2288/CH1/EX1.21.7/ex1_21_7.sce
@@ -0,0 +1,22 @@
+// Exa 1.21.7
+clc;
+clear;
+close;
+// Given data
+lembda = 1.54;// in Å
+lembda= lembda*10^-8;// in cm
+At = 63.54;// atomic weight
+density = 9.024;// in gm/cc
+n = 1;
+N_A = 6.023*10^23;
+m = At/N_A;// mass
+a =(density*m)^(1/3);// in cm
+h = 1;
+k = 0;
+l = 0;
+d = a/(sqrt( ((h)^2) + ((k)^2) + ((l)^2) ));// in cm
+n = 1;
+//Formula 2*d*sin(theta) = n*lembda;
+theta = asind( (lembda)/(2*d) );// in degree
+disp(theta,"The glancing angle in degree is");
+
diff --git a/2288/CH1/EX1.21.8/ex1_21_8.sce b/2288/CH1/EX1.21.8/ex1_21_8.sce
new file mode 100755
index 000000000..0bf911fad
--- /dev/null
+++ b/2288/CH1/EX1.21.8/ex1_21_8.sce
@@ -0,0 +1,20 @@
+// Exa 1.21.8
+clc;
+clear;
+close;
+// Given data
+a = 3.615;// in Å
+theta = 22;// in degree
+n = 1;
+h = 1;
+k = 1;
+l = 1;
+d = a/(sqrt( ((h)^2) + ((k)^2) + ((l)^2) ));// in Å
+// 2*d*sin(theta) = n*lembda;
+lembda = 2*d*sind(theta);// in Å
+disp(lembda,"The wavelength in Å is");
+n = 2;
+//Formula 2*d*sin(theta) = n*lembda;
+theta = asind(n*lembda/(2*d) );// in degree
+disp(theta,"The glacing angle for second order in degree is");
+disp("To get the 2nd order spectrum the position of the detector should be "+string(2*theta)+" °")
diff --git a/2288/CH1/EX1.21.9/ex1_21_9.sce b/2288/CH1/EX1.21.9/ex1_21_9.sce
new file mode 100755
index 000000000..294802c08
--- /dev/null
+++ b/2288/CH1/EX1.21.9/ex1_21_9.sce
@@ -0,0 +1,16 @@
+// Exa 1.21.9
+clc;
+clear;
+close;
+// Given data
+n = 1;
+lembda = 1.54;// in Å
+theta = 21.7;// in degree
+//Formula 2*d*sin(theta) = n*lembda;
+d = (lembda*n)/(2*sind(theta));// in Å
+h = 1;
+k = 1;
+l = 1;
+// Formula d = a/(sqrt( ((h)^2) + ((k)^2) + ((l)^2) ));
+a = d*(sqrt( ((h)^2) + ((k)^2) + ((l)^2) ));// in Å
+disp(a,"Lattice constant in Å is");
diff --git a/2288/CH1/EX1.22.1/ex1_22_1.sce b/2288/CH1/EX1.22.1/ex1_22_1.sce
new file mode 100755
index 000000000..21f0e9f3f
--- /dev/null
+++ b/2288/CH1/EX1.22.1/ex1_22_1.sce
@@ -0,0 +1,11 @@
+// Exa 1.22.1
+clc;
+clear;
+close;
+// Given data
+a = 4.8;// in Å
+h = 2;
+k = 1;
+l = 1;
+d = a/(sqrt( ((h)^2) + ((k)^2) + ((l)^2) ));// in Å
+disp(d,"The distance between d_211 plains in Å is");
diff --git a/2288/CH1/EX1.22.2/ex1_22_2.sce b/2288/CH1/EX1.22.2/ex1_22_2.sce
new file mode 100755
index 000000000..30124b321
--- /dev/null
+++ b/2288/CH1/EX1.22.2/ex1_22_2.sce
@@ -0,0 +1,14 @@
+// Exa 1.22.2
+clc;
+clear;
+close;
+// Given data
+r = 1.28;// in Å
+//Formula r = (a*sqrt(2))/4;
+a = (4*r)/(sqrt(2));// in Å
+a = a * 10^-8;// in cm
+n = 4;
+M = 63.5;
+N_A = 6.023*10^23;
+Rho = (n*M)/(N_A*((a)^3));// in gm/cc
+disp(Rho,"The density in gm/cc is");
diff --git a/2288/CH1/EX1.22.3/ex1_22_3.sce b/2288/CH1/EX1.22.3/ex1_22_3.sce
new file mode 100755
index 000000000..8ace03c4c
--- /dev/null
+++ b/2288/CH1/EX1.22.3/ex1_22_3.sce
@@ -0,0 +1,14 @@
+// Exa 1.22.3
+clc;
+clear;
+close;
+// Given data
+a = 2.9;// in Å
+a = a * 10^-8;// in cm
+Rho = 7.87;// in gm/cc
+N_A = 6.023*10^23;
+M = 55.85
+// Rho = (n*M)/(N_A*((a)^3))
+n = (Rho*N_A*((a)^3))/M;// in atoms per unit cell
+disp(round(n),"The number of atoms per unit cell is ");
+
diff --git a/2288/CH1/EX1.22.4/ex1_22_4.sce b/2288/CH1/EX1.22.4/ex1_22_4.sce
new file mode 100755
index 000000000..624a339b4
--- /dev/null
+++ b/2288/CH1/EX1.22.4/ex1_22_4.sce
@@ -0,0 +1,14 @@
+// Exa 1.22.4
+clc;
+clear;
+close;
+// Given data
+M =60;// in gm/mole
+Rho = 6.23;// in gm/cc
+n = 4;
+N_A = 6.023*10^23;
+// Rho = (n*M)/(N_A*((a)^3));
+a = ( (n*M)/(N_A*Rho) )^(1/3);// in cm
+r = (a*sqrt(2))/4;// in cm
+r = r * 10^8;// in Å
+disp(r,"The radius in Å is");
diff --git a/2288/CH1/EX1.22.5/ex1_22_5.sce b/2288/CH1/EX1.22.5/ex1_22_5.sce
new file mode 100755
index 000000000..98733d95e
--- /dev/null
+++ b/2288/CH1/EX1.22.5/ex1_22_5.sce
@@ -0,0 +1,14 @@
+// Exa 1.22.5
+clc;
+clear;
+close;
+// Given data
+Rho = 5.96;// in gm/cc
+M = 50;
+n = 2;
+N_A = 6.023*10^23;
+//Formula Rho = (n*M)/(N_A*((a)^3));
+a = ( (n*M)/(N_A*Rho) )^(1/3);// in cm
+r = (a*sqrt(3))/4;// in cm
+P_F = (2*(4/3)*%pi*((r)^3))/((a)^3);// Packing factor
+disp(P_F,"The Packing factor is");
diff --git a/2288/CH1/EX1.22.6/ex1_22_6.sce b/2288/CH1/EX1.22.6/ex1_22_6.sce
new file mode 100755
index 000000000..48157ccb4
--- /dev/null
+++ b/2288/CH1/EX1.22.6/ex1_22_6.sce
@@ -0,0 +1,16 @@
+// Exa 1.22.6
+clc;
+clear;
+close;
+// Given data
+d = 5.2;// in gm/cc
+n = 2;
+M = 120;
+N_A = 6.023*10^23;
+m = M/N_A;//mass of 1 atom in gm
+m = n*m;//mass of unit cell in gm
+g = 20;// in gm
+m = g/m;// in unit cells
+disp(m,"The number of unit cell in its 20 gm is : ");
+
+
diff --git a/2288/CH1/EX1.22.7/ex1_22_7.sce b/2288/CH1/EX1.22.7/ex1_22_7.sce
new file mode 100755
index 000000000..ab0e051f8
--- /dev/null
+++ b/2288/CH1/EX1.22.7/ex1_22_7.sce
@@ -0,0 +1,18 @@
+// Exa 1.22.7
+clc;
+clear;
+close;
+// Given data
+Rho = 2.48;// in gm/cc
+K = 39;// molecular weight of K
+F = 19; // molecular weight of F
+M = K+F;// molecular weight of KF
+n = 4;
+N_A = 6.023*10^23;
+//Formula Rho = (n*M)/(N_A*((a)^3));
+a = ( (n*M)/(N_A*Rho) )^(1/3);// in cm
+a = a * 10^8;// in Å
+r = (a*sqrt(2))/4;// in Å
+r = 2*r;// in Å
+disp(r,"The distance between ions in Å is");
+
generated by cgit (git 2.34.1) at 2024-12-20 16:10:15 +0000