home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / misc / math / solve10.sit / loan next >
Encoding:
Text File  |  1987-04-23  |  270 b   |  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;