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

Flusso di lavoro 5 passi, eseguiti in ordine in una sola sessione. Ogni passo è stato eseguito sul motore e l'output qui sotto è ciò che ha prodotto.

Passo 1

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

Nessun output - questo passo prepara qualcosa per il successivo.

Passo 2

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

Output

2528.272093971862

Passo 3

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

Output

406.7862015456485

Passo 4

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

Output

263.0602719400421

Passo 5

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

Output

-Graphics-

Funzioni usate