Mercurial > octave-nkf

comparison scripts/control/system/sysscale.m @ 4771:b8105302cfe8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-02-16 17:45:50 by jwe]
author jwe
date Mon, 16 Feb 2004 17:45:50 +0000
parents 22bd65326ec1
children bdbee5282954
comparison
equal deleted inserted replaced
4770:ef5e598f099b 4771:b8105302cfe8
90 90
91 ## check for SISO system type 91 ## check for SISO system type
92 if strcmp(sysgettype(sys),"tf") 92 if strcmp(sysgettype(sys),"tf")
93 [num,den,tsam,innam,outnam] = sys2tf(sys); 93 [num,den,tsam,innam,outnam] = sys2tf(sys);
94 num = num*inscale*outscale; 94 num = num*inscale*outscale;
95 sys = tf2sys(num,den,tsam,innam,outnam,find(sysyd)); 95 sys = tf(num,den,tsam,innam,outnam,find(sysyd));
96 return 96 return
97 elseif strcmp(sysgettype(sys),"zp") 97 elseif strcmp(sysgettype(sys),"zp")
98 [zer,pol,kk,tsam,innam,outnam] = sys2zp(sys); 98 [zer,pol,kk,tsam,innam,outnam] = sys2zp(sys);
99 kk = kk*inscale*outscale; 99 kk = kk*inscale*outscale;
100 sys = zp2sys(zer,pol,k,tsam,innam,outnam,find(sysyd)); 100 sys = zp(zer,pol,k,tsam,innam,outnam,find(sysyd));
101 return 101 return
102 endif 102 endif
103 103
104 ## it's a state space system... 104 ## it's a state space system...
105 105
131 endif 131 endif
132 else 132 else
133 inname = sysgetsignals(sys,"in"); 133 inname = sysgetsignals(sys,"in");
134 endif 134 endif
135 135
136 sys = ss2sys(sysa,sysb,sysc,sysd,systsam,nn,nz,sysstname, ... 136 sys = ss(sysa,sysb,sysc,sysd,systsam,nn,nz,sysstname, ...
137 inname,outname,find(sysyd==1)); 137 inname,outname,find(sysyd==1));
138 138
139 endfunction 139 endfunction