HistogramsExtras.Mesa
Copyright Ó 1985, 1992 by Xerox Corporation. All rights reserved.
Last tweaked by Mike Spreitzer on March 4, 1989 6:07:30 pm PST
DIRECTORY Histograms, Real;
HistogramsExtras: CEDAR DEFINITIONS = {OPEN Histograms;
fullRealRange1: RealRange1 ~ [-Real.LargestNumber, Real.LargestNumber];
fullRealRange2: RealRange2 ~ ALL[fullRealRange1];
Enumerate: PROC [h: Histogram, range: RealRange2 ¬ fullRealRange2, Consume: PROC [x, y: REAL, n: CARD] RETURNS [BOOL--TRUE to stop--]] RETURNS [found: BOOL, x, y: REAL];
Project:
PROC [h: Histogram, cx, cy:
REAL]
RETURNS [Histogram];
Given a two-dimensional histogram of <x, y> pairs, returns a one-dimensional histogram of <cx*x, cy*y> pairs.
}.