blob: b94048565115c41ccda28ce5feb75e363c2c05e4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
//Given that
ratio = 0.0072
T = 2.0*10^9 //in years
Th1 = 7.04*10^8 //in years
Th2 = 44.7*10^8 //in years
//Sample Problem 44-3
txt = mopen('Example44_3_result.txt','wt')
mfprintf(txt, '**Sample Problem 44-3**\n')
l1 = log(2)/Th1
l2 = log(2)/Th2
ratioEarlier = ratio*%e^((l1 - l2)*T)
mfprintf(txt, 'The earlier ratio is equal to %f', ratioEarlier)
mclose(txt)
|
