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

% calculo das distancias entre os centros dos pilares estimados
%----------------------------------------------------------
function [combinacoes, coord_circ]=DISTANCIAS_DOSCENTROS(coord_circ)

    dist_pilares=0;
    clear combinacoes
    coord_circ(find(coord_circ(:,3)==0),:)=[];
    coord_circ;
    if length(coord_circ(:,1)) >= 2
        i11=1:length(coord_circ(:,1));
        combinacoes=combntns(i11,2);
        for i12=1:length(combinacoes(:,1))
            dist_pilares(i12)=sqrt( (coord_circ(combinacoes(i12,1),1)-coord_circ(combinacoes(i12,2),1))^2 + (coord_circ(combinacoes(i12,1),2)-coord_circ(combinacoes(i12,2),2))^2 ) ;   
            if (dist_pilares(i12) < 5500 && dist_pilares(i12) > 5300) || (dist_pilares(i12) > 3500 && dist_pilares(i12) < 3700)
                combinacoes(i12,4)=1;
            else
                combinacoes(i12,4)=0;
            end
        end
    else
        dist_pilares=0;
    end
    combinacoes(:,3)=dist_pilares';
    clear dist_pilares
    %----------------------------------------------------------------