From: <par...@us...> - 2009-08-31 12:40:06
|
Revision: 6187 http://octave.svn.sourceforge.net/octave/?rev=6187&view=rev Author: paramaniac Date: 2009-08-31 12:40:00 +0000 (Mon, 31 Aug 2009) Log Message: ----------- feedback: simplified complicated expression 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 12:05:09 UTC (rev 6186) +++ trunk/octave-forge/main/control/inst/feedback.m 2009-08-31 12:40:00 UTC (rev 6187) @@ -60,7 +60,7 @@ ## Author: Lukas Reichlin ## Rewritten from scratch for better compatibility in July 2009 -## Version: 0.2.6 +## Version: 0.2.7 function sys = feedback (_sys1, _sys2, _sign_or_feedin, _feedout, sign = -1) @@ -191,8 +191,8 @@ ## Scale inputs - in_scl(1, 1 : (n_in_1 + n_in_2 + l_feedin)) = \ - [(ones (1, n_in_1 + n_in_2)), (sign * ones (1, l_feedin))]; + in_scl = horzcat (ones (1, n_in_1 + n_in_2), sign * ones (1, l_feedin)); + sys = sysscale (sys, [], diag (in_scl)); This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |