Mercurial > hg > octave-nkf

comparison scripts/control/system/sysdup.m @ 4030:22bd65326ec1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-08-09 18:58:13 by jwe]
author jwe
date Fri, 09 Aug 2002 19:00:16 +0000
parents b5238ac1dca9
children b8105302cfe8
comparison
equal deleted inserted replaced
4029:2cc57b6169cf 4030:22bd65326ec1
59 59
60 if( nargin != 3) 60 if( nargin != 3)
61 usage("retsys = sysdup(Asys,output_list,input_list)"); 61 usage("retsys = sysdup(Asys,output_list,input_list)");
62 endif 62 endif
63 63
64 if( !is_struct(Asys)) 64 if( !isstruct(Asys))
65 error("Asys must be a system data structure (see ss2sys, tf2sys, or zp2sys)") 65 error("Asys must be a system data structure (see ss2sys, tf2sys, or zp2sys)")
66 endif 66 endif
67 67
68 Asys = sysupdate(Asys,"ss"); 68 Asys = sysupdate(Asys,"ss");
69 [nn,nz,mm,pp] = sysdimensions(Asys); 69 [nn,nz,mm,pp] = sysdimensions(Asys);
76 if(is_signal_list(output_list) | isstr(output_list)) 76 if(is_signal_list(output_list) | isstr(output_list))
77 output_list = sysidx(Asys,"out",output_list); 77 output_list = sysidx(Asys,"out",output_list);
78 endif 78 endif
79 79
80 ## first duplicate inputs 80 ## first duplicate inputs
81 if(is_vector(input_list)) 81 if(isvector(input_list))
82 for ii=1:length(input_list); 82 for ii=1:length(input_list);
83 bb(:,mm+ii) = bb(:,input_list(ii)); 83 bb(:,mm+ii) = bb(:,input_list(ii));
84 dd(:,mm+ii) = dd(:,input_list(ii)); 84 dd(:,mm+ii) = dd(:,input_list(ii));
85 end 85 end
86 elseif(!isempty(input_list)) 86 elseif(!isempty(input_list))