I would like to use Mathematica built-in functions to determine the present value of a cashflow payment stream given unequal payments at regular intervals and a constant rate of return. Ultimately I would like to present results as a table of 'balance remaining' values for an amortization schedule. I can do this for a fixed-amount stream using the Annuity construct:

nstop = 360;
nm = Table[
   TimeValue[Annuity[529.24, k], EffectiveInterest[0.0375/12, 1]], {k,
     1, nstop}];
rt = Table[{i, Round[nm[[i]]]}, {i, 1, nstop}];

See the attachment for clarification.

I can do this in Excel but would rather use Mathematica if possible. I'm new to this set of functions and not a finance major. Thanks for any help you may be able to provide, be it a link to solution or your code. Keith

Attachments: