package MATHS is
	MATH_ERROR, MISSING_FUNCTION:exception;
	function SQRT( X:FLOAT ) return FLOAT;--X>=0. SQRT(X)*SQRT(X)=X.
	function LOG(BASE:FLOAT; X:FLOAT) return FLOAT;--default base 10
	function LOG(X:FLOAT) return FLOAT;--default base 10
	function LN(X:FLOAT)return FLOAT;--LOG(BASE=>e, X)
	function LG(X:FLOAT)return FLOAT;--LOG(BASE=>2.0,X)
	function EXP(X:FLOAT)return FLOAT;--e**X
 
	type RADIANS is new FLOAT;
	function COS(X:RADIANS)return FLOAT;--cosine of X in radians
	function SIN(X:RADIANS)return FLOAT;--sine of X in radians
	
	type DEGREES is new FLOAT;
	function "+"(X:DEGREES)return RADIANS;--convert degrees to radians
	function "+"(X:RADIANS)return DEGREES;--convert radians to degrees 
 
	PI:constant:=3.14159_26535_89793_23846;
		--circumference of circle / diameter;
	PI2:constant:=2.0*PI;
		-- number of radians in 360 degrees
	E:constant:=2.71828_18284_59045_23536;
		--Euler's base for Natural logarithms
 
end MATHS;