1 files changed, 14 insertions, 0 deletions
diff --git a/1970/CH5/EX5.10/Ch05Exa10.sce b/1970/CH5/EX5.10/Ch05Exa10.sce
new file mode 100755
index 000000000..2238f4624
--- /dev/null
+++ b/1970/CH5/EX5.10/Ch05Exa10.sce
@@ -0,0 +1,14 @@
+// Scilab code Exa5.10 : : Page 206 (2011)
+clc; clear;
+h_kt = 1.05457e-34;        // Reduced Planck's constant, joule sec
+e = 1.60218e-19;        // Charge of an electron, coulomb
+l = 2;                // Orbital angular momentum
+eps_0 = 8.5542e-12;        // Absolute permittivity of free space, coulomb square per newton per metre square
+Z_D = 90;            // Atomic number of daughter nucleus
+m = 6.644e-27;        // Mass of alpha particle, Kg
+R = 8.627e-15;        // Radius of daughter nucleus, metre
+T1_by_T0 = exp(2*l*(l+1)*h_kt/e*sqrt(%pi*eps_0/(Z_D*m*R)));    // Hindrance factor
+printf("\nThe hindrance factor for alpha particle = %5.3f" ,T1_by_T0);
+
+// Result
+// The hindrance factor for alpha particle = 1.768 
+\ No newline at end of file