initial commit / add all books

8 files changed, 100 insertions, 0 deletions

diff --git a/3717/CH18/EX18.1/Ex18_1.sce b/3717/CH18/EX18.1/Ex18_1.sce
new file mode 100644
index 000000000..c10f33f7f
--- /dev/null
+++ b/3717/CH18/EX18.1/Ex18_1.sce
@@ -0,0 +1,12 @@
+// Ex18_1 Page:347 (2014)

+clc;clear;

+N0 = poly(0, 'N0');    // Declare the original number of nuclides

+HL = [2 5 10];    // Half lives, time units

+for i = 1:3

+printf("\nAfter %d half lives, the fraction remains = 1/%d", HL(i), 2^HL(i));

+end

+

+// Result

+// After 2 half lives, the fraction remains = 1/4

+// After 5 half lives, the fraction remains = 1/32

+// After 10 half lives, the fraction remains = 1/1024
\ No newline at end of file
diff --git a/3717/CH18/EX18.2/Ex18_2.sce b/3717/CH18/EX18.2/Ex18_2.sce
new file mode 100644
index 000000000..34f7dbf86
--- /dev/null
+++ b/3717/CH18/EX18.2/Ex18_2.sce
@@ -0,0 +1,19 @@
+// Ex18_2 Page:348 (2014)

+clc;clear;

+t_half = 2.7*24*60*60;    // Half life of Au-198, s

+lambda = 0.693/t_half;    // Decay constant of Au-198, per sec

+M = 198;    // Molar mass of Au-198, g

+m = 1e-006;    // Mass of Au-198 sample, g

+N_A = 6.023e+023;    // Avogadro number, atoms/mol

+t = 8*24*60*60;    // Age of the sample, s

+N = m*N_A/M;    // Number of nuclei in the sample

+A0 = lambda*N;    // Activity of Au-198, Ci

+A = A0*exp(-lambda*t);    // Activity of the 8 days old sample, decays per sec

+printf("\nThe decay constant of Au-198 = %4.2e per sec", lambda);

+printf("\nThe activity of Au-198 = %5.3f Ci", A0/3.7e+010);

+printf("\nThe activity of the 8 days old sample of Au-198 = %4.2e decays per sec", A);

+

+// Result

+// The decay constant of Au-198 = 2.97e-006 per sec

+// The activity of Au-198 = 0.244 Ci

+// The activity of the 8 days old sample of Au-198 = 1.16e+009 decays per sec 
\ No newline at end of file
diff --git a/3717/CH18/EX18.3/Ex18_3.sce b/3717/CH18/EX18.3/Ex18_3.sce
new file mode 100644
index 000000000..e67593e13
--- /dev/null
+++ b/3717/CH18/EX18.3/Ex18_3.sce
@@ -0,0 +1,13 @@
+// Ex18_3 Page:348 (2014)

+clc;clear;

+N_A = 6.02e+023;    // Avogadro number, atoms/mol

+M = 14;    // Gram atomic mass of C-14, g

+t_half = 5570*365*24*60*60;    // Half life of C-14, s

+lambda = 0.693/t_half;    // Decay constant of Au-198, per sec

+A = 2e-003*3.7e+010;    // Activity of C-14, decays per sec

+N = 1/lambda*A;    // The number of nuclei in the C-14 sample

+m = N*M/N_A;    // Mass of N atoms of C-14, g

+printf("\nThe mass of 2 mCi of radioactive C-14 = %4.2e g", m);

+

+// Result

+// The mass of 2 mCi of radioactive C-14 = 4.36e-004 g 
\ No newline at end of file
diff --git a/3717/CH18/EX18.5/Ex18_5.sce b/3717/CH18/EX18.5/Ex18_5.sce
new file mode 100644
index 000000000..d52f61ac4
--- /dev/null
+++ b/3717/CH18/EX18.5/Ex18_5.sce
@@ -0,0 +1,11 @@
+// Ex18_5 Page:353 (2014)

+clc;clear;

+N1 = 1;    // Assume the number of present atoms of K-40

+N2 = 10.2;    // No.of atoms of Ar-40 relative to K-40

+t_half = 1.25e+009;    // Half-life of K-40, years

+lambda = 0.693/t_half;    // Decay constant, per sec

+t = log(1 + N2/N1)/lambda;    // Age of the rock on moon, years

+printf("\nThe age of the rock on moon = %4.2e yr", t);

+

+// Result

+// The age of the rock on moon = 4.36e+009 yr 
\ No newline at end of file
diff --git a/3717/CH18/EX18.6/Ex18_6.sce b/3717/CH18/EX18.6/Ex18_6.sce
new file mode 100644
index 000000000..c197dcf02
--- /dev/null
+++ b/3717/CH18/EX18.6/Ex18_6.sce
@@ -0,0 +1,11 @@
+// Ex18_6 Page:356 (2014)

+clc;clear;

+m_U232 = 232.037131;    // Atomic mass of U-232, u

+m_He4 = 4.002603;    // Atomic mass of He-4, u

+KE_alpha = 5.32;    // Kinetic energy of alpha-particle, MeV

+m_Th228 = m_U232 - m_He4 - KE_alpha/931.5;    // Atomic mass of Th-228, u

+printf("\nThe atomic mass of Th-228 = %10.6f u", m_Th228);

+

+// Result

+// The atomic mass of Th-228 = 228.028817 u 

+// The answers vary due to round off error
\ No newline at end of file
diff --git a/3717/CH18/EX18.7/Ex18_7.sce b/3717/CH18/EX18.7/Ex18_7.sce
new file mode 100644
index 000000000..8a0572f22
--- /dev/null
+++ b/3717/CH18/EX18.7/Ex18_7.sce
@@ -0,0 +1,13 @@
+// Ex18_7 Page:359 (2014)

+clc;clear;

+m_AX = 11.011433;    // Mass of parent nucleus, MeV

+m_AX_prime = 11.009305;    // Mass of daughter nucleus, MeV

+m_e = 0.511;    // Mass of an electron, MeV

+Q_min = 0;

+Q = (m_AX - m_AX_prime)*931.5 - 2*m_e;     // Q value for the decay, MeV

+printf("\nThe maximum energy of the neutrino = %4.2f MeV", Q);

+printf("\nThe minimum energy of the neutrino = %d MeV", Q_min);

+

+// Result

+// The maximum energy of the neutrino = 0.96 MeV

+// The minimum energy of the neutrino = 0 MeV 
\ No newline at end of file
diff --git a/3717/CH18/EX18.8/Ex18_8.sce b/3717/CH18/EX18.8/Ex18_8.sce
new file mode 100644
index 000000000..b69a54d22
--- /dev/null
+++ b/3717/CH18/EX18.8/Ex18_8.sce
@@ -0,0 +1,9 @@
+// Ex18_8 Page:359 (2014)

+clc;clear;

+m_K40 = 39.963999;    // Mass K-40 nucleus, MeV

+m_Ar40 = 39.962384;    // Mass Ar-40 nucleus, MeV

+Q = (m_K40 - m_Ar40)*931.5;     // Q value for the reaction, MeV

+printf("\nThe kinetic energy of the neutrino = %5.3f MeV", Q);

+

+// Result

+// The kinetic energy of the neutrino = 1.504 MeV 
\ No newline at end of file
diff --git a/3717/CH18/EX18.9/Ex18_9.sce b/3717/CH18/EX18.9/Ex18_9.sce
new file mode 100644
index 000000000..98d6e6184
--- /dev/null
+++ b/3717/CH18/EX18.9/Ex18_9.sce
@@ -0,0 +1,12 @@
+// Ex18_9 Page:360 (2014)

+clc;clear;

+m_N12 = 12.018613;    // Mass N-12 nucleus, MeV

+m_C12 = 12;    // Mass C-12 nucleus, MeV

+m_e = 0.000549;    // Mass of the electron, MeV

+E_gamma = 4.43;    // Energy of the emitted gamma ray. MeV

+Q = (m_N12 - m_C12 - 2*m_e)*931.5;     // Q value for the reaction, MeV

+E_max = Q - E_gamma;    // The maximum kinetic energy of the beta particle, MeV

+printf("\nThe maximum kinetic energy of the beta particle = %5.2f MeV", E_max);

+

+// Result

+// The maximum kinetic energy of the beta particle = 11.89 MeV 
\ No newline at end of file