home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 9.ddi / IDENT.DI$ / GETARGTH.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  480 b   |  18 lines
  1. function [arg,rarg,carg]=getargth(eta)
  2. %GETARGTH    Gets the auxiliary argument for a state-space model
  3. %        structure
  4. %
  5. %    ARG = getargth(TH)
  6. %    
  7. %    TH: The model structure in the THETA-format (See help theta)
  8. %    ARG: The auxiliary argument
  9.  
  10. %    L. Ljung 10-2-90
  11. %    Copyright (c) 1990 by the MathWorks, Inc.
  12. %    All Rights Reserved.
  13.  
  14.  
  15. if ~isthss(eta),error('This is not a state-space based model!'),end
  16. nd=eta(1,5);rarg=eta(1,6);carg=eta(1,7);
  17. arg=eta(4+nd:3+nd+rarg,1:carg);
  18.