Thread: [Octave-cvsupdate] SF.net SVN: octave:[11028] trunk/octave-forge/main/control/devel/ __time_respons

SourceForge Headquarters 225 Broadway Suite 1600 San Diego, CA 92101 +1 (858) 422-6466

Revision: 11028
          http://octave.svn.sourceforge.net/octave/?rev=11028&view=rev
Author:   paramaniac
Date:     2012-09-15 15:16:30 +0000 (Sat, 15 Sep 2012)
Log Message:
-----------
control: quicksave draft code

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-15 14:36:20 UTC (rev 11027)
+++ trunk/octave-forge/main/control/devel/__time_response_2__.m	2012-09-15 15:16:30 UTC (rev 11028)
@@ -35,6 +35,7 @@
   tmp = cellfun (@is_real_matrix, args);
   vec_idx = find (tmp);
   n_vec = length (vec_idx)
+  n_sys = length (sys_cell)
   
   if (n_vec >= 1)
     arg = args{vec_idx(1)};
@@ -57,8 +58,6 @@
   tmp = (@c2d, sys_cell(ct_idx), dt, {"zoh"}, "uniformoutput", false)
   sys_dt_cell(ct_idx) = tmp;
 
-
-endfunction
 %{
   if (! isa (sys, "ss"))
     sys = ss (sys);                                    # sys must be proper
@@ -99,6 +98,141 @@
   l_t = length (t);
 %}  
 
+  if (plotflag)                                        # display plot
+    switch (resptype)
+      case "initial"
+        str = "Response to Initial Conditions";
+        cols = 1;
+      case "step"
+        str = "Step Response";
+        cols = m;
+      case "impulse"
+        str = "Impulse Response";
+        cols = m;
+      otherwise
+        error ("time_response: invalid response type");
+    endswitch
+  
+    for i = 1 : n_sys
+      t = t{i};
+      y = y{i};
+      discrete = ! ct_idx(i);
+      if (discrete)                                      # discrete system
+        for k = 1 : p
+          for j = 1 : cols
+            subplot (p, cols, (k-1)*cols+j);
+            stairs (t, y(:, k, j));
+            hold on;
+            grid ("on");
+            if (i == n_sys && k == 1 && j == 1)
+              title (str);
+            endif
+            if (i == n_sys && j == 1)
+              ylabel (sprintf ("Amplitude %s", outname{k}));
+            endif
+          endfor
+        endfor
+      else                                               # continuous system
+        for k = 1 : p
+          for j = 1 : cols
+            subplot (p, cols, (k-1)*cols+j);
+            plot (t, y(:, k, j));
+            hold on;
+            grid ("on");
+            if (i == n_sys && k == 1 && j == 1)
+              title (str);
+            endif
+            if (i == n_sys && j == 1)
+              ylabel (sprintf ("Amplitude %s", outname{k}));
+            endif
+          endfor
+        endfor
+      endif
+    endfor
+    xlabel ("Time [s]");
+    hold off;
+  endif
+
+%{  
+  if (plotflag)                                        # display plot
+
+    ## TODO: Set correct titles, especially for multi-input systems
+
+    stable = isstable (sys);
+    outname = get (sys, "outname");
+    outname = __labels__ (outname, "y_");
+
+    if (strcmp (resptype, "initial"))
+      cols = 1;
+    else
+      cols = m;
+    endif
+
+    if (discrete)                                      # discrete system
+      for k = 1 : p
+        for j = 1 : cols
+
+          subplot (p, cols, (k-1)*cols+j);
+
+          if (stable)
+            stairs (t, [y(:, k, j), yfinal(k, j) * ones(l_t, 1)]);
+          else
+            stairs (t, y(:, k, j));
+          endif
+
+          grid ("on");
+
+          if (k == 1 && j == 1)
+            title (str);
+          endif
+
+          if (j == 1)
+            ylabel (sprintf ("Amplitude %s", outname{k}));
+          endif
+
+        endfor
+      endfor
+
+      xlabel ("Time [s]");
+
+    else                                               # continuous system
+      for k = 1 : p
+        for j = 1 : cols
+
+          subplot (p, cols, (k-1)*cols+j);
+
+          if (stable)
+            plot (t, [y(:, k, j), yfinal(k, j) * ones(l_t, 1)]);
+          else
+            plot (t, y(:, k, j));
+          endif
+
+          grid ("on");
+
+          if (k == 1 && j == 1)
+            title (str);
+          endif
+
+          if (j == 1)
+            ylabel (sprintf ("Amplitude %s", outname{k}));
+          endif
+
+        endfor
+      endfor
+
+      xlabel ("Time [s]");
+
+    endif 
+  endif
+
+endfunction
+%}
+
+endfunction
+
+
+
+
 function [y, x_arr] = __initial_response__ (sys, sys_dt, t, x0)
 
   [A, B, C, D] = ssdata (sys);
@@ -207,82 +341,11 @@
 
 endfunction
 
-%{  
-  if (plotflag)                                        # display plot
 
-    ## TODO: Set correct titles, especially for multi-input systems
+function 
 
-    stable = isstable (sys);
-    outname = get (sys, "outname");
-    outname = __labels__ (outname, "y_");
 
-    if (strcmp (resptype, "initial"))
-      cols = 1;
-    else
-      cols = m;
-    endif
 
-    if (discrete)                                      # discrete system
-      for k = 1 : p
-        for j = 1 : cols
-
-          subplot (p, cols, (k-1)*cols+j);
-
-          if (stable)
-            stairs (t, [y(:, k, j), yfinal(k, j) * ones(l_t, 1)]);
-          else
-            stairs (t, y(:, k, j));
-          endif
-
-          grid ("on");
-
-          if (k == 1 && j == 1)
-            title (str);
-          endif
-
-          if (j == 1)
-            ylabel (sprintf ("Amplitude %s", outname{k}));
-          endif
-
-        endfor
-      endfor
-
-      xlabel ("Time [s]");
-
-    else                                               # continuous system
-      for k = 1 : p
-        for j = 1 : cols
-
-          subplot (p, cols, (k-1)*cols+j);
-
-          if (stable)
-            plot (t, [y(:, k, j), yfinal(k, j) * ones(l_t, 1)]);
-          else
-            plot (t, y(:, k, j));
-          endif
-
-          grid ("on");
-
-          if (k == 1 && j == 1)
-            title (str);
-          endif
-
-          if (j == 1)
-            ylabel (sprintf ("Amplitude %s", outname{k}));
-          endif
-
-        endfor
-      endfor
-
-      xlabel ("Time [s]");
-
-    endif 
-  endif
-
-endfunction
-%}
-
-
 % function [tfinal, dt] = __sim_horizon__ (A, discrete, tfinal, Ts)
 function [tfinal, dt] = __sim_horizon__ (sys, tfinal, Ts)
 

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





Thread: [Octave-cvsupdate] SF.net SVN: octave:[11028] trunk/octave-forge/main/control/devel/ __time_respons

A collection of packages providing extra functionality for GNU Octave

octave-cvsupdate