home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lifeos2.zip / LIFE-1.02 / TESTS / LF / MORT.LF < prev    next >
Text File  |  1996-06-04  |  186b  |  10 lines
  1. mort(P,Time,I,MP,B)
  2.     :- 0 < Time, Time =< 1,
  3.        Int = Time*(P*I/1200),
  4.        B = P+Int-(Time*MP).
  5.  
  6. mort(P,Time,I,MP,B)
  7.     :- Time > 1,
  8.        Int = P*I/1200,
  9.        mort(P+Int-MP,Time-1,I,MP,B).
  10.