home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / OB3.2D2.DMS / in.adf / Module / MATHLIB.mod < prev    next >
Encoding:
Text File  |  1994-08-05  |  2.6 KB  |  35 lines
  1. (*-------------------------------------------------------------------------*)
  2. (*                                                                         *)
  3. (*  Amiga Oberon Library Module: MATHLIB              Date: 02-Nov-92      *)
  4. (*                                                                         *)
  5. (*   © 1991 by Fridtjof Siebert                                            *)
  6. (*                                                                         *)
  7. (*-------------------------------------------------------------------------*)
  8.  
  9. MODULE MATHLIB;
  10.  
  11. IMPORT m := MathIEEEDoubTrans, b := MathIEEEDoubBas;
  12.  
  13. PROCEDURE ACOS  *(x: LONGREAL): LONGREAL; (* Arc Cosinus  *) BEGIN RETURN m.Acos(x)            END ACOS;
  14. PROCEDURE ASIN  *(x: LONGREAL): LONGREAL; (* Arc Sinus    *) BEGIN RETURN m.Asin(x)            END ASIN;
  15. PROCEDURE ATAN  *(x: LONGREAL): LONGREAL; (* Arc Tangens  *) BEGIN RETURN m.Atan(x)            END ATAN;
  16. PROCEDURE ATANH *(x: LONGREAL): LONGREAL; (* Arc Tan. hyp.*) BEGIN RETURN m.Log((1+x)/(1-x))/2 END ATANH;
  17. PROCEDURE COS   *(x: LONGREAL): LONGREAL; (* Cosinus      *) BEGIN RETURN m.Cos(x)             END COS;
  18. PROCEDURE COSH  *(x: LONGREAL): LONGREAL; (* Cosinus hyp. *) BEGIN RETURN m.Cosh(x)            END COSH;
  19. PROCEDURE ETOX  *(x: LONGREAL): LONGREAL; (* e^x          *) BEGIN RETURN m.Exp(x)             END ETOX;
  20. PROCEDURE LOG10 *(x: LONGREAL): LONGREAL; (* 10er-Log.    *) BEGIN RETURN m.Log10(x)           END LOG10;
  21. PROCEDURE LOG2  *(x: LONGREAL): LONGREAL; (* 2 er-Log.    *) BEGIN RETURN m.Log(x)/m.Log(2)    END LOG2;
  22. PROCEDURE LOGN  *(x: LONGREAL): LONGREAL; (* nat. Log.    *) BEGIN RETURN m.Log(x)             END LOGN;
  23. PROCEDURE SIN   *(x: LONGREAL): LONGREAL; (* Sinus        *) BEGIN RETURN m.Sin(x)             END SIN;
  24. PROCEDURE SINH  *(x: LONGREAL): LONGREAL; (* Sinus hyp.   *) BEGIN RETURN m.Sinh(x)            END SINH;
  25. PROCEDURE SQR   *(x: LONGREAL): LONGREAL; (* Quadrat      *) BEGIN RETURN x*x                  END SQR;
  26. PROCEDURE SQRT  *(x: LONGREAL): LONGREAL; (* Wurzel       *) BEGIN RETURN m.Sqrt(x)            END SQRT;
  27. PROCEDURE TAN   *(x: LONGREAL): LONGREAL; (* Tangens      *) BEGIN RETURN m.Tan(x)             END TAN;
  28. PROCEDURE TANH  *(x: LONGREAL): LONGREAL; (* Tangens hyp. *) BEGIN RETURN m.Tanh(x)            END TANH;
  29. PROCEDURE TENTOX*(x: LONGREAL): LONGREAL; (* 10^x         *) BEGIN RETURN m.Pow(x,10)          END TENTOX;
  30. PROCEDURE TWOTOX*(x: LONGREAL): LONGREAL; (* 2^x          *) BEGIN RETURN m.Pow(x,2)           END TWOTOX;
  31. PROCEDURE INT   *(x: LONGREAL): LONGREAL; (* 2^x          *) BEGIN IF x<0 THEN RETURN b.Ceil(x) ELSE RETURN b.Floor(x) END END INT;
  32.  
  33. END MATHLIB.
  34.  
  35.