home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 7.ddi / ROBUST.DI$ / SSINV.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  563 b   |  24 lines
  1. function [ai,bi,ci,di] = ssinv(Z1,Z2,Z3,Z4)
  2. % [SS_I] = SSINV(SS_) or
  3. % [AI,BI,CI,DI] = SSINV(A,B,C,D) computes the inverse system
  4. %                       -1
  5. %         GI(s) = [G(s)]
  6. %                                        -1         -1      -1           -1
  7. % using the state-space formulae AI=A-B D  C, BI=B D  , CI=D  C, and DI=D  .
  8.  
  9.  
  10. inargs = '(a,b,c,d)';
  11. eval(mkargs(inargs,nargin,'ss'))
  12.  
  13. %
  14. di = inv(d);
  15. ai = a - b*di*c;
  16. bi = b*di;
  17. ci = -di*c;
  18.  
  19. if xsflag
  20.    ai = mksys(ai,bi,ci,di);
  21. end
  22. %
  23. % ---------------- End of SSINV.M -- RYC/MGS %
  24.