home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 12 / tricks / mathe0.def < prev    next >
Text File  |  1990-09-12  |  3KB  |  74 lines
  1. (* ------------------------------------------------------ *)
  2. (*                     MATHE0.DEF                         *)
  3. (*    erweitertes Mathe-Bibilotheks-Modul für Modula-2    *)
  4. (*          (c) 1990  Jürgen Walter & TOOLBOX             *)
  5. (* ------------------------------------------------------ *)
  6. DEFINITION MODULE Mathe0;
  7.  
  8. FROM MathLib0 IMPORT sqrt, arctan, exp,
  9.                      ln, real, entier;
  10.  
  11. EXPORT QUALIFIED fraction, sgn, power, fact, Bi,
  12.                  arccos, arcsin, arccot, sinh, cosh,
  13.                  tanh, coth, arsinh, arcosh, artanh,
  14.                  arcoth, log, logb;
  15.  
  16.  
  17.   PROCEDURE fraction(x : REAL) : REAL;
  18.             (* bestimmt den Nachkommanteil einer Realzahl *)
  19.  
  20.   PROCEDURE sgn(x : REAL) : INTEGER;
  21.             (* bestimmt Vorzeichen                        *)
  22.  
  23.   PROCEDURE power(x, n : REAL) : REAL;
  24.             (* berechnet beliebige Wurzeln und Exponenten *)
  25.  
  26.   PROCEDURE fact(x : REAL) : REAL;
  27.             (* berechnet die Fakultät                     *)
  28.  
  29.   PROCEDURE Bi(n, r : REAL) : REAL;
  30.             (* berechnet den Binominalkoeffizienten       *)
  31.  
  32.   PROCEDURE arccos(x : REAL) : REAL;
  33.             (* berechnet Arcuscosinus                     *)
  34.  
  35.   PROCEDURE arcsin(x : REAL) : REAL;
  36.             (* berechnet Arcussinus                       *)
  37.  
  38.   PROCEDURE arccot(x : REAL) : REAL;
  39.             (* berechnet Arcuscotangens                   *)
  40.  
  41.   PROCEDURE sinh(x : REAL) : REAL;
  42.             (* berechnet Sinushyperbolicus                *)
  43.  
  44.   PROCEDURE cosh(x : REAL) : REAL;
  45.             (* berechnet Cosinushyperbolicus              *)
  46.  
  47.   PROCEDURE tanh(x : REAL) : REAL;
  48.             (* berechnet Tangenshyperbolicus              *)
  49.  
  50.   PROCEDURE coth(x : REAL) : REAL;
  51.             (* berechnet Cotangenshyperbolicus            *)
  52.  
  53.   PROCEDURE arsinh(x : REAL) : REAL;
  54.             (* berechnet Arcussinushyperbolicus           *)
  55.  
  56.   PROCEDURE arcosh(x : REAL) : REAL;
  57.             (* berechnet Arcuscosinushyperbolicus         *)
  58.  
  59.   PROCEDURE artanh(x : REAL) : REAL;
  60.             (* berechnet Arcustangenshyperbolicus         *)
  61.  
  62.   PROCEDURE arcoth(x : REAL) : REAL;
  63.             (* berechnet Arcuscotangenshyperbolicus       *)
  64.  
  65.   PROCEDURE log(x : REAL) : REAL;
  66.             (* berechnet dekadischen Logarithmus          *)
  67.  
  68.   PROCEDURE logb(b, x : REAL) : REAL;
  69.             (* berechnet Logarithmus zur Basis b          *)
  70.  
  71.   END Mathe0.
  72. (* ------------------------------------------------------ *)
  73. (*                  Ende von MATHE0.DEF                   *)
  74.