Mercurial > hg > octave-nkf
diff scripts/control/is_observable.m @ 26:e90ea9cbd4de
[project @ 1993-08-10 20:56:55 by jwe]
Initial revision
| author | jwe |
|---|---|
| date | Tue, 10 Aug 1993 20:56:55 +0000 |
| parents | |
| children | 3cccff82b7a6 |
line wrap: on
line diff
new file mode 100644 --- /dev/null +++ b/scripts/control/is_observable.m @@ -0,0 +1,18 @@ +function retval = is_observable (a,c,tol) + +# usage: is_observable (a,c{,tol}) +# +# returns 1 the pair(a,c) is observable, then return value is the +# dimension of x. 0therwise, returns a value of 0 +# +# See also: size, rows, columns, length, is_matrix, is_scalar, is_vector + + if (nargin == 2) + retval = is_controllable(a',c'); + elseif (nargin == 3) + retval = iscontrollable(a',c',tol); + else + error ("usage: is_observable (a,c{,tol})"); + endif + +endfunction