home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / M2V11-1.LHA / modula / m2 / MathLib0.mod < prev    next >
Encoding:
Modula Implementation  |  1994-09-28  |  815 b   |  36 lines
  1. (* @B- @P- *)
  2. IMPLEMENTATION MODULE MathLib0 ;
  3.  
  4. IMPORT MathIEEEDoubTrans, MathIEEEDoubBas ;
  5.  
  6. PROCEDURE sqrt( x : LONGREAL ) : LONGREAL ;
  7. BEGIN RETURN MathIEEEDoubTrans.IEEEDPSqrt(x)
  8. END sqrt ;
  9.  
  10. PROCEDURE exp( x : LONGREAL ) : LONGREAL ;
  11. BEGIN RETURN MathIEEEDoubTrans.IEEEDPExp(x)
  12. END exp ;
  13.  
  14. PROCEDURE ln( x : LONGREAL ) : LONGREAL ;
  15. BEGIN RETURN MathIEEEDoubTrans.IEEEDPLog(x)
  16. END ln ;
  17.  
  18. PROCEDURE sin( x : LONGREAL ) : LONGREAL ;
  19. BEGIN RETURN MathIEEEDoubTrans.IEEEDPSin(x)
  20. END sin ;
  21.  
  22. PROCEDURE cos( x : LONGREAL ) : LONGREAL ;
  23. BEGIN RETURN MathIEEEDoubTrans.IEEEDPCos(x)
  24. END cos ;
  25.  
  26. PROCEDURE arctan( x : LONGREAL ) : LONGREAL ;
  27. BEGIN RETURN MathIEEEDoubTrans.IEEEDPAtan(x)
  28. END arctan ;
  29.  
  30. PROCEDURE entier( x : LONGREAL ) : LONGINT ;
  31. BEGIN RETURN TRUNC( MathIEEEDoubBas.IEEEDPFloor(x))
  32. END entier ;
  33.  
  34. END MathLib0.
  35.  
  36.