diff options
Diffstat (limited to '3535/CH6/EX6.1/Ex6_1.sce')
| -rw-r--r-- | 3535/CH6/EX6.1/Ex6_1.sce | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/3535/CH6/EX6.1/Ex6_1.sce b/3535/CH6/EX6.1/Ex6_1.sce new file mode 100644 index 000000000..51aa281b2 --- /dev/null +++ b/3535/CH6/EX6.1/Ex6_1.sce @@ -0,0 +1,10 @@ +//Chapter 6, Example 6.1, Page 142 +clc +clear +// Minimum Kinetic energy +Q = [1.311 -0.6259 -0.1582] //Q in MeV of all the reactions +Ex = [1.994 2.11 0.1695] +KE = Q+Ex +printf("Kinetic Energy for 13C(d,t)12C = %f \n",KE(1)) +printf(" Kinetic Energy for 14C(p,n)14N = %f \n",KE(2)) +printf(" Kinetic Energy for 14C(n,a)11B = %f",KE(3)) |