home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 4.ddi / OPTIM.DI$ / TOPTIMG.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  865 b   |  34 lines
  1. function [gf, gg] = toptimg(X, coeff1, coeff2, coeff3)
  2. %TOPTIMG Test function gradients for optimization test-suite (TOPTIM).
  3. if coeff1==1 % Unconstrained
  4.     gf= [-400*(X(2)-X(1)^2)*X(1)-2*(1-X(1)), 200*(X(2)-X(1)^2)];
  5. elseif coeff1 ==2 % Constrained
  6.     gf=[-X(2)*X(3), -X(1)*X(3), -X(1)*X(2)];
  7.     gg = [-1, 1
  8.         -2, 2
  9.         -2, 2];
  10.     %    F(1)=-X(1)*X(2)*X(3);               
  11.     %    G(1)=-X(1)-2*X(2)-2*X(3);
  12.     %    G(2)=X(1)+2*X(2)+2*X(3)-72;  
  13. elseif coeff1 ==3 % Goal attainment 
  14.     'no gradient '
  15.     %F=sort(eig(A+B*X*C));
  16. elseif coeff1 == 4 % Minimax
  17.     gf=[4*X(1)-48  -1 1 -1 1
  18.     2*X(2)-40 -3 3 -1 1];
  19.     gg=[];
  20.     %    F(1)=2*X(1)^2+X(2)^2-48*X(1)-40*X(2)+304; 
  21.     %    F(2)=-X(1)-3*X(2);
  22.       %    F(3)=-18+X(1)+3*X(2);
  23.      %    F(4)=-X(1)-X(2);
  24.      %    F(5)=-8+X(1)+X(2);
  25. elseif coeff1 ==5 % Leastsq
  26.     for i=1:10 
  27.         gf(1,i)=-i*exp(i*X(1));
  28.         gf(2,i)=-i*exp(i*X(2));
  29.     end
  30. end
  31.  
  32.  
  33.     
  34.