home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fish 'n' More 2
/
fishmore-publicdomainlibraryvol.ii1991xetec.iso
/
fish
/
programming
/
moduladefs
/
mathlib0.def
< prev
next >
Wrap
Text File
|
1990-12-17
|
518b
|
21 lines
(****************************************
* Name : MathLib0.DEF *
* purpose : math functions for use *
* with modula-2 SIN COS TAN *
* Author : JSG *
****************************************)
DEFINITION MODULE MathLib0;
PROCEDURE SQRT(x:REAL) : REAL;
PROCEDURE SIN(x:REAL;VAR neg: BOOLEAN) : REAL; (* x : radiens *)
PROCEDURE COS(x:REAL;VAR neg: BOOLEAN) : REAL; (* x : radiens *)
PROCEDURE TAN(x:REAL) : REAL; (* x : radiens *)
END MathLib0.