Growth and time: compounding, doubling, arrival

工作流 5 步，在同一个会话中按顺序运行。每一步都在引擎上执行过，下面的输出就是它实际产生的。

第 1 步

balance[principal_, monthly_, rate_, months_] := principal (1 + rate)^months + monthly ((1 + rate)^months - 1)/rate

无输出——这一步是在为下一步做准备。

第 2 步

after30years = N[balance[20000, 500, 0.07/12, 360]]

输出

772315.4473951627

第 3 步

doublingYears = N[Log[2]/(12 Log[1 + 0.07/12])]

输出

9.930955714667654

第 4 步

N[D[balance[20000, 500, r/12, 360], r] /. r -> 0.07]

输出

1.687752907426951*^7

第 5 步

Plot[balance[20000, 500, r/12, 360], {r, 0.02, 0.10}]

输出

-Graphics-

用到的函数