Mercurial > hg > octave-nkf
diff scripts/plot/__go_draw_axes__.m @ 6512:747ba2dc157e
[project @ 2007-04-10 20:38:57 by jwe]
author | jwe |
---|---|
date | Tue, 10 Apr 2007 20:38:57 +0000 |
parents | cbae86745c5b |
children | 2a04f026ef54 |
line wrap: on
line diff
--- a/scripts/plot/__go_draw_axes__.m +++ b/scripts/plot/__go_draw_axes__.m @@ -707,9 +707,10 @@ endif warning ("axis: omitting negative data in log plot"); endif - if (min_val == max_val) - min_val = 0.9 * min_val; - max_val = 1.1 * max_val; + ## FIXME -- maybe this test should also be relative? + if (abs (min_val - max_val) < sqrt (eps)) + min_val *= 0.9; + max_val *= 1.1; endif min_val = 10 ^ floor (log10 (min_val)); max_val = 10 ^ ceil (log10 (max_val)); @@ -717,9 +718,10 @@ if (min_val == 0 && max_val == 0) min_val = -1; max_val = 1; - elseif (min_val == max_val) - min_val = 0.9 * min_val; - max_val = 1.1 * max_val; + ## FIXME -- maybe this test should also be relative? + elseif (abs (min_val - max_val) < sqrt (eps)) + min_val -= 0.1 * abs (min_val); + max_val += 0.1 * abs (max_val); endif ## FIXME -- to do a better job, we should consider the tic spacing. scale = 10 ^ floor (log10 (max_val - min_val) - 1);