diff options
Diffstat (limited to '3876/CH20/EX20.1/Ex20_1.sce')
| -rw-r--r-- | 3876/CH20/EX20.1/Ex20_1.sce | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/3876/CH20/EX20.1/Ex20_1.sce b/3876/CH20/EX20.1/Ex20_1.sce new file mode 100644 index 000000000..60b6a72e8 --- /dev/null +++ b/3876/CH20/EX20.1/Ex20_1.sce @@ -0,0 +1,20 @@ +//Chapter 20 Radiochemistry + +clc; +clear; + +//Initialisation of Variables +t= 4.5*10**9 //years +t1= 1590 //years + +//CALCULATIONS +l= log10(2)/(t*0.4343) +l1= log10(2)/(t1*0.4343) +r= l1/l +r1= t/t1 + +//RESULTS +mprintf("Disintegration constant= %.2e yr^-1",l) +mprintf("\nDisintegration constant= %.2e yr^-1",l1) +mprintf("\nRelative proportion= %.2e",r) +mprintf("\nRelative proportion= %.2e",r1) |