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-

用到的函数