What if interest rates rise: a mortgage payment's sensitivity

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

payment[principal_, rate_, months_] := principal (rate/12)/(1 - (1 + rate/12)^(-months))

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

Bước 2

current = N[payment[400000, 0.065, 360]]

Đầu ra

2528.272093971862

Bước 3

N[payment[400000, 0.08, 360]] - current

Đầu ra

406.7862015456485

Bước 4

perPercentagePoint = N[D[payment[400000, r, 360], r] /. r -> 0.065]/100

Đầu ra

263.0602719400421

Bước 5

Plot[payment[400000, r, 360], {r, 0.03, 0.10}]

Đầu ra

-Graphics-

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