Just running this query
Do[Print[2004 + n,
” “, 1.59*(1.08)^n, ” “, 1.59*(1.09)^n,
” “, 11.74*(1.03)^n], {n, 0, 100}]
on my trusty Mathematica, I get dates of 2040 at 9 percent, 2047 at 8
percent.
(GDP figures for 2004 are: China 1.59 trillion US$, U.S.A. 11.74, from here)