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

ワークフロー 5 ステップを1つのセッション内で順に実行します。各ステップはエンジンで実行済みで、以下の出力は実際に生成されたものです。

ステップ 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-

使用する関数