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-

Используемые функции