home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / appl / solve.sit / loan next >
Text File  |  1987-04-23  |  270b  |  7 lines
  1. precision = 2
  2. monthly_interest = yearly_interest / 12.0;
  3. months = years * 12.0;
  4. payments = principle / annuity( monthly_interest / 100.0, months);
  5. costOfLoan = payments * months - principle;
  6. costPerPayment = costOfLoan / months;
  7. principlePerPayment = principle / months;