blob: b82ed577213a2c895485538235127ab2403116a7 (
plain)
1
2
3
4
5
6
7
8
9
|
//Sample Problem 43-4
txt = mopen('Example43_4_result.txt','wt')
mfprintf(txt, '**Sample Problem 43-4**\n')
slope = (0-6.2)/(225-0)
lambda = -slope
mfprintf(txt, 'The disintegration constant for the radionuclide is %fmin-1\n', lambda)
Th = log(2)/lambda
mfprintf(txt, 'The half life is equal to %dmin', Th)
mclose(txt)
|
