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

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

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

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

Bước 2

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

Đầu ra

266.08191502177397

Bước 3

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

Đầu ra

0.05604463645158886

Bước 4

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

Đầu ra

-44998.608919690494

Bước 5

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

Đầu ra

-Graphics-

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