home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0210 - 0219 / ibm0210-0219 / ibm0213.tar / ibm0213 / HAM_W32.ZIP / SAMPLES / FINANCE.CSH < prev    next >
Encoding:
Text File  |  1994-05-12  |  1.3 KB  |  41 lines
  1. #    Calculate various financial factors related to the "time value of money".
  2. #    Copyright (c) 1989 by Hamilton Laboratories.  All rights reserved.
  3.  
  4. proc PV_FutureAmount(i, n)
  5.     #    Calculate the multiplier to convert $1 in period n to a
  6.     #        present value, given interest rate i% per period.
  7.     return 1/(1 + i/100)**n
  8.     end
  9.  
  10. proc FV_PresentAmount(i, n)
  11.     #    Calculate the multiplier to convert $1 now to a
  12.     #        future value, given interest rate i
  13.     return (1 + i/100)**n
  14.     end
  15.  
  16. proc PV_Annuity(i, n)
  17.     #    Calculate the multiplier to convert $1 paid each period for n periods
  18.     #        to a present value, given interest rate i% per period.
  19.     return 100/i - 1/(i * (1 + i/100)**n)
  20.     end
  21.  
  22. proc FV_Annuity(i, n)
  23.     #    Calculate the multiplier to convert $1 paid each period for n periods
  24.     #        to a future value, given interest rate i% per period.
  25.     return ((1 + i/100)**n - 1)/i
  26.     end
  27.  
  28. proc Periods_PV(i, PV)
  29.     #    Calculate the multipler to convert an annuity of $1 paid each period,
  30.     #        given present value and interest rate, to a number of periods.
  31.     @ i /= 100;
  32.     return ceil(-(log(1/i - PV) + log(i))/log(i + 1))
  33.     end
  34.  
  35. proc Periods_FV(i, FV)
  36.     #    Calculate the multipler to convert an annuity of $1 paid each period,
  37.     #        given future value and interest rate, to a number of periods.
  38.     @ i /= 100;
  39.     return ceil(log(i*FV + 1)/log(i + 1))
  40.     end
  41.