From bfd9498a000a0286b5c381915cc2258ac1eb866e Mon Sep 17 00:00:00 2001
From: Panayotis Skordos <edu/mit/csail/zurich/pas>
Date: Fri, 20 Nov 1987 16:39:02 +0000
Subject: [PATCH] Array-Make-Histogram was using (n-1) bins when asked for
 n-bin histogram. Fixed.

---
 v7/src/microcode/array.c | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/v7/src/microcode/array.c b/v7/src/microcode/array.c
index 9afe1af77..e2bb378ea 100644
--- a/v7/src/microcode/array.c
+++ b/v7/src/microcode/array.c
@@ -30,7 +30,7 @@ Technology nor of any adaptation thereof in any advertising,
 promotional, or sales literature without prior written consent from
 MIT in each case. */
 
-/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/array.c,v 9.23 1987/10/24 09:42:18 pas Rel $ */
+/* $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/array.c,v 9.24 1987/11/20 16:39:02 pas Exp $ */
 
 /* CONTAINS:                                                         */
 /* Scheme_Array constructors, and selectors                          */
@@ -598,11 +598,11 @@ void C_Array_Make_Histogram(Array, Length, Histogram, npoints)
   long i, nmin,nmax, index;
   C_Array_Find_Min_Max(Array, Length, &nmin,&nmax);
   Min=Array[nmin]; Max=Array[nmax];
-  Find_Offset_Scale_For_Linear_Map(Min,Max, 0.0, ((REAL) (npoints-1)), &Offset, &Scale);
-  for (i=0;i<npoints;i++) {
-    Histogram[i] = 0.0; }
+  Find_Offset_Scale_For_Linear_Map(Min,Max, 0.0, ((REAL) npoints), &Offset, &Scale);
+  for (i=0;i<npoints;i++) Histogram[i] = 0.0;
   for (i=0;i<Length;i++) {
     index = (long) (floor((double) ((Scale*Array[i]) + Offset)));
+    /* Everything from 0 to 1 maps to bin 0, and so on */
     Histogram[index] += 1.0; }
 }
 
-- 
2.25.1