Mercurial > hg > octave-lyh

comparison scripts/control/system/sys2ss.m @ 7136:59dcf01bb3e3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-08 20:18:25 by jwe]
author jwe
date Thu, 08 Nov 2007 20:18:26 +0000
parents 1d0d7be2d0f8
children
comparison
equal deleted inserted replaced
7135:8aa770b6c5bf 7136:59dcf01bb3e3
80 80
81 if (nargin != 1) 81 if (nargin != 1)
82 print_usage (); 82 print_usage ();
83 endif 83 endif
84 84
85 if( ! isstruct(sys) ) 85 if (! isstruct (sys))
86 error("input argument must be a system data structure"); 86 error ("input argument must be a system data structure");
87 endif 87 endif
88 88
89 sys = sysupdate(sys,"ss"); # make sure state space data is there 89 sys = sysupdate (sys, "ss"); # make sure state space data is there
90 [n,nz,m,p] = sysdimensions(sys); 90 [n, nz, m, p] = sysdimensions (sys);
91 [stname,inname,outname,yd] = sysgetsignals(sys); 91 [stname, inname, outname, yd] = sysgetsignals (sys);
92 tsam = sysgettsam(sys); 92 tsam = sysgettsam (sys);
93 93
94 cont = sum(yd == 0) + n; 94 cont = sum (yd == 0) + n;
95 dig = sum(yd != 0) + nz + tsam; 95 dig = sum (yd != 0) + nz + tsam;
96 if(cont*dig) 96 if (cont*dig)
97 warning("sys2ss: input system is mixed continuous/discrete"); 97 warning ("sys2ss: input system is mixed continuous/discrete");
98 endif 98 endif
99 99
100 a = sys.a; 100 a = sys.a;
101 b = sys.b; 101 b = sys.b;
102 c = sys.c; 102 c = sys.c;