home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 7.ddi / ROBUST.DI$ / SYS2SS.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  555 b   |  21 lines
  1. function [a,b,c,d] = sys2ss(sys,x)
  2. %
  3. % [A,B,C,D] = SYS2SS(SYS,X) peels off the state-space from the 
  4. %    system matrix quadriple:
  5. %
  6. %             sys = |A  B|,         x : no. of states
  7. %                   |C  D| 
  8. %
  9.  
  10. % R. Y. Chiang & M. G. Safonov 2/88
  11. % Copyright (c) 1988 by the MathWorks, Inc.
  12. % All Rights Reserved.
  13. % ----------------------------------------------------------------
  14. %
  15. [rs,cs] = size(sys);
  16. a = sys(1:x,1:x);
  17. b = sys(1:x,x+1:cs);
  18. c = sys(x+1:rs,1:x);
  19. d = sys(x+1:rs,x+1:cs);
  20. %
  21. % ------ End of SYS2SS.M --- RYC/MGS %