rosen.m

来自「一个很好用的摄像机标定程序」· M 代码 · 共 24 行

% Rosenbrock function 
% ------------------- 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% function [fvec,J]=rosen(n,m,x,option)
% Problem no. 1
% Dimensions -> n=2, m=2              
% Standard starting point -> x=(1,1)  
% Minima -> f=0 at (1,1)              
%                                     
% Revised on 10/22/94 by Madhu Lamba  
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

function [fvec,J] = rosen(n,m,x,option)  
if (option==1 | option==3)
        fvec = [  10*(x(2)-x(1)^2)
                  1-x(1)  ] ; 
end;        
if (option==2 | option==3)
        J    = [  -20*x(1)  10
                  -1        0  ] ; 

end;
%