Mercurial > hg > octave-nkf

comparison scripts/control/system/is_observable.m @ 6046:34f96dd5441b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-10-10 16:10:25 by jwe]
author jwe
date Tue, 10 Oct 2006 16:10:31 +0000
parents 2618a0750ae6
children 93c65f2a5668
comparison
equal deleted inserted replaced
6045:421d8a903df7 6046:34f96dd5441b
37 ## Updated by John Ingram (ingraje@eng.auburn.edu) July 1996. 37 ## Updated by John Ingram (ingraje@eng.auburn.edu) July 1996.
38 38
39 function [retval, U] = is_observable (a, c, tol) 39 function [retval, U] = is_observable (a, c, tol)
40 40
41 if( nargin < 1) 41 if( nargin < 1)
42 usage("[retval,U] = is_observable(a , c {, tol})"); 42 print_usage ();
43 elseif(isstruct(a)) 43 elseif(isstruct(a))
44 ## system form 44 ## system form
45 if(nargin == 2) 45 if(nargin == 2)
46 tol = c; 46 tol = c;
47 elseif(nargin > 2) 47 elseif(nargin > 2)
48 usage("[retval,U] = is_observable(sys {, tol})"); 48 print_usage ();
49 endif 49 endif
50 [a,b,c] = sys2ss(a); 50 [a,b,c] = sys2ss(a);
51 elseif(nargin > 3) 51 elseif(nargin > 3)
52 usage("[retval,U] = is_observable(a , c {, tol})"); 52 print_usage ();
53 endif 53 endif
54 if(exist("tol")) 54 if(exist("tol"))
55 [retval,U] = is_controllable (a', c', tol); 55 [retval,U] = is_controllable (a', c', tol);
56 else 56 else
57 [retval,U] = is_controllable (a', c'); 57 [retval,U] = is_controllable (a', c');