home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / m2 / CycloneModules.lha / modules / txt / MathLib0.mod < prev    next >
Text File  |  1996-11-16  |  628b  |  47 lines
  1. IMPLEMENTATION MODULE MathLib0;
  2.  
  3. IMPORT mb:MathIEEESingBas,mt:MathIEEESingTrans;
  4.  
  5. PROCEDURE sqrt(x:REAL):REAL;
  6. BEGIN
  7.  RETURN mt.Sqrt(x);
  8. END sqrt;
  9.  
  10. PROCEDURE exp(x:REAL):REAL;
  11. BEGIN
  12.  RETURN mt.Exp(x);
  13. END exp;
  14.  
  15. PROCEDURE ln(x:REAL):REAL;
  16. BEGIN
  17.  RETURN mt.Log(x);
  18. END ln;
  19.  
  20. PROCEDURE sin(x:REAL):REAL;
  21. BEGIN
  22.  RETURN mt.Sin(x);
  23. END sin;
  24.  
  25. PROCEDURE cos(x:REAL):REAL;
  26. BEGIN
  27.  RETURN mt.Cos(x);
  28. END cos;
  29.  
  30. PROCEDURE arctan(x:REAL):REAL;
  31. BEGIN
  32.  RETURN mt.Atan(x);
  33. END arctan;
  34.  
  35. PROCEDURE real(x:LONGINT):REAL;
  36. BEGIN
  37.  RETURN mb.Flt(x);
  38. END real;
  39.  
  40. PROCEDURE entier(x:REAL):LONGINT;
  41. BEGIN
  42.  RETURN mb.Fix(x);
  43. END entier;
  44.  
  45. BEGIN
  46. END MathLib0.
  47.