diff options
Diffstat (limited to '3717/CH17/EX17.2/Ex17_2.sce')
-rw-r--r-- | 3717/CH17/EX17.2/Ex17_2.sce | 15 |
1 files changed, 15 insertions, 0 deletions
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 |