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