home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 2.ddi / MUTOOLS2.DI$ / HINFFI_C.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  558 b   |  29 lines
  1. %
  2. % function [k] = hinffi_c(p,ncon,f,r12)
  3. %
  4. % Form the controller given the xinf solution, f and r12.
  5. %
  6. function [k] = hinffi_c(p,ncon,f,r12)
  7. [a,bp,cp,dp,b1,b2,c1,d11,d12,ndata] = hinffi_p(p,ncon);
  8. np1 = ndata(1);
  9. np2 = ndata(2);
  10. nm1 = ndata(3);
  11. nm2 = ndata(4);
  12. np = max(size(a));
  13. %
  14. % form the submatrices f11,f12,f2 and h11,h12,h2
  15. %
  16. f1=f(1:nm1,:);
  17. f2=f((nm1+1):(nm1+nm2),:);
  18. %
  19. % create t2 = d12'*d11
  20. %
  21. t2 = d12'*d11;
  22. %
  23. %  form controller k
  24. %
  25.  k = [ (t2*f1+f2) -t2];
  26.  k = r12*k;
  27. %
  28. % Copyright MUSYN INC 1991,  All Rights Reserved
  29.