home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 9.ddi / IDENT.DI$ / MKTHETA.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  346 b   |  15 lines
  1. function th=mktheta(a,b,c,d,f,LAM,T)
  2. %MKTHETA synonomous to POLY2TH
  3.  
  4. %    L. Ljung 10-1-86
  5. %    Copyright (c) 1986-90 by the MathWorks, Inc.
  6. %    All Rights Reserved.
  7.  
  8. [nu,nb1]=size(b); nu=nu(1);
  9. if nargin<7, T=1;end
  10. if nargin<6, LAM=1;end
  11. if nargin<5, f=ones(nu,1);end
  12. if nargin<4, d=1;end
  13. if nargin<3, c=1;end
  14. th=poly2th(a,b,c,d,f,LAM,T);
  15.