blob: 8eca56bd610820e907e4b377d0a2beb0b7aab5de (
plain)
1
2
3
4
5
6
7
8
9
10
|
//Given that
ratio = 10.3
Th = 1.25*10^9 //in years
//Sample Problem 43-8
txt = mopen('Example43_8_result.txt','wt')
mfprintf(txt, '**Sample Problem 43-8**\n')
t = Th * log(1 + ratio)/log(2)
mfprintf(txt, 'The life of rock is %eyears', t)
mclose(txt)
|
