home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 2.ddi / MUTOOLS2.DI$ / HINFFI_P.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  631 b   |  28 lines
  1. %
  2. %   split up the H-infinity matrices for FULL INFORMATION case.
  3. %
  4. function [ap,bp,cp,dp,b1,b2,c1,d11,d12,ndata] = hinffi_p(p,ncon)
  5. %
  6. [pptype,nr,nc,np] = minfo(p);
  7. if pptype ~= 'syst'
  8.   error('matrix is not a system matrix')
  9. end
  10. npout = nr;
  11. npin  = nc;
  12. np1 = npout;
  13. np2 = 0;
  14. nm1 = npin-ncon;
  15. nm2 = ncon;
  16. ndata = [np1 np2 nm1 nm2];
  17. [ap,bp,cp,dp] = unpck(p);
  18. % dum = sqrt(norm(bp,'inf')/norm(cp,'inf'));
  19. % bp = bp/dum;
  20. % cp = cp*dum;
  21. b1 = bp(:,[1:nm1]);
  22. b2 = bp(:,[(nm1+1):npin]);
  23. c1 = cp([1:np1],:);
  24. d11 = dp(1:np1,1:nm1);
  25. d12 = dp(1:np1,(nm1+1):npin);
  26. %
  27. % Copyright MUSYN INC 1991,  All Rights Reserved
  28.