summaryrefslogtreecommitdiff
path: root/1970/CH13/EX13.8/CH13Exa8.sce
diff options
context:
space:
mode:
Diffstat (limited to '1970/CH13/EX13.8/CH13Exa8.sce')
-rwxr-xr-x1970/CH13/EX13.8/CH13Exa8.sce13
1 files changed, 13 insertions, 0 deletions
diff --git a/1970/CH13/EX13.8/CH13Exa8.sce b/1970/CH13/EX13.8/CH13Exa8.sce
new file mode 100755
index 000000000..cdab443a7
--- /dev/null
+++ b/1970/CH13/EX13.8/CH13Exa8.sce
@@ -0,0 +1,13 @@
+// Scilab code Exa13.8 : : Page-602 (2011)
+clc; clear;
+A_0 = 240; // Mass number of parent nucleus
+A_1 = 120; // Mass number of daughter nucleus
+B_120 = 8.5; // Binding energy of daughter nucleus
+B_240 = 7.6; // Binding energy of parent nucleus
+Q = 2*A_1*B_120-A_0*B_240; // Estimated Q-value, mega electron volts
+printf("\nThe estimated Q-value is = %d MeV", Q);
+
+// Result
+// The estimated Q-value is = 216 MeV
+
+ \ No newline at end of file