Mercurial > hg > octave-jordi

comparison scripts/control/system/sysmin.m @ 3439:3234a698073a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2000-01-14 09:51:14 by jwe]
author jwe
date Fri, 14 Jan 2000 09:52:35 +0000
parents 65b3519ac3a1
children b8105302cfe8
comparison
equal deleted inserted replaced
3438:2e06c3941943 3439:3234a698073a
14 ## 14 ##
15 ## You should have received a copy of the GNU General Public License 15 ## You should have received a copy of the GNU General Public License
16 ## along with Octave; see the file COPYING. If not, write to the Free 16 ## along with Octave; see the file COPYING. If not, write to the Free
17 ## Software Foundation, 59 Temple Place, Suite 330, Boston, MA 02111 USA. 17 ## Software Foundation, 59 Temple Place, Suite 330, Boston, MA 02111 USA.
18 18
19 ## [retsys,nc,no] = sysmin(sys{,flg}); 19 ## -*- texinfo -*-
20 ## @deftypefn {Function File} {[@var{retsys}, @var{nc}, @var{no}] =} sysmin (@var{sys}, @var{flg})
20 ## return a minimal (or reduced order) system 21 ## return a minimal (or reduced order) system
21 ## inputs: 22 ## inputs:
22 ## sys: system data structure 23 ## sys: system data structure
23 ## flg: 0 [default] return minimal system; state names lost 24 ## flg: 0 [default] return minimal system; state names lost
24 ## : 1 return system with physical states removed that 25 ## : 1 return system with physical states removed that
29 ## retsys: returned system 30 ## retsys: returned system
30 ## nc: number of controllable states in the returned system 31 ## nc: number of controllable states in the returned system
31 ## no: number of observable states in the returned system 32 ## no: number of observable states in the returned system
32 ## cflg: is_controllable(retsys) 33 ## cflg: is_controllable(retsys)
33 ## oflg: is_observable(retsys) 34 ## oflg: is_observable(retsys)
35 ## @end deftypefn
34 36
35 ## Author: A. S. Hodel <a.s.hodel@eng.auburn.edu> 37 ## Author: A. S. Hodel <a.s.hodel@eng.auburn.edu>
36 38
37 function [retsys, nc, no, cflg, oflg] = sysmin (sys, flg); 39 function [retsys, nc, no, cflg, oflg] = sysmin (sys, flg)
38 40
39 switch(nargin) 41 switch(nargin)
40 case(1), flg = 0; 42 case(1), flg = 0;
41 case(2), jnk = flg; # dummy operation 43 case(2), jnk = flg; # dummy operation
42 otherwise, 44 otherwise,