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-

使用到的函式