<> <> <> <> DIRECTORY IO, Histograms, LinearSystem; HistogramsOut: CEDAR DEFINITIONS = {OPEN Histograms; Stats1D: PROC [h: Histogram] RETURNS [sum0: INT, sum1, sum2, avg, stdDev: REAL, range: RealRange1]; < pairs, each saying that there are n counts in the bin centered on x.>> <> <> <> <> <> <> <> <range.max { sum0=0>> Stats2D: PROC [h: Histogram, degree: NATURAL, log: BoolPair] RETURNS [sums: Sums2D, range: RealRange2]; < or their natural logarithms.>> Sums2D: TYPE ~ RECORD [ degree: NATURAL _ 0, exception: BOOL _ FALSE, ]; <> RowN: TYPE ~ LinearSystem.RowN; ColumnN: TYPE ~ LinearSystem.ColumnN; MatrixN: TYPE ~ LinearSystem.MatrixN; Analyze: PROC [sums: Sums2D] RETURNS [ak: ColumnN _ NIL, <> EvalError: PROC [sums: Sums2D, ak: ColumnN] RETURNS [ WriteTo: PROC [h: Histogram, to: IO.STREAM, create, data: BOOL]; <> }.