1 files changed, 23 insertions, 0 deletions
diff --git a/1026/CH13/EX13.1/Example13_1.sce b/1026/CH13/EX13.1/Example13_1.sce
new file mode 100755
index 000000000..010ef312c
--- /dev/null
+++ b/1026/CH13/EX13.1/Example13_1.sce
@@ -0,0 +1,23 @@
+//chapter13,Example13_1,pg 391
+
+//xMy -> x-mass no., M-element, y-atomic no.
+
+M7Li3=7.018232//mass of 7li3 (amu)
+
+Malpha=4.003874//mass of alpha particle (amu)
+
+Mpr=1.008145//mass of proton (amu)
+
+//reaction:- 7li3 + 1H1-> 4He2 + 4He2
+
+delM=M7Li3+Mpr-2*Malpha//mass defect
+
+Q=delM*931//1 amu= 931 Mev
+
+Ey=9.15//K.E energy of product nucleus
+
+Ex=2*Ey-Q//K.E of incident particle
+
+printf("kinetic energy of incident proton\n")
+
+printf("Ex=%.2f Mev",Ex)
+\ No newline at end of file