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-

使用到的函式