Mercurial > hg > octave-lyh

diff scripts/control/is_controllable.m @ 3240:2e74d8aa1a20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1999-04-07 18:33:23 by jwe]
author jwe
date Wed, 07 Apr 1999 18:34:20 +0000 (1999-04-07)
parents 98e15955107e
children 6dd06d525de6
line wrap: on
line diff
--- a/scripts/control/is_controllable.m
+++ b/scripts/control/is_controllable.m
@@ -83,14 +83,7 @@
   else
     # call block-krylov subspace routine to get an orthogonal basis
     # of the controllable subspace.
-    if(nc == 1)
-      [U,H,Ucols] = krylov(a,b,n,tol,1);
-      U = U(:,1:Ucols);
-    else
-      [U,Ucols] = krylovb(a,b,n,tol);
-      U = U(:,1:Ucols);
-    endif
-
+    [U,H,Ucols] = krylov(a,b,n,tol,1);
     retval = (Ucols == n);
   endif
 endfunction