home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 9.ddi / IDENT.DI$ / GETMFTH.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  566 b   |  19 lines
  1. function mfname=getmfth(eta)
  2. %GETMFTH Gets the name of the .m-file that defines the model structure
  3. %
  4. %    MFNAME = getmfth(TH)
  5. %
  6. %    TH: The model structure defined in the THETA-format (See help theta)
  7. %    MFNAME: The name of the m-file that defines the structure
  8.  
  9. %    L. Ljung 10-2-90
  10. %    Copyright (c) 1990 by the MathWorks, Inc.
  11. %    All Rights Reserved.
  12.  
  13. if ~isthss(eta),error('This is not a state-space based model!'),end
  14. [nr,nc]=size(eta);
  15. if eta(2,8)<4, mfname='ssmodx9';return,end
  16. sspm=eta(1,8:nc);
  17. sspm=sspm(1:max(find(sspm~=0)));
  18. mfname=setstr(sspm);
  19.