blob: 9a49c0362b6134177b78edba2ff72be1f3d9fa03 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
Thalf= 3.82; //half-life in days, d
Lambda= 0.693/Thalf; //decay constant
p= 0.6; // 60.0 percent of sample
No= poly(0,'No'); //Number of undecayed nuclei, at time t=0
N= (1-p)*No; //Number of undecayed nuclei, at time t
k= 1-p; //ratio of N to No
t= (1/Lambda)*(log(k)); //decay time in days, d
t= t*(-1);
disp(t,"The decay time for Radon, in d, is: ")
//Result
// The decay time for Radon, in d, is:
// 5.0508378
|
