Mercurial > hg > octave-nkf

diff scripts/control/is_detectable.m @ 3228:dbcc24961c44

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1998-12-09 18:42:12 by jwe]
author jwe
date Wed, 09 Dec 1998 18:42:13 +0000
parents ba1c7cdc6090
children 28aba52a2368
line wrap: on
line diff
--- a/scripts/control/is_detectable.m
+++ b/scripts/control/is_detectable.m
@@ -31,8 +31,7 @@
 
 # Written by A. S. Hodel (scotte@eng.auburn.edu) August 1993.
 # Updated by John Ingram (ingraje@eng.auburn.edu) July 1996.
-# SYS_INTERNAL accesses members of system structure
-# $Revision: 1.1.1.1 $ 
+# $Revision: 2.0.0.0 $ 
 
   if( nargin < 1) 
     usage("[retval,U] = is_detectable(a , c {, tol})");
@@ -43,9 +42,7 @@
     elseif(nargin > 2)
       usage("[retval,U] = is_detectable(sys {, tol})");
     endif
-    a = sysupdate(a,"ss");
-    c = a.c;
-    a = a.a;
+    [a,b,c] = sys2ss(a);
   elseif(nargin > 3)
     usage("[retval,U] = is_detectable(a , c {, tol})");
   endif