home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 7.ddi / ROBUST.DI$ / CLXBODE.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  622 b   |  34 lines
  1. function [g] = clxbode(Z1,Z2,Z3,Z4,Z5,Z6);
  2. %[G] = CLXBODE(SS_,IU,W) or
  3. %[G] = CLXBODE(A,B,C,D,IU,W) produces a complex gain instead of an 
  4. %      absolute gain.
  5.  
  6. % R. Y. Chiang & M. G. Safonov 6/85
  7. % Copyright (c) 1988 by the MathWorks, Inc.
  8. % All Rights Reserved.
  9. % ----------------------------------------------------------------
  10. %
  11.  
  12. inargs = '(a,b,c,d,iu,w)';
  13. eval(mkargs(inargs,nargin,'ss'))
  14.  
  15. [rc,cc] = size(c);
  16. cs = max(size(w));
  17. %
  18. b = b(:,iu);
  19. d = d(:,iu);
  20. s = sqrt(-1) * w;
  21. g = ltifr(a,b,s);
  22. g = c * g + diag(d) * ones(rc,cs);
  23. %
  24. % ----- End of CLXBODE.M ---- RYC/MGS 6/85 %
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.