summaryrefslogtreecommitdiff
path: root/3535/CH6/EX6.1/Ex6_1.sce
blob: 51aa281b2b91f0503603a31fd15266e9eb2dc7e3 (plain)
1
2
3
4
5
6
7
8
9
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))