Mercurial > octave

annotate scripts/control/is_observable.m @ 78:0fda6e1f90e0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1993-08-30 15:40:16 by jwe]
author jwe
date Mon, 30 Aug 1993 15:40:48 +0000
parents 3cccff82b7a6
children 16a24e76d6e0
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
26
e90ea9cbd4de [project @ 1993-08-10 20:56:55 by jwe]
jwe
parents:
diff changeset
1 function retval = is_observable (a,c,tol)
e90ea9cbd4de [project @ 1993-08-10 20:56:55 by jwe]
jwe
parents:
diff changeset
2
56
3cccff82b7a6 [project @ 1993-08-11 21:49:22 by jwe]
jwe
parents: 26
diff changeset
3 # usage: is_observable (a, c {,tol})
26
e90ea9cbd4de [project @ 1993-08-10 20:56:55 by jwe]
jwe
parents:
diff changeset
4 #
56
3cccff82b7a6 [project @ 1993-08-11 21:49:22 by jwe]
jwe
parents: 26
diff changeset
5 # Returns 1 if the pair (a, c) is observable, or 0 if not.
26
e90ea9cbd4de [project @ 1993-08-10 20:56:55 by jwe]
jwe
parents:
diff changeset
6 #
56
3cccff82b7a6 [project @ 1993-08-11 21:49:22 by jwe]
jwe
parents: 26
diff changeset
7 # See also: size, rows, columns, length, is_matrix, is_scalar, is_vector.
26
e90ea9cbd4de [project @ 1993-08-10 20:56:55 by jwe]
jwe
parents:
diff changeset
8
78
0fda6e1f90e0 [project @ 1993-08-30 15:40:16 by jwe]
jwe
parents: 56
diff changeset
9 # Written by A. S. Hodel (scotte@eng.auburn.edu) August 1993.
0fda6e1f90e0 [project @ 1993-08-30 15:40:16 by jwe]
jwe
parents: 56
diff changeset
10
26
e90ea9cbd4de [project @ 1993-08-10 20:56:55 by jwe]
jwe
parents:
diff changeset
11 if (nargin == 2)
56
3cccff82b7a6 [project @ 1993-08-11 21:49:22 by jwe]
jwe
parents: 26
diff changeset
12 retval = is_controllable (a', c');
26
e90ea9cbd4de [project @ 1993-08-10 20:56:55 by jwe]
jwe
parents:
diff changeset
13 elseif (nargin == 3)
56
3cccff82b7a6 [project @ 1993-08-11 21:49:22 by jwe]
jwe
parents: 26
diff changeset
14 retval = is_controllable (a', c', tol);
26
e90ea9cbd4de [project @ 1993-08-10 20:56:55 by jwe]
jwe
parents:
diff changeset
15 else
56
3cccff82b7a6 [project @ 1993-08-11 21:49:22 by jwe]
jwe
parents: 26
diff changeset
16 error ("usage: is_observable (a, c {,tol})");
26
e90ea9cbd4de [project @ 1993-08-10 20:56:55 by jwe]
jwe
parents:
diff changeset
17 endif
e90ea9cbd4de [project @ 1993-08-10 20:56:55 by jwe]
jwe
parents:
diff changeset
18
e90ea9cbd4de [project @ 1993-08-10 20:56:55 by jwe]
jwe
parents:
diff changeset
19 endfunction