Finance::Amortization(3U)ser Contributed Perl DocumentatiFoinnance::Amortization(3) NNAAMMEE Finance::Amortization - Simple Amortization Schedules SSYYNNOOPPSSIISS use Finance::Amortization # make a new schedule $amortization = new Finance::Amortization(principal => 100000, rate = 0.06/12, periods = 360); # get the balance after a the twelveth period $balance = $amortization->balance(12) # get the interest paid during the twelfth period $interest = $amortization->interest(12); DDEESSCCRRIIPPTTIIOONN Finance::Amortization is a simple object oriented interface to an amor- tization table. Pass in the principal to be amortized, the number of payments to be made, and the interest rate per payment. It will calcu- late the rest on demand, and provides a few methods to ask for the state of the table after a given number of periods. Finance::Amortization is written in pure perl and does not depend on any other modules. It exports no functions; all access is via methods called on an amortization object. (Except for _n_e_w_(_), of course.) _n_e_w_(_) $am = Finance::Amortization->new(principal => 0, rate => 0, periods => 0, compounding => 12, precision => 2); Creates a new amortization object. Calling interface is hash style. The fields principal, rate, and periods are available, all defaulting to zero. Compounding is a parameter which sets how many periods the rate is com- pounded over. Thus, if each amortization period is one month, setting compounding to 12 (the default), will make the rate an annual rate. That is, the interest rate per period is the rate specified, divided by the compounding. So, to get an amortization for 30 years on 200000, with a 6% annual rate, you would call new(principal => 200000, periods => 12*30, rate => 0.06), the compounding will default to 12, and so the rate will work out right for monthly payments. precision is used to specify the number of decimal places to round to when returning answers. It defaults to 2, which is appropriate for US currency and many others. _r_a_t_e_(_) $rate_per_period = $am->_r_a_t_e_(_) returns the interest rate per period. Ignores any arguments. _p_r_i_n_c_i_p_a_l_(_) $initial_value = $am->_p_r_i_n_c_i_p_a_l_(_) returns the initial principal being amortized. Ignores any arguments. _p_e_r_i_o_d_s_(_) $number_of_periods = $am->_p_e_r_i_o_d_s_(_) returns the number of periods in which the principal is being amor- tized. Ignores any arguments. _p_a_y_m_e_n_t_(_) $pmt = $am->_p_a_y_m_e_n_t_(_) returns the payment per period. This method will cache the value the first time it is called. bbaallaannccee((nn)) $balance = $am->balance(12); Returns the balance of the amortization after the period given in the argument iinntteerreesstt((nn)) $interest = $am->interest(12); Returns the interest paid in the period given in the argument BBUUGGSS This module uses perl's floating point for financial calculations. This may introduce inaccuracies and/or make this module unsuitable for serious financial applications. TTOODDOO Use Math::BigRat for the calculations. Provide amortizers for present value, future value, annuities, etc. Allow for caching calculated values. Provide output methods and converters to various table modules. HTML::Table, Text::Table, and Data::Table come to mind. Write better test scripts. Better checking for errors and out of range input. Return undef in these cases. Use a locale dependent value to set an appropriate default for preci- sion in the _n_e_w_(_) method. LLIICCEENNSSEE None. This entire module is in the public domain. AAUUTTHHOORR Nathan Wagner This entire module is written by me and placed into the public domain. perl v5.8.6 2007-05-27 Finance::Amortization(3)