diff options
Diffstat (limited to '3717/CH18/EX18.1')
| -rw-r--r-- | 3717/CH18/EX18.1/Ex18_1.sce | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/3717/CH18/EX18.1/Ex18_1.sce b/3717/CH18/EX18.1/Ex18_1.sce new file mode 100644 index 000000000..c10f33f7f --- /dev/null +++ b/3717/CH18/EX18.1/Ex18_1.sce @@ -0,0 +1,12 @@ +// Ex18_1 Page:347 (2014)
+clc;clear;
+N0 = poly(0, 'N0'); // Declare the original number of nuclides
+HL = [2 5 10]; // Half lives, time units
+for i = 1:3
+printf("\nAfter %d half lives, the fraction remains = 1/%d", HL(i), 2^HL(i));
+end
+
+// Result
+// After 2 half lives, the fraction remains = 1/4
+// After 5 half lives, the fraction remains = 1/32
+// After 10 half lives, the fraction remains = 1/1024
\ No newline at end of file |