Article 352 of comp.sys.handhelds:
From: jean@mcgill-vision.uucp (Pierre Racz)
Newsgroups: comp.sys.handhelds
Subject: HP48 Tool box : Engineering Economy
Message-ID: <1990May23.154022.2101@larry.mcrcim.mcgill.edu>
Date: 23 May 90 15:40:22 GMT
Sender: news@larry.mcrcim.mcgill.edu (Usenet File Owner)
Reply-To: pierrer@pike.ee.mcgill.ca (Pierre Racz)
Organization: Electrical Engineering McGill University
Lines: 148

%%HP: T(3)A(R)F(.);
@   Name      : ECON - Engineering Economy Tools
@   Author    : Pierre Racz
@   Email     : pierrer <at> pike.ee.mcgill.ca
@   Date      : 90-04-29
@   Release   : 1.0
@
@   Checksum  : # CE47h
@   Bytes     : 900.0
@
@   Descrip   :
@		This file contains a directory hierarchy for time-value-of-money
@		computations.  The main directory holds the TVM functions,
@		custom menu initialization and a DATA subdirectory where
@		the computations should be performed.
@
@		The following functions have been implemented:
@
@		F<-P	Future given present.
@		P<-A	Present given annuity.
@		F<-A	Future given annuity.
@		P<-G	Present given gradient.
@		F<-G	Future given gradient.
@		A<-G	Annuity given gradient.
@		P<-C	Present given Constant rate of change.
@		PRINC	Principal remaining on loan.
@		EIR	Effective interest rate.
@		NIR	Nominal interest rate.
@
DIR
@
@   Time Value of Money functions.
@
@
  DATA					@ Empty directory for YOUR data.
    DIR
    END
@
@   ----
@   Custom menu
@
  CST { F\<-P P\<-A F\<-A P\<-G F\<-G A\<-G P\<-C PRINC EIR NIR }
@
@   ----
@   Future given Present.
@
@   i : Interest rate per period.
@   n : Number of periods.
@
  F\<-P
    \<< \-> i n '(1+i)^n'
    \>>
@
@   ----
@   Present given Annuity
@
@   i : Interest rate per period.
@   n : Number of periods.
@
  P\<-A
    \<< \-> i n 'F\<-A(i,n)/F\<-P(i,n)'
    \>>
@
@   ----
@   Future given Annuity
@
@   i : Interest rate per period.
@   n : Number of periods.
@
  F\<-A
    \<< \-> i n '((1+i)^n-1)/i'
    \>>
@
@   ----
@   Present given Gradient
@
@   i : Interest rate per period.
@   n : Number of periods.
@
  P\<-G
    \<< \-> i n 'P\<-A(i,
n)*A\<-G(i,n)'
    \>>
@
@   ----
@   Future given Gradient
@
@   i : Interest rate per period.
@   n : Number of periods.
@
  F\<-G
    \<< \-> i n 'F\<-A(i,n)*A\<-G(i,n)'
    \>>
@
@   ----
@   Annuity given Gradient
@
@   i : Interest rate per period.
@   n : Number of periods.
@
  A\<-G
    \<< \-> i n '1/i-n/((1+i)^n-1)'
    \>>
@
@   ----
@   Principal remaining on loan.
@
@   i : Interest rate per period.
@   n : Number of periods into loan.
@   N : Number of periods before payback of loan.
@
  PRINC
    \<< \-> i n N 'F\<-P(i,n)-P\<-C(0,i,n)/P\<-A(i,N)'
    \>>
@
@   ----
@   Effective Interest Rate.
@
@   i : Interest rate per period.
@   n : Number of periods.
@
  EIR
    \<< \-> i n '(1+i/n)^n-1'
    \>>
@
@   ----
@   Nominal Interest Rate
@
@   i : Interest rate per period.
@   n : Number of periods.
@
  NIR
    \<< \-> i n 'n*((1+i)^(1/n)-1)'
    \>>
@
@   ----
@   Present Given Changing Annuity
@
@   i : Interest rate per period.
@   k : Rate at which receipts increase.
@   n : Number of periods.
@
  P\<-C
    \<< \-> i k n '(1-((1+k)/(1+i))^n)/(i-k)'
    \>>
END
@
@


