Mercurial > hg > octave-lyh

changeset 418:c18892d88a17

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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))