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

روند کار 5 گام، به‌ترتیب در یک نشست اجرا می‌شوند. هر گام روی موتور اجرا شده و خروجی زیر همان چیزی است که تولید کرد.

گام 1

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

بدون خروجی - این گام چیزی را برای گام بعد آماده می‌کند.

گام 2

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

خروجی

2528.272093971862

گام 3

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

خروجی

406.7862015456485

گام 4

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

خروجی

263.0602719400421

گام 5

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

خروجی

-Graphics-

توابع به‌کاررفته