home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 7.ddi / ROBUST.DI$ / AUGACT.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  730 b   |  20 lines
  1. %
  2. %  Augment the plant via AUGMENT.M
  3.  
  4. % R. Y. Chiang & M. G. Safonov 3/88
  5. % Copyright (c) 1988 by the MathWorks, Inc.
  6. % All Rights Reserved.
  7.  
  8. disp(' ')
  9. disp(' ')
  10. disp('                << Plant Augmentation >>')
  11. Gam = input('           Input cost coefficient "Gam" = ');
  12. [aw1,bw1,cw1,dw1] = tf2ss(Gam*dnw1i,nuw1i); sysw1 = [aw1 bw1;cw1 dw1];
  13. [aw3,bw3,cw3,dw3] = tf2ss(dnw3i,nuw3i);     sysw3 = [aw3,bw3;cw3 dw3];
  14. sysw2 = []; sysg = [ag bg;cg dg]; dim = [3 2 0 1];
  15. [A,B1,B2,C1,C2,D11,D12,D21,D22] = augment(sysg,sysw1,sysw2,sysw3,dim);
  16. disp('  ')
  17. disp('     - - - State-Space (A,B1,B2,C1,C2,D11,D12,D21,D22) is ready for')
  18. disp('           the Small-Gain problem - - -')
  19. %
  20. % -------- End of AUGACT.M --- RYC/MGS %