1 files changed, 12 insertions, 0 deletions
diff --git a/1970/CH5/EX5.4/Ch05Exa4.sce b/1970/CH5/EX5.4/Ch05Exa4.sce
new file mode 100755
index 000000000..da53b07b4
--- /dev/null
+++ b/1970/CH5/EX5.4/Ch05Exa4.sce
@@ -0,0 +1,12 @@
+// Scilab code Exa5.4: : Page 204 (2011)
+clc; clear;
+a = 10^-14;        // Width of the  potential barrier, m
+E = 5*1.60218e-013;        // Energy of the alpha particle, joule
+V = 10*1.60218e-013;        // Potential height, joule
+M_0 = 6.644e-027;        // Rest mass of the alpha particle, joule
+h_red = 1.05457e-034;        // Reduced value of Planck's constant,joule sec 
+T = 4*exp(-2*a*sqrt(2*M_0*(V-E)/h_red^2));   // Probability of leakage through through potential barrier
+printf("\nThe probability of leakage of alpha-particle through potential barrier = %5.3e ",T);
+
+// Result
+// The probability of leakage of alpha-particle through potential barrier = 1.271e-008  
+\ No newline at end of file