%-----------------------------------------------------------
% Carlos Cabral 2003 - Dep.UA

%coeficiente de avaliaçao da qualidade do resultado final (pseudo-coeficiente de correlaçao)
%----------------------------------------------------------
function [c,cond]=PSEUDOCOEFCORR(pontos,c,i6,cond)

erro = sqrt( (c(1)-pontos(1,:)).^2+(c(2)-pontos(2,:)).^2 ) - c(3); % erro=distancia ao centro-raio da circunferencia

erro_med=mean(abs(erro));
cond(i6,4)=erro_med;
if erro_med > 8  
  c=[0 0 0];
  cond(i6,:)=zeros(1,length(cond(1,:)));
  disp('Nao considerado triagem erro medio > 10')     
end