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-

ฟังก์ชันที่ใช้

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