[Octave-cvsupdate] SF.net SVN: octave:[11044] trunk/octave-forge/main/control/devel/ __time_response_2__.m

[<par...@us...>]

Revision: 11044
          http://octave.svn.sourceforge.net/octave/?rev=11044&view=rev
Author:   paramaniac
Date:     2012-09-18 05:41:47 +0000 (Tue, 18 Sep 2012)
Log Message:
-----------
control: use colororder

Modified Paths:
--------------
    trunk/octave-forge/main/control/devel/__time_response_2__.m

Modified: trunk/octave-forge/main/control/devel/__time_response_2__.m
===================================================================
--- trunk/octave-forge/main/control/devel/__time_response_2__.m	2012-09-18 04:09:40 UTC (rev 11043)
+++ trunk/octave-forge/main/control/devel/__time_response_2__.m	2012-09-18 05:41:47 UTC (rev 11044)
@@ -140,14 +140,18 @@
     
     outname = get (sys_cell{end}, "outname");
     outname = __labels__ (outname, "y");
+    colororder = get (gca, "colororder");
+    rc = rows (colororder);
   
     for k = 1 : n_sys                                   # for every system
+      color = colororder(1+rem (k-1, rc), :);
+      style = {"-", "color", color};
       discrete = ! ct_idx(k);
       if (discrete)                                     # discrete-time system
         for i = 1 : p                                   # for every output
           for j = 1 : cols                              # for every input (except for initial where cols=1)
             subplot (p, cols, (i-1)*cols+j);
-            stairs (t{k}, y{k}(:, i, j));
+            stairs (t{k}, y{k}(:, i, j), style{:});
             hold on;
             grid on;
             if (k == n_sys)
@@ -166,7 +170,7 @@
         for i = 1 : p                                   # for every output
           for j = 1 : cols                              # for every input (except for initial where cols=1)
             subplot (p, cols, (i-1)*cols+j);
-            plot (t{k}, y{k}(:, i, j));
+            plot (t{k}, y{k}(:, i, j), style{:});
             hold on;
             grid on;
             if (k == n_sys)

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.