[Octave-cvsupdate] SF.net SVN: octave:[6181] trunk/octave-forge/main/control/inst/feedback.m

[<sla...@us...>]

Revision: 6181
          http://octave.svn.sourceforge.net/octave/?rev=6181&view=rev
Author:   slackydeb
Date:     2009-08-31 11:27:33 +0000 (Mon, 31 Aug 2009)

Log Message:
-----------
feedback: remove unuseful for loops.

Modified Paths:
--------------
    trunk/octave-forge/main/control/inst/feedback.m

Modified: trunk/octave-forge/main/control/inst/feedback.m
===================================================================
--- trunk/octave-forge/main/control/inst/feedback.m	2009-08-31 11:21:47 UTC (rev 6180)
+++ trunk/octave-forge/main/control/inst/feedback.m	2009-08-31 11:27:33 UTC (rev 6181)
@@ -60,7 +60,7 @@
 
 ## Author: Lukas Reichlin
 ## Rewritten from scratch for better compatibility in July 2009
-## Version: 0.2.4
+## Version: 0.2.5
 
 function sys = feedback (_sys1, _sys2, _sign_or_feedin, _feedout, sign = -1)
 
@@ -224,14 +224,8 @@
   ## Sequence of feedin already mapped to duplicated inputs
   ## ---> (n_in_1 + n_in_2 + k)
 
-  for k = 1 : l_feedin
-    out_idx(k) = n_out_1 + k;
-  endfor
-
-  for k = 1 : l_feedin
-    in_dup_idx(k) = n_in_1 + n_in_2 + k;
-  endfor
-
+  out_idx = n_out_1 + (1 : l_feedin);
+  in_dup_idx = n_in_1 + n_in_2 + (1 : l_feedin);
   sys = sysconnect (sys, out_idx, in_dup_idx);
 
 


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