home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lifeos2.zip / LIFE-1.02 / TESTS / LF / NUMERIC.LF < prev    next >
Text File  |  1996-06-04  |  583b  |  26 lines
  1. % FILE. . . . . /_/hassan/_/life/numeric
  2. % EDIT BY . . . Hassan Ait-Kaci
  3. % ON MACHINE. . Prl316
  4. % STARTED ON. . Sun Jun  9 16:27:24 1991
  5.  
  6. % Last modified on Wed Feb 19 16:15:24 MET 1992 by mezhoud
  7. %      modified on Sun Jun 09 16:27:29 1991 by Hassan
  8.  
  9. % remainder (or modulo) function:
  10.  
  11. rem(N,P)-> N-P*floor(N/P).
  12.  
  13. nat -> {0;1+nat}.
  14.  
  15. aroot(X)-> cond(X<0,
  16.            eval_pred(write('*** Negative argument in ''aroot''.')),
  17.            cond(X=:=0,
  18.             0,
  19.             aroot_approx(X,1))).
  20.  
  21. aroot_approx(X,R)-> cond(abs(Y*Y/X-1)<0.00000001,
  22.                  Y:((X-R*R)/2/R+R),
  23.              aroot_approx(X,Y)).
  24.  
  25.  
  26.