Finance.csh



#  Calculate various financial factors related to the "time value of money".
#  Release 2.2.49
#  Copyright (c) 1989-1995 by Hamilton Laboratories.  All rights reserved.

proc PV_FutureAmount(i, n)
   #  Calculate the multiplier to convert $1 in period n to a
   #     present value, given interest rate i% per period.
   return 1/(1 + i/100)**n
   end

proc FV_PresentAmount(i, n)
   #  Calculate the multiplier to convert $1 now to a
   #     future value, given interest rate i
   return (1 + i/100)**n
   end

proc PV_Annuity(i, n)
   #  Calculate the multiplier to convert $1 paid each period for n periods
   #     to a present value, given interest rate i% per period.
   @ i /= 100
   return ((1 + i)**n - 1)/(i*(1 + i)**n)
   end

proc FV_Annuity(i, n)
   #  Calculate the multiplier to convert $1 paid each period for n periods
   #     to a future value, given interest rate i% per period.
   @ i /= 100
   return ((1 + i)**n - 1)/i
   end

proc Periods_PV(i, PV)
   #  Calculate the multipler to convert an annuity of $1 paid each period,
   #     given present value and interest rate, to a number of periods.
   @ i /= 100;
   return ceil(-(log(1/i - PV) + log(i))/log(i + 1))
   end

proc Periods_FV(i, FV)
   #  Calculate the multipler to convert an annuity of $1 paid each period,
   #     given future value and interest rate, to a number of periods.
   @ i /= 100
   return ceil(log(i*FV + 1)/log(i + 1))
   end



Hamilton C shell | Free Updates | Free Demo Software | Win32 Training
Y2K | Customer Testimonials | On-line Hamilton C shell User Guide
Home | Email | Support | Company Profile | Distributors | Links



Copyright © 1997-2001 by Hamilton Laboratories. All rights reserved.
You are visitor number 1520. This page was last modified August 14, 2001.