home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 7.ddi / ROBUST.DI$ / SERSHBL.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  768 b   |  26 lines
  1. function [a,b,c,d,hsv] = sershbl(Z1,Z2,Z3,Z4,Z5,Z6,Z7,Z8,Z9)
  2. % [SS_,HSV] = SERSHBL(SS_1,SS_2,SERAUG) or
  3. % [A,B,C,D,BND] = SERSHBL(A1,B1,C1,D1,A2,B2,C2,D2,seraug) produces a 
  4. %     minimal realization of two state space in series via real
  5. %     Schur Balanced model reduction.
  6. %
  7.  
  8. % R. Y. Chiang & M. G. Safonov 8/87
  9. % Copyright (c) 1988 by the MathWorks, Inc.
  10. % All Rights Reserved.
  11. % ----------------------------------------------------------------
  12. %
  13.  
  14. inargs = '(a1,b1,c1,d1,a2,b2,c2,d2,seraug)';
  15. eval(mkargs(inargs,nargin,'ss,ss'))
  16.  
  17. [aa,bb,cc,dd] = series(a1,b1,c1,d1,a2,b2,c2,d2);
  18. [a,b,c,d,bnd,hsv] = schmr(aa,bb,cc,dd,seraug(1,1),seraug(1,2));
  19.  
  20. if xsflag
  21.    a = mksys(a,b,c,d);
  22.    b = hsv;
  23. end
  24. %
  25. % ----- End of SERSHBL.M --- RYC/MGS 8/87 %
  26.