1 ## Copyright (C) 2009, 2010 Lukas F. Reichlin
3 ## This file is part of LTI Syncope.
5 ## LTI Syncope is free software: you can redistribute it and/or modify
6 ## it under the terms of the GNU General Public License as published by
7 ## the Free Software Foundation, either version 3 of the License, or
8 ## (at your option) any later version.
10 ## LTI Syncope is distributed in the hope that it will be useful,
11 ## but WITHOUT ANY WARRANTY; without even the implied warranty of
12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 ## GNU General Public License for more details.
15 ## You should have received a copy of the GNU General Public License
16 ## along with LTI Syncope. If not, see <http://www.gnu.org/licenses/>.
19 ## Submodel extraction and reordering for SS objects.
20 ## This file is part of the Model Abstraction Layer.
21 ## For internal use only.
23 ## Author: Lukas Reichlin <lukas.reichlin@gmail.com>
24 ## Created: September 2009
27 function sys = __sys_prune__ (sys, out_idx, in_idx, st_idx = ":")
29 sys.lti = __lti_prune__ (sys.lti, out_idx, in_idx);
31 sys.a = sys.a(st_idx, st_idx);
32 sys.b = sys.b(st_idx, in_idx);
33 sys.c = sys.c(out_idx, st_idx);
34 sys.d = sys.d(out_idx, in_idx);
36 if (! isempty (sys.e))
37 sys.e = sys.e(st_idx, st_idx);
40 sys.stname = sys.stname(st_idx);