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