Is this price fair: present value and the break-even rate

वर्कफ़्लो 5 चरण, एक सत्र में क्रम से चलाए गए। हर चरण इंजन पर निष्पादित हुआ और नीचे का आउटपुट वही है जो उसने उत्पन्न किया।

चरण 1

presentValue[cash_, r_, years_] := Sum[cash/(1 + r)^t, {t, 1, years}]

कोई आउटपुट नहीं - यह चरण अगले के लिए कुछ तैयार करता है।

चरण 2

npv = N[presentValue[1200, 0.05, 10] - 9000]

आउटपुट

266.08191502177397

चरण 3

breakEvenRate = r /. FindRoot[presentValue[1200, r, 10] == 9000, {r, 0.05}]

आउटपुट

0.05604463645158886

चरण 4

N[D[presentValue[1200, r, 10], r] /. r -> 0.05]

आउटपुट

-44998.608919690494

चरण 5

Plot[presentValue[1200, r, 10] - 9000, {r, 0.01, 0.12}]

आउटपुट

-Graphics-

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

Is this price fair: present value and the break-even rate