summaryrefslogtreecommitdiff
path: root/3717/CH17
diff options
context:
space:
mode:
authorprashantsinalkar2017-10-10 12:27:19 +0530
committerprashantsinalkar2017-10-10 12:27:19 +0530
commit7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 (patch)
treedbb9e3ddb5fc829e7c5c7e6be99b2c4ba356132c /3717/CH17
parentb1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b (diff)
downloadScilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.gz
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.tar.bz2
Scilab-TBC-Uploads-7f60ea012dd2524dae921a2a35adbf7ef21f2bb6.zip
initial commit / add all books
Diffstat (limited to '3717/CH17')
-rw-r--r--3717/CH17/EX17.1/Ex17_1.sce10
-rw-r--r--3717/CH17/EX17.2/Ex17_2.sce15
-rw-r--r--3717/CH17/EX17.3/Ex17_3.sce23
-rw-r--r--3717/CH17/EX17.4/Ex17_4.sce18
-rw-r--r--3717/CH17/EX17.6/Ex17_6.sce11
-rw-r--r--3717/CH17/EX17.7/Ex17_7.sce11
6 files changed, 88 insertions, 0 deletions
diff --git a/3717/CH17/EX17.1/Ex17_1.sce b/3717/CH17/EX17.1/Ex17_1.sce
new file mode 100644
index 000000000..db16f4db5
--- /dev/null
+++ b/3717/CH17/EX17.1/Ex17_1.sce
@@ -0,0 +1,10 @@
+// Ex17_1 Page:324 (2014)
+clc;clear;
+A = poly (0, 'A'); // Declare the mass number variable
+m_n = 1.67e-027; // Nucleon mass, kg
+R0 = 1.2e-015; // Nuclear constant, m
+d = m_n*A/(4/3*%pi*R0^3*A);
+printf("\nDensity of the nucleus = %3.1e km/metre-cube", horner(d,0));
+
+// Result
+// Density of the nucleus = 2.3e+017 km/metre-cube \ No newline at end of file
diff --git a/3717/CH17/EX17.2/Ex17_2.sce b/3717/CH17/EX17.2/Ex17_2.sce
new file mode 100644
index 000000000..269f88c06
--- /dev/null
+++ b/3717/CH17/EX17.2/Ex17_2.sce
@@ -0,0 +1,15 @@
+// Ex17_2 Page:324 (2014)
+clc;clear;
+e = 1.6e-019; // Energy equivalent of 1 eV, J/eV
+R0 = 1.2e-015; // Nuclear constant, m
+k = 9e+09; // Coulomb's constant, N-Sq.m/Sq.C
+q1 = 2*1.6e-019; // Charge on alpha particle, C
+q2 = 90*1.6e-019; // Charge on thorium nucleus, C
+A_alpha = 4; // Mass number of helium nucleus
+A_Th = 228; // Mass number of thorium
+r = R0*(A_alpha^(1/3) + A_Th^(1/3)); // Distance between He and Th, m
+PE = k*q1*q2/(r*e)*1e-006; // Potential energy of the system, MeV
+printf("\nThe kinetic energy of the alpha particle when it is far away = %4.1f MeV", PE);
+
+// Result
+// The kinetic energy of the alpha particle when it is far away = 28.1 MeV \ No newline at end of file
diff --git a/3717/CH17/EX17.3/Ex17_3.sce b/3717/CH17/EX17.3/Ex17_3.sce
new file mode 100644
index 000000000..4fdfa1732
--- /dev/null
+++ b/3717/CH17/EX17.3/Ex17_3.sce
@@ -0,0 +1,23 @@
+// Ex17_3 Page:326 (2014)
+clc;clear;
+e = 1.6e-019; // Charge on an electron, C
+E = 2.48e+004; // Applied electric field, N/C
+B = 0.75; // Applied magnetic field, T
+R0 = 1.2e-015; // Nuclear constant, m
+m1 = 12*1.6605e-027; // Mass of the C-12 ion
+m2 = 13*1.6605e-027; // Mass of the C-13 ion
+m3 = 14*1.6605e-027; // Mass of the C-14 ion
+r1 = E*m1/(e*B^2*1e-003); // Radius of orbit of C-12 ion, mm
+r2 = E*m2/(e*B^2*1e-003); // Radius of orbit of C-13 ion, mm
+r3 = E*m3/(e*B^2*1e-003); // Radius of orbit of C-14 ion, mm
+d1 = 2*r2 - 2*r1; // Distance between the lines of C-12 and C-13, mm
+d2 = 2*r3 - 2*r2; // Distance between the lines of C-13 and C-14, mm
+d = d1/2; // Separations between the lines when the ions are doubly charged, mm
+printf("\nThe distance between the lines of C-12 and C-13 = %4.2f mm", d1);
+printf("\nThe distance between the lines of C-13 and C-14 = %4.2f mm", d2);
+printf("\nThe separation between the lines when the ions are doubly charged = %4.2f mm", d);
+
+// Result
+// The distance between the lines of C-12 and C-13 = 0.92 mm
+// The distance between the lines of C-13 and C-14 = 0.92 mm
+// The separation between the lines when the ions are doubly charged = 0.46 mm \ No newline at end of file
diff --git a/3717/CH17/EX17.4/Ex17_4.sce b/3717/CH17/EX17.4/Ex17_4.sce
new file mode 100644
index 000000000..8d807f0d8
--- /dev/null
+++ b/3717/CH17/EX17.4/Ex17_4.sce
@@ -0,0 +1,18 @@
+// Ex17_4 Page:327 (2014)
+clc;clear;
+m_n = 1.008665; // Mass of a neutron, amu
+m_p = 1.007825; // Mass of a proton, amu
+A = 12; // Mass number of carbon, amu
+Z = 6; // Atomic number of carbon, amu
+N = A - Z; // Neutron number of carbon, amu
+M_C12 = 12.0; // Mass of C-12 atom, amu
+M = Z*m_p + N*m_n; // Total mass of constituents, amu
+delta_m = M - M_C12; // Mass deficiency, amu
+E_B = delta_m * 931.5; // Binding energy, MeV
+E_B_avg = E_B/A; // Average binding eneryg per nucleon, MeV
+printf("\nThe binding energy of C(12,6) = %5.2f MeV", E_B);
+printf("\nThe average binding energy per nucleon of C(12,6) = %3.2f MeV", E_B_avg);
+
+// Result
+// The binding energy of C(12,6) = 92.16 MeV
+// The average binding energy per nucleon of C(12,6) = 7.68 MeV \ No newline at end of file
diff --git a/3717/CH17/EX17.6/Ex17_6.sce b/3717/CH17/EX17.6/Ex17_6.sce
new file mode 100644
index 000000000..b3447465c
--- /dev/null
+++ b/3717/CH17/EX17.6/Ex17_6.sce
@@ -0,0 +1,11 @@
+// Ex17_6 Page:335 (2014)
+clc;clear;
+m_n = 1.008665; // Mass of a neutron, amu
+M_Na22 = 21.9944; // Mass of Na-22 atom, amu
+M_Na23 = 22.989767; // Mass of Na-23 atom, amu
+delta_m = M_Na22 + m_n - M_Na23; // Mass deficiency with Na-23, amu
+E_B = delta_m*931.5; // Energy equivalent of mass deficiency, MeV
+printf("\nThe binding energy of the last neutron in Na-23 = %4.1f MeV", E_B);
+
+// Result
+// The binding energy of the last neutron in Na-23 = 12.4 MeV \ No newline at end of file
diff --git a/3717/CH17/EX17.7/Ex17_7.sce b/3717/CH17/EX17.7/Ex17_7.sce
new file mode 100644
index 000000000..10909bb19
--- /dev/null
+++ b/3717/CH17/EX17.7/Ex17_7.sce
@@ -0,0 +1,11 @@
+// Ex17_7 Page:341 (2014)
+clc;clear;
+h_cross = 1.05e-034; // Reduced Planck's constant, Js
+e = 1.6e-019; // Charge on an electron, C
+m_pi = 140e+006; // Mass of pi_meson, eV/Sq.c
+c = 3e+008; // Speed of light in vacuum, m/s
+r = h_cross*c/(m_pi*e); // Range of the nuclear force, m
+printf("\nThe range of the nuclear force = %3.1f fm", r/1e-015);
+
+// Result
+// The range of the nuclear force = 1.4 fm \ No newline at end of file