(*********************************************************************
 
    :Program.  	 FFPMathLibExt.def
    :Author.   	 Gary Struhlik  
    :Address.    -
    :Phone.      -
    :shortcut. 	 [gs]
    :Version.  	 1.0   
    :Date.     	 06.10.1988
    :Copyright.  PD
    :Language. 	 Modula-II
    :Translator. M2Amiga
    :Imports.	 -
    :UpDate.	 -
    :Contents.	 Zusätzliche mathematische Funktionen
    :Remark.	 Für den Amiga Modula-2 Klub / Stuttgart
    :Remark.     Am 01.01.1989 mit M2Amiga 3.2d neu kompiliert

**********************************************************************)

DEFINITION MODULE FFPMathLibExt; (* für Datentyp FFP *)

FROM SYSTEM IMPORT FFP;

CONST

	ln10 = 2.302585;              (*  2.302585092994045  *)  
	pi   = 3.141593;              (*  3.141592653589793  *)
        e    = 2.718282;              (*  2.718281828459045  *)
        ln2  = 0.693147;              (*  0.693147180559945  *)

PROCEDURE Round ( x : FFP ) : LONGINT;

PROCEDURE Sqr ( x : FFP ) : FFP;
 
PROCEDURE Arsinh ( x : FFP ) : FFP;

PROCEDURE Arcosh ( x : FFP ) : FFP;

PROCEDURE Artanh ( x : FFP ) : FFP;

PROCEDURE Fact ( x : FFP ) : FFP; (*  Fakultät  *)

PROCEDURE Sgn ( x : FFP ) : FFP;  (*   Vorzeichen -1.0, 0.0 oder +1.0  *)

END FFPMathLibExt.