Mercurial > hg > octave-lyh

diff scripts/control/base/__stepimp__.m @ 4789:ac4441e16ffa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-02-19 16:16:34 by jwe]
author jwe
date Thu, 19 Feb 2004 16:16:34 +0000
parents b8105302cfe8
children bdbee5282954
line wrap: on
line diff
--- a/scripts/control/base/__stepimp__.m
+++ b/scripts/control/base/__stepimp__.m
@@ -223,7 +223,6 @@
       gset nologscale
       gset autoscale
       gset nokey
-      clearplot();
       if (IMPULSE)
 	gm = zeros(NOUT, 1);
 	tt = "impulse";
@@ -234,6 +233,9 @@
       endif
       ncols = floor(sqrt(NOUT));
       nrows = ceil(NOUT / ncols);
+      if (ncols > 1 || nrows > 1)
+	clearplot();
+      endif
       for i = 1:NOUT
 	subplot(nrows, ncols, i);
 	title(sprintf("%s: | %s -> %s", tt,sysgetsignals(sys,"in",inp,1), ...