Mercurial > octave-nkf

comparison scripts/control/system/sysscale.m @ 5957:370f785718be

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2006-08-23 14:09:39 by jwe]
author jwe
date Wed, 23 Aug 2006 14:09:40 +0000
parents 4c8a2e4e0717
children 34f96dd5441b
comparison
equal deleted inserted replaced
5956:cdef72fcd206 5957:370f785718be
102 102
103 ## check for SISO system type 103 ## check for SISO system type
104 if strcmp(sysgettype(sys),"tf") 104 if strcmp(sysgettype(sys),"tf")
105 [num,den,tsam,innam,outnam] = sys2tf(sys); 105 [num,den,tsam,innam,outnam] = sys2tf(sys);
106 num = num*inscale*outscale; 106 num = num*inscale*outscale;
107 sys = tf(num,den,tsam,innam,outnam,find(sysyd)); 107 sys = tf(num,den,tsam,innam,outnam);
108 return 108 return
109 elseif strcmp(sysgettype(sys),"zp") 109 elseif strcmp(sysgettype(sys),"zp")
110 [zer,pol,kk,tsam,innam,outnam] = sys2zp(sys); 110 [zer,pol,kk,tsam,innam,outnam] = sys2zp(sys);
111 kk = kk*inscale*outscale; 111 kk = kk*inscale*outscale;
112 sys = zp(zer,pol,k,tsam,innam,outnam,find(sysyd)); 112 sys = zp(zer,pol,k,tsam,innam,outnam);
113 return 113 return
114 endif 114 endif
115 115
116 ## it's a state space system... 116 ## it's a state space system...
117 117