home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e004 / 1.img / NPV.MCD < prev    next >
Encoding:
Text File  |  1987-10-24  |  1.6 KB  |  78 lines
  1. .MCD 20000 0
  2. .CMD PLOTFORMAT logs=0,0 subdivs=1,1 size=5,15 type=l
  3. .CMD FORMAT  rd=d ct=10 im=i et=8 zt=15 pr=3 mass length time charge
  4. .CMD SET ORIGIN 0
  5. .CMD SET TOL 0.001000
  6. .CMD MARGIN 0
  7. .CMD LINELENGTH 78
  8. .CMD SET PRNCOLWIDTH 8
  9. .CMD SET PRNPRECISION 4
  10. .TXT 1 0 1 36 
  11. a1,35,33,34
  12. Calculate Net Present Value (NPV)
  13. .TXT 2 0 2 66 
  14. a2,65,65,123
  15. Examine net present value of initial investment I resulting in 
  16. cash flows C over time. Use discount rate denoted by int. 
  17. .EQN 3 10 1 11 
  18. I:5000
  19. .TXT 0 16 1 24 
  20. a1,24,22,23
  21. ... initial investment
  22. .EQN 1 -16 1 13 
  23. int:12*%
  24. .TXT 0 16 1 31 
  25. a1,30,28,29
  26. ... interest rate per period
  27. .EQN 3 -17 10 13 
  28. C:({10,1}÷500÷1000÷2000÷2000÷3000÷4000÷3000÷2000÷1200÷500)
  29. .TXT 5 16 1 39 
  30. a1,38,53,37
  31. ... paybacks over term of investment
  32. .EQN 6 -25 1 16 
  33. N:length(C)
  34. .EQN 0 19 1 10 
  35. N=?
  36. .EQN 0 10 1 12 
  37. j:1;N
  38. .TXT 3 -29 1 15 
  39. a1,14,12,13
  40. NPV formula:
  41. .EQN 2 10 4 62 
  42. npv(init,pmts,i_rate):-init+j$pmts[(j-1)*(1+i_rate)^-j
  43. .EQN 5 0 1 21 
  44. NPV:npv(I,C,int)
  45. .EQN 1 0 1 18 
  46. NPV=?
  47. .TXT 0 30 1 23 
  48. a1,23,21,22
  49. ... net present value
  50. .TXT 2 -40 1 47 
  51. a1,46,44,45
  52. Plot present value of discounted cash flows.
  53. .EQN 2 12 2 11 
  54. PV[0:-I
  55. .EQN 2 0 3 33 
  56. PV[j:PV[(j-1)+C[(j-1)*(1+int)^-j
  57. .EQN 1 37 1 13 
  58. j1:0;N
  59. .EQN 3 -42 16 54 
  60. NPV&-I&PV[j1,0{1,10,15,45,l}@last(C)&0&j1
  61. .EQN 0 54 1 18 
  62. NPV=?
  63. .EQN 7 0 1 3 
  64. 0
  65. .EQN 7 0 1 14 
  66. -I=?
  67. .TXT 3 -61 1 36 
  68. a1,35,33,34
  69. Now find internal rate of return.
  70. .EQN 2 12 1 20 
  71. Rate_guess:10*%
  72. .EQN 2 0 1 40 
  73. IRR(init,C,p):root(npv(init,C,p),p)
  74. .EQN 2 0 1 19 
  75. int:Rate_guess
  76. .EQN 2 0 1 23 
  77. IRR(I,C,int)={19073}?%
  78.