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

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

Revision: 7504
          http://octave.svn.sourceforge.net/octave/?rev=7504&view=rev
Author:   paramaniac
Date:     2010-08-10 16:21:27 +0000 (Tue, 10 Aug 2010)

Log Message:
-----------
control: fix even more functions because issquare doesn't return the size any more

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

Modified: trunk/octave-forge/main/control/inst/isctrb.m
===================================================================
--- trunk/octave-forge/main/control/inst/isctrb.m	2010-08-10 16:11:46 UTC (rev 7503)
+++ trunk/octave-forge/main/control/inst/isctrb.m	2010-08-10 16:21:27 UTC (rev 7504)
@@ -107,10 +107,10 @@
   endif
 
   ## check dimensions compatibility
-  n = issquare (a);
+  n = rows (a);
   [nr, nc] = size (b);
 
-  if (n == 0 || n != nr || nc == 0)
+  if (n == 0 || n != nr || nc == 0 || issquare (a))
     warning ("isctrb: a(%dx%d), b(%dx%d)",
               rows(a), columns(a), nr, nc);
     retval = 0;

Modified: trunk/octave-forge/main/control/inst/isstabilizable.m
===================================================================
--- trunk/octave-forge/main/control/inst/isstabilizable.m	2010-08-10 16:11:46 UTC (rev 7503)
+++ trunk/octave-forge/main/control/inst/isstabilizable.m	2010-08-10 16:21:27 UTC (rev 7504)
@@ -71,10 +71,10 @@
   endif
 
   ## Checking dimensions
-  n = issquare (a);
+  n = rows (a);
   [nr, m] = size (b);
 
-  if (! n)
+  if (! issquare (a))
     error ("isstabilizable: a must be square");
   endif
   


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