rosex.m

一个很好用的摄像机标定程序

% Extended Rosenbrock function 
% ---------------------------- 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% function [fvec,J]=rosex(n,m,x,option)
% Dimensions -> n=variable but even, m=n 
% Problem no. 21            
% Standard starting point -> x=(s(j)) where 
%                            s(2*j-1)=-1.2, 
%                            s(2*j)=1 
% Minima -> f=0 at (1,.....,1)              
%                                     
% 11/21/94 by Madhu Lamba  
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

function [fvec,J] = rosex(n,m,x,option)  

J=zeros(m,n);

for i=1:m/2

   if (option==1 | option==3)
        fvec(2*i-1)=10*(x(2*i)-x(2*i-1)^2);
        fvec(2*i)=1-x(2*i-1);
   end;        

   if (option==2 | option==3)
        J(2*i-1,2*i-1) = -20*x(2*i-1);
        J(2*i-1,2*i)   = 10; 
        J(2*i,2*i-1)   = -1;
   end;

end;

if (option==1 | option==3)
	fvec=fvec';
end;

 
%