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

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

Revision: 10782
          http://octave.svn.sourceforge.net/octave/?rev=10782&view=rev
Author:   paramaniac
Date:     2012-07-29 12:09:22 +0000 (Sun, 29 Jul 2012)
Log Message:
-----------
control: improve argument checks

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

Modified: trunk/octave-forge/main/control/inst/@lti/feedback.m
===================================================================
--- trunk/octave-forge/main/control/inst/@lti/feedback.m	2012-07-28 22:00:12 UTC (rev 10781)
+++ trunk/octave-forge/main/control/inst/@lti/feedback.m	2012-07-29 12:09:22 UTC (rev 10782)
@@ -110,6 +110,14 @@
 
   endswitch
 
+  if (! is_real_vector (feedin) || ! isequal (feedin, abs (fix (feedin))))
+    error ("feedback: require 'feedin' to be a vector of integers");
+  endif
+
+  if (! is_real_vector (feedout) || ! isequal (feedout, abs (fix (feedout))))
+    error ("feedback: require 'feedout' to be a vector of integers");
+  endif
+
   [p2, m2] = size (sys2);
 
   l_feedin = length (feedin);

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