Is this price fair: present value and the break-even rate

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

第 1 步

presentValue[cash_, r_, years_] := Sum[cash/(1 + r)^t, {t, 1, years}]

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

第 2 步

npv = N[presentValue[1200, 0.05, 10] - 9000]

输出

266.08191502177397

第 3 步

breakEvenRate = r /. FindRoot[presentValue[1200, r, 10] == 9000, {r, 0.05}]

输出

0.05604463645158886

第 4 步

N[D[presentValue[1200, r, 10], r] /. r -> 0.05]

输出

-44998.608919690494

第 5 步

Plot[presentValue[1200, r, 10] - 9000, {r, 0.01, 0.12}]

输出

-Graphics-

用到的函数