Mercurial > hg > octave-avbm
changeset 418:c18892d88a17
[project @ 1994-05-23 03:12:56 by jwe]
author | jwe |
---|---|
date | Mon, 23 May 1994 03:12:56 +0000 |
parents | 7479f36341f9 |
children | b61c335c45c5 |
files | scripts/plot/__plt__.m |
diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/scripts/plot/__plt__.m +++ b/scripts/plot/__plt__.m @@ -1,4 +1,4 @@ -# Copyright (C) 1993 John W. Eaton +# Copyright (C) 1993, 1994 John W. Eaton # # This file is part of Octave. # @@ -27,7 +27,7 @@ nc = tmp; endif x1_i = imag (x1); - if (x1_i) + if (any (x1_i)) x2 = x1_i; x1 = real (x1); else @@ -37,10 +37,10 @@ endif if (nargin <= 2) - if (imag (x1)) + if (any (imag (x1))) x1 = real (x1); endif - if (imag (x2)) + if (any (imag (x2))) x2 = real (x2); endif if (is_scalar (x1))