home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 7.ddi / ROBUST.DI$ / LINF.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  1.4 KB  |  56 lines
  1. %
  2. % ----------------------------------------------------------------
  3. %       L-inf optimization for Multivariable Feedback Systems
  4. %
  5. %       LINF (MATLAB) Ver. 2.0 -- R. Y. Chiang & M. G. Safonov
  6. % ----------------------------------------------------------------
  7. % LINF solves the infinity-norm control problem via the Youla 
  8. %      parameterization and optimal Hankel approximation.
  9. %
  10. %      Input data: augmented plant
  11. %                 (A,B1,B2,C1,C2,D11,D12,D21,D22) (Note: in upper case !!)
  12. %
  13. %      Output data: controller F(s) := (acp,bcp,ccp,dcp)
  14. %                   CLTF Ty1u1 := (acl,bcl,ccl,dcl)
  15. %
  16.  
  17. % R. Y. Chiang & M. G. Safonov 6/86
  18. % Copyright (c) 1988 by the MathWorks, Inc.
  19. % All Rights Reserved.
  20. % ------------------------------------------------------------------------
  21. helplinf
  22. disp('  ')
  23. disp('(strike a key to start LINF computation (if the input data are ready..)')
  24. pause
  25. clc
  26. disp('  ')
  27. disp('  ')
  28. disp('     << LINF Optimal Control Synthesis via Descriptor Hankel MDA >>');
  29. %
  30. flagcase1 = exist('b1');
  31. flagcase2 = exist('B1');
  32. if (flagcase1 > 0) & (flagcase2 < 1)
  33.  error('   THIS SCRIPT FILE REQUIRES THE INPUT VARIABLE NAMES IN UPPER CASE !!!')
  34. end
  35. %
  36. youla
  37. %
  38. if case == 1
  39.    hkl1
  40. end
  41. %
  42. if case == 2
  43.    hkl2
  44. end
  45. %
  46. if case == 3
  47.    hkl3
  48. end
  49. %
  50. if case == 4
  51.    hkl4
  52. end
  53. syscp = [acp bcp;ccp dcp]; xcp = size(acp)*[1;0];
  54. syscl = [acl bcl;ccl dcl]; xcl = size(xcl)*[1;0];
  55. % 
  56. % ------ End of LINF.M --- % RYC/MGS %