diff scripts/control/base/obsv.m @ 7126:4a375de63f66

[project @ 2007-11-08 03:44:14 by jwe]
author jwe
date Thu, 08 Nov 2007 03:44:15 +0000
parents a1dbe9d80eee
children
line wrap: on
line diff
--- a/scripts/control/base/obsv.m
+++ b/scripts/control/base/obsv.m
@@ -54,19 +54,19 @@
   if (nargin == 2)
     a = sys;
   elseif (nargin == 1 && isstruct(sys))
-    sysupdate(sys,"ss");
-    [a,b,c] = sys2ss(sys);
+    sysupdate (sys, "ss");
+    [a, b, c] = sys2ss (sys);
   else
     print_usage ();
   endif
 
-  if (!is_abcd(a,c'))
+  if (! is_abcd (a, c'))
     Qb = [];
   else
     ## no need to check dimensions, we trust is_abcd().
-    [na, ma] = size(a);
-    [nc, mc] = size(c);
-    Qb = zeros(na*nc, ma);
+    [na, ma] = size (a);
+    [nc, mc] = size (c);
+    Qb = zeros (na*nc, ma);
     for i = 1:na
       Qb((i-1)*nc+1:i*nc, :) = c;
       c = c * a;