hist.m: Test for equal bin spacing using a numeric tolerance (bug #66…

…753) * hist.m: Compare spacing of bins and assume equality if difference is less than "eps (max (x))" (numeric tolerance that scales with size of input).
gnu-octave · Feb 5, 2025 · 662edeb · 662edeb
1 parent f486c0a
commit 662edeb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/scripts/plot/draw/hist.m b/scripts/plot/draw/hist.m
@@ -167,7 +167,7 @@
       equal_bin_spacing = ! isempty (strfind (typeinfo (x), "range"));
       if (! equal_bin_spacing)
         diffs = diff (x);
-        if (all (diffs == diffs(1)))
+        if (! any ((diffs - diffs(1)) > eps (max (x))))
           equal_bin_spacing = true;
         endif
       endif