First function for optimisation Fabio Tozeto Ramos 05/10/05
0001 % First function for optimisation 0002 %Fabio Tozeto Ramos 05/10/05 0003 0004 % vectorised and modified by Abdallah Kassir 0005 function F=calibFun0(H,Pf,N) 0006 % npts = length(N); 0007 % F = zeros(1, npts); 0008 % for i=1:npts 0009 % F(i) = dot(N(:,i),H*Pf(:,i)) - norm(N(:,i))^2; 0010 % end 0011 0012 F=(dot(N,H*Pf)-sum(N.^2))./sqrt(sum(N.^2)); % normalised