diff options
Diffstat (limited to '1970/CH8/EX8.5/CH08Exa5.sce')
| -rwxr-xr-x | 1970/CH8/EX8.5/CH08Exa5.sce | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/1970/CH8/EX8.5/CH08Exa5.sce b/1970/CH8/EX8.5/CH08Exa5.sce new file mode 100755 index 000000000..cb8e38e92 --- /dev/null +++ b/1970/CH8/EX8.5/CH08Exa5.sce @@ -0,0 +1,15 @@ +// Scilab code Exa8.5 : : Page-349 (2011) +clc; clear; +a_t = 5.38e-15; +a_s = -23.7e-15; +r_ot = 1.70e-15; +r_os = 2.40e-15; +m = 1.6748e-27; +E = 1.6e-13; +h_cut = 1.0549e-34; +K_sqr = m*E/h_cut^2; +sigma = 1/4*(3*4*%pi*a_t^2/(a_t^2*K_sqr+(1-1/2*K_sqr*a_t*r_ot)^2)+4*%pi*a_s^2/(a_s^2*K_sqr+(1-1/2*K_sqr*a_s*r_os)^2))*1e+028; // Total cross-section for n-p scattering, barn +printf("\nThe total cross section for n-p scattering = %5.3f barn", sigma); + +// Result +// The total cross section for n-p scattering = 2.911 barn |