Mercurial > hg > octave-nkf

diff scripts/control/system/is_observable.m @ 7136:59dcf01bb3e3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-08 20:18:25 by jwe]
author jwe
date Thu, 08 Nov 2007 20:18:26 +0000
parents a1dbe9d80eee
children
line wrap: on
line diff
--- a/scripts/control/system/is_observable.m
+++ b/scripts/control/system/is_observable.m
@@ -38,23 +38,23 @@
 
 function [retval, U] = is_observable (a, c, tol)
 
-  if( nargin < 1)
+  if (nargin < 1)
     print_usage ();
-  elseif(isstruct(a))
+  elseif (isstruct (a))
     ## system form
-    if(nargin == 2)
+    if (nargin == 2)
       tol = c;
-    elseif(nargin > 2)
+    elseif (nargin > 2)
       print_usage ();
     endif
-    [a,b,c] = sys2ss(a);
-  elseif(nargin > 3)
+    [a, b, c] = sys2ss (a);
+  elseif (nargin > 3)
     print_usage ();
   endif
-  if(exist("tol"))
-    [retval,U] = is_controllable (a', c', tol);
+  if (exist ("tol"))
+    [retval, U] = is_controllable (a', c', tol);
   else
-    [retval,U] = is_controllable (a', c');
+    [retval, U] = is_controllable (a', c');
   endif
 
 endfunction