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

Flujo de trabajo 5 pasos, ejecutados en orden en una sola sesión. Cada paso se ejecutó contra el motor y la salida de abajo es lo que produjo.

Paso 1

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

Sin salida - este paso prepara algo para el siguiente.

Paso 2

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

Salida

2528.272093971862

Paso 3

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

Salida

406.7862015456485

Paso 4

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

Salida

263.0602719400421

Paso 5

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

Salida

-Graphics-

Funciones usadas