home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 7.ddi / ROBUST.DI$ / ASYS2SS.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  656 b   |  19 lines
  1. function [A,B1,B2,C1,C2,D11,D12,D21,D22] = asys2ss(sysp,dimp);
  2. %
  3. % [A,B1,B2,C1,C2,D11,D12,D21,D22] = ASYS2SS(SYSP,DIMP) converts
  4. %    an augmented state-space quadruple to regular state-space
  5. %    matrices.
  6. % 
  7. x1 = dimp(1,1); x2 = dimp(1,2); x3 = dimp(1,3); 
  8. x4 = dimp(1,4); x5 = dimp(1,5);
  9. A = sysp(1:x1,1:x1);
  10. B1 = sysp(1:x1,x1+1:x1+x2);
  11. B2 = sysp(1:x1,x1+x2+1:x1+x2+x3);
  12. C1 = sysp(x1+1:x1+x4,1:x1);
  13. C2 = sysp(x1+x4+1:x1+x4+x5,1:x1);
  14. D11 = sysp(x1+1:x1+x4,x1+1:x1+x2);
  15. D12 = sysp(x1+1:x1+x4,x1+x2+1:x1+x2+x3);
  16. D21 = sysp(x1+x4+1:x1+x4+x5,x1+1:x1+x2);
  17. D22 = sysp(x1+x4+1:x1+x4+x5,x1+x2+1:x1+x2+x3);
  18. %
  19. % ------- End of ASYS2SS.M % RYC/MGS