Growth and time: compounding, doubling, arrival

Quy trình 5 bước, chạy theo thứ tự trong một phiên. Từng bước đều được thực thi trên bộ máy và đầu ra bên dưới là những gì nó tạo ra.

Bước 1

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

Không có đầu ra - bước này chuẩn bị cho bước kế tiếp.

Bước 2

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

Đầu ra

772315.4473951627

Bước 3

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

Đầu ra

9.930955714667654

Bước 4

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

Đầu ra

1.687752907426951*^7

Bước 5

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

Đầu ra

-Graphics-

Các hàm được dùng