home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 4.ddi / OPTIM.DI$ / OPTINT.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  426 b   |  17 lines
  1. function [xold,fold,invhess,para]=optint(xnew,fnew,para)
  2. %OPTINT Function to initialize FMINU routine.
  3.  
  4. %    Copyright (c) 1990 by the MathWorks, Inc.
  5. %    Andy Grace 7-9-90.
  6. lenx=length(xnew);
  7. invhess=eye(lenx);  
  8. xold=xnew;
  9. fold=fnew;
  10. para=foptions(para);
  11. if para(14)==0, para(14)=lenx*100;end 
  12. if para(1)>1, para, end
  13. if para(1)>0,
  14.     disp('')
  15.     disp('f-COUNT   FUNCTION    STEP-SIZE      GRAD/SD  LINE-SEARCH')
  16. end
  17.