blob: 60b6a72e8d4df1a74e91f616a6cf1cdc20f03b54 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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)
|
