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-

प्रयुक्त फ़ंक्शन

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