|
3430
|
1 ## Copyright (C) 1996, 1998 Auburn University. All rights reserved. |
|
|
2 ## |
|
|
3 ## This file is part of Octave. |
|
|
4 ## |
|
|
5 ## Octave is free software; you can redistribute it and/or modify it |
|
|
6 ## under the terms of the GNU General Public License as published by the |
|
|
7 ## Free Software Foundation; either version 2, or (at your option) any |
|
|
8 ## later version. |
|
|
9 ## |
|
|
10 ## Octave is distributed in the hope that it will be useful, but WITHOUT |
|
|
11 ## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
|
|
12 ## FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
|
|
13 ## for more details. |
|
|
14 ## |
|
|
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 |
|
|
17 ## Software Foundation, 59 Temple Place, Suite 330, Boston, MA 02111 USA. |
|
|
18 |
|
|
19 ## -*- texinfo -*- |
|
3500
|
20 ## @deftypefn {Function File} {} sysappend (@var{sys}, @var{b}, @var{c}, @var{d}, @var{outname}, @var{inname}, @var{yd}) |
|
3430
|
21 ## appends new inputs and/or outputs to a system |
|
|
22 ## |
|
|
23 ## @strong{Inputs} |
|
|
24 ## @table @var |
|
|
25 ## @item sys |
|
|
26 ## system data structure |
|
|
27 ## |
|
|
28 ## @item b |
|
|
29 ## matrix to be appended to sys "B" matrix (empty if none) |
|
|
30 ## |
|
|
31 ## @item c |
|
|
32 ## matrix to be appended to sys "C" matrix (empty if none) |
|
|
33 ## |
|
|
34 ## @item d |
|
|
35 ## revised sys d matrix (can be passed as [] if the revised d is all zeros) |
|
|
36 ## |
|
|
37 ## @item outname |
|
|
38 ## list of names for new outputs |
|
|
39 ## |
|
|
40 ## @item inname |
|
|
41 ## list of names for new inputs |
|
|
42 ## |
|
|
43 ## @item yd |
|
|
44 ## binary vector; @math{yd(ii)=0} indicates a continuous output; |
|
|
45 ## @math{yd(ii)=1} indicates a discrete output. |
|
|
46 ## @end table |
|
|
47 ## |
|
|
48 ## @strong{Outputs} @var{sys} |
|
|
49 ## @example |
|
|
50 ## @group |
|
|
51 ## sys.b := [sys.b , b] |
|
|
52 ## sys.c := [sys.c ] |
|
|
53 ## [ c ] |
|
|
54 ## sys.d := [sys.d | D12 ] |
|
|
55 ## [D21 | D22 ] |
|
|
56 ## @end group |
|
|
57 ## @end example |
|
|
58 ## where @var{D12}, @var{D21}, and @var{D22} are the appropriate dimensioned |
|
|
59 ## blocks of the input parameter @var{d}. |
|
|
60 ## @itemize @bullet |
|
|
61 ## @item The leading block @var{D11} of @var{d} is ignored. |
|
|
62 ## @item If @var{inname} and @var{outname} are not given as arguments, |
|
|
63 ## the new inputs and outputs are be assigned default names. |
|
|
64 ## @item @var{yd} is a binary vector of length rows(c) that indicates |
|
|
65 ## continuous/sampled outputs. Default value for @var{yd} is: |
|
|
66 ## |
|
|
67 ## @item @var{sys} = continuous or mixed |
|
|
68 ## @var{yd} = @code{zeros(1,rows(c))} |
|
|
69 ## |
|
|
70 ## @item @var{sys} = discrete |
|
|
71 ## @var{yd} = @code{ones(1,rows(c))} |
|
|
72 ## @end itemize |
|
|
73 ## @end deftypefn |
|
|
74 |
|
|
75 ## Author: John Ingram <ingraje@eng.auburn.edu> |
|
|
76 ## Created: August 1996 |
|
|
77 |
|
|
78 function retsys = sysappend (sys, b, c, d, outname, inname, yd) |
|
|
79 |
|
|
80 sav_empty_list_elements_ok = empty_list_elements_ok; |
|
|
81 |
|
|
82 empty_list_elements_ok = 1; |
|
|
83 |
|
|
84 ## check input arguments |
|
|
85 if ( (nargin < 2) | (nargin > 7) | (!is_struct(sys))) |
|
|
86 usage("retsys = sysappend(sys,b,c[,d,outname,inname,yd]) "); |
|
|
87 elseif(!is_struct(sys)) |
|
|
88 error("sys must be a system data structure"); |
|
|
89 endif |
|
|
90 |
|
|
91 ## default system type must be state space form |
|
|
92 [Aa,Ab,Ac,Ad,Ats,Ann,Anz,Ast,Ain,Aout,Ayd] = sys2ss(sys); |
|
|
93 [Ann,Anz,Am,Ap] = sysdimensions(sys); |
|
|
94 |
|
|
95 ## default c |
|
|
96 if(nargin < 3) c = []; endif |
|
|
97 |
|
|
98 ## default d |
|
|
99 if(nargin < 4) make_d = 1; |
|
|
100 elseif(isempty(d)) make_d = 1; |
|
|
101 else make_d = 0; endif |
|
|
102 if(make_d) d = zeros(rows(c)+Ap,columns(b) + Am); endif |
|
|
103 |
|
|
104 ## Append new input(s) if any |
|
|
105 Bm = max(columns(d),columns(b)+Am); |
|
|
106 if(Bm != Am) |
|
|
107 ## construct new signal names |
|
|
108 if(nargin >= 6) # new names were passed |
|
|
109 if(!isstr(inname)) |
|
|
110 error("inname must be a string"); |
|
|
111 elseif(rows(inname) != (Bm - Am)) |
|
|
112 error(sprintf("%d new inputs requested; inname(%dx%d)", ... |
|
|
113 (Bm-Am),rows(inname),columns(inname))); |
|
|
114 endif |
|
|
115 else |
|
3438
|
116 inname = __sysdefioname__(Bm,"u",(Am+1)); |
|
3430
|
117 endif |
|
|
118 if(Am) Ain = append(Ain,inname); |
|
|
119 else Ain = inname; endif |
|
|
120 |
|
|
121 ## default b matrix |
|
|
122 if(isempty(b)) b = zeros(Ann+Anz,(Bm-Am)); |
|
|
123 elseif(rows(b) != Ann+Anz | columns(b) != (Bm-Am)) |
|
|
124 error(sprintf("b(%dx%d); should be (%dx%d)", rows(b), columns(b), ... |
|
|
125 (Ann+Anz), (Bm-Am))); |
|
|
126 endif |
|
|
127 |
|
|
128 ## append new b matrix |
|
|
129 Ab = [Ab,b]; # empty_list_elements_ok=1 makes this ok |
|
|
130 endif |
|
|
131 |
|
|
132 ## Append new output(s) if any |
|
|
133 Bp = max(rows(d),rows(c)+Ap); |
|
|
134 if(Bp != Ap) |
|
|
135 |
|
|
136 ## construct new signal names, output classification |
|
|
137 if(nargin >= 5) # new names were passed |
|
|
138 if(!isstr(outname)) |
|
|
139 error("outname must be a string"); |
|
|
140 elseif(rows(outname) != (Bp - Ap)) |
|
|
141 error(sprintf("%d new outputs requested; outname(%dx%d)", ... |
|
|
142 (Bp-Ap),rows(outname),columns(outname))); |
|
|
143 endif |
|
|
144 else |
|
3438
|
145 outname = __sysdefioname__(Bp,"y",(Ap+1)); |
|
3430
|
146 endif |
|
|
147 if(Ap) Aout = append(Aout,outname); |
|
|
148 else Aout = outname; endif |
|
|
149 |
|
|
150 ## construct new yd entries |
|
|
151 if(nargin == 7) |
|
|
152 if(!is_vector(yd)) |
|
|
153 error(sprintf("yd(%dx%d) must be a vector",rows(yd),columns(yd))) |
|
|
154 elseif(rows(c) != length(yd) & rows(d) != length(yd)) |
|
|
155 error(sprintf("length(yd) = %d; c(%dx%d), d(%dx%d); mismatch", ... |
|
|
156 length(yd), rows(c), columns(c),rows(d),columns(d))); |
|
|
157 endif |
|
|
158 else |
|
|
159 ## default yd values |
|
|
160 yd = ones(1,Bp)*( (Ats > 0) & (Ann == 0) & isempty(find(Ayd == 0)) ) ; |
|
|
161 endif |
|
|
162 Ayd = [vec(Ayd);vec(yd)]; |
|
|
163 |
|
|
164 ## default c matrix |
|
|
165 if(isempty(c)) c = zeros((Bp-Ap),Ann+Anz); |
|
|
166 elseif(columns(c) != Ann+Anz | rows(c) != (Bp-Ap)) |
|
|
167 error(sprintf("c(%dx%d); should be (%dx%d)", rows(c), columns(c), ... |
|
|
168 (Bp-Ap), (Ann+Anz) )); |
|
|
169 endif |
|
|
170 |
|
|
171 ## append new c matrix |
|
|
172 Ac = [Ac;c]; # empty_list_elements_ok=1 makes this ok |
|
|
173 endif |
|
|
174 |
|
|
175 ## check d matrix |
|
|
176 if(isempty(d)) d = zeros(Bp,Bm); |
|
|
177 elseif(rows(d) != Bp | columns(d) != Bm) |
|
|
178 error(sprintf("d(%dx%d) should be (%dx%d)",rows(d), columns(d), Bp, Bp)); |
|
|
179 endif |
|
|
180 |
|
|
181 ## Splice in original D matrix |
|
|
182 if(Am & Ap) d(1:Ap, 1:Am) = Ad; endif |
|
|
183 Ad = d; |
|
|
184 |
|
|
185 ## construct return system |
|
|
186 retsys = ss2sys(Aa,Ab,Ac,Ad,Ats,Ann,Anz,Ast,Ain,Aout,find(Ayd == 1)); |
|
|
187 |
|
|
188 empty_list_elements_ok = sav_empty_list_elements_ok; |
|
|
189 |
|
|
190 endfunction |
