@database MathLibFFP
@node Main "MathLibFFP"

Prozeduren

   @{" arctan " link Modul 9}                      @{" cos " link Modul 8}                         @{" exp " link Modul 10}
   @{" ln " link Modul 11}                          @{" sin " link Modul 7}                         @{" sqrt " link Modul 12}


Konstanten

   @{" e " link Modul 4}                           @{" pi " link Modul 5}                       

@endnode
@node Modul "TMP:Modula-2/MathLibFFP.def"
DEFINITION MODULE MathLibFFP{"mathtrans.library",33};

FROM SYSTEM IMPORT FFP;

CONST	e	= 2.7182818284;
	pi	= 3.1415926536;

PROCEDURE sin	(x{0}: FFP): FFP; CODE -36;
PROCEDURE cos	(x{0}: FFP): FFP; CODE -42;
PROCEDURE arctan(x{0}: FFP): FFP; CODE -30;
PROCEDURE exp	(x{0}: FFP): FFP; CODE -78;
PROCEDURE ln	(x{0}: FFP): FFP; CODE -84;
PROCEDURE sqrt	(x{0}: FFP): FFP; CODE -96;

END MathLibFFP.

@endnode