<> <> <> <> <> RealFns: CEDAR DEFINITIONS = BEGIN Exp: PROC [REAL] RETURNS [REAL]; <> <> <<>> Log: PROC [base, arg: REAL] RETURNS [REAL]; <> <> <<>> Ln: PROC [REAL] RETURNS [REAL]; <> <<>> SqRt: PROC [REAL] RETURNS [REAL]; <> <<>> Root: PROC [index, arg: REAL] RETURNS [REAL]; <> <<>> Power: PROC [base, exponent: REAL] RETURNS [REAL]; <> <<>> Sin: PROC [radians: REAL] RETURNS [sin: REAL]; SinDeg: PROC [degrees: REAL] RETURNS [sin: REAL]; Cos: PROC [radians: REAL] RETURNS [cos: REAL]; CosDeg: PROC [degrees: REAL] RETURNS [cos: REAL]; Tan: PROC [radians: REAL] RETURNS [tan: REAL]; TanDeg: PROC [degrees: REAL] RETURNS [tan: REAL]; <> <> <<>> ArcTan: PROC [y, x: REAL] RETURNS [radians: REAL]; ArcTanDeg: PROC [y, x: REAL] RETURNS [degrees: REAL]; <> <<>> AlmostZero: PROC [x: REAL, distance: [-126..127]] RETURNS [BOOL]; <> <<>> AlmostEqual: PROC [y, x: REAL, distance: [-126..0]] RETURNS [BOOL]; <> <<>> END.