home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / program / 359 / def / mathlib.def < prev    next >
Encoding:
Modula Definition  |  1989-01-09  |  1.8 KB  |  54 lines
  1. DEFINITION MODULE MathLib;
  2. (*              File :  MathLib.def                                        *)
  3. (*              Date:   Octeber , 1986                                     *)
  4. (*              By:  RTA                                                   *)
  5. (*                                                                         *)
  6. (*   SCCSID  = "%R%.%L%    %G%";                                           *)
  7. (*
  8. *    Copyright (c) 1985,1986,1987,1988,1989 by
  9. *    ana-systems, Foster City, California.
  10. *    All Rights Reserved.
  11. *
  12. *    This software is furnished under a license and may be used and copied
  13. *    only  in accordance with  the  terms  of  such  license and  with the
  14. *    inclusion of the above copyright notice.  This software or  any other
  15. *    copies thereof may not be provided or otherwise made available to any
  16. *    other  person.   No title to and ownership of the  software is  herby
  17. *    transferred.
  18. *
  19. *    The information in this software is  subject to change without notice
  20. *    and  should  not be construed as a commitment by ana-systems.   No
  21. *    warranty is implied or expressed.
  22. *)
  23. (*                                                                         *)
  24. (*      History of Modifcation                                             *)
  25. (*      Date            Who                     Reasone                    *)
  26.  
  27. EXPORT QUALIFIED sgn, ld, int, pi, e, zero,
  28.                  matherr;
  29. VAR
  30.         zero, pi, e: REAL;
  31.  
  32. PROCEDURE matherr (VAR where, error: ARRAY OF CHAR);
  33.  
  34. PROCEDURE sgn (x: REAL): REAL;
  35. (* 
  36.    return -1.0 : x < 0.
  37.            0.0 : x = 0.
  38.           +1.0 : x > 0.
  39. *)
  40.  
  41. PROCEDURE ld (x: REAL): REAL;
  42. (*
  43.    dual logarithm of x base 2
  44.    x >= 0.0
  45. *)
  46.  
  47. PROCEDURE int (x: REAL): REAL;
  48. (*
  49.    truncate the fraction part off.
  50.    2147483647.0 < x <=  2147483647.0
  51. *)
  52.  
  53. END MathLib.
  54.