SAMI/MissingNodes_SrcCode2014/CalcAttributesAffinity_S3.m

function [attAffinity] = CalcAttributesAffinity_S3(data, attData, last_known_node, addMissingAtt, threshold)
    n = size(attData,1);
    numAtt = size(attData,2);
    
    if addMissingAtt> 0 && last_known_node < n
        attData = AddMissingNodesAttrFromNeighborsNeighbors(data, attData, last_known_node, addMissingAtt);
    end
    
    count = sum(attData,2);
    nnz_n = nnz(count);
    LogMsg(sprintf('attAffinity count  (%d, %.3f) - nnz=%d, %7.5f%%',numAtt,threshold,nnz_n, 100*nnz_n/n));
%    fprintf('calculating attribtes affinity matrix - common start\n');
    common = sparse(attData*attData');
    [r,c] = find(common);
    nnz_n=size(r,1);%x=nnz(attAffinity);
    perc_nnz = nnz_n/(n*n);
    LogMsg(sprintf('attAffinity common (%d, %.3f) - nnz=%d, %7.5f%%',numAtt,threshold,nnz_n,100*perc_nnz));
    % Sigal 22.3.13 - TODO use sparse if x < 40%
    if perc_nnz>0.4
        LogMsg(sprintf('*** WARNING: attAffinity - use sparse for more than 40%% full matrix (n=%d,p=%.3f)',n,perc_nnz));
    end
    
%     attAffinity = sparse(n,n);
%     for i=1:nnz_n
%         val = common(r(i),c(i));
%         total = count(r(i))+count(c(i))-val;
% %         if (c(i)<31 && r(i)<31) 
% %             fprintf('(i,j)=(%d,%d): common=%f, total=%f\n',full(r(i))-1,full(c(i))-1,full(val),full(total));
% %         end
%         if total > 0 && val/total > threshold
%            attAffinity(r(i),c(i)) = val/total;
%         end
%     end
% 
%     nnz_n = nnz(attAffinity);
%     LogMsg(sprintf('attAffinity totalM (%d, %.3f) - nnz=%d, %7.5f%%',numAtt,threshold,nnz_n,100*nnz_n/(n*n)));
    
    attAffinity = AttributesSimilarity(common,count,threshold);
    nnz_n = nnz(attAffinity);
    LogMsg(sprintf('attAffinity totalC (%d, %.3f) - nnz=%d, %7.5f%%',numAtt,threshold,nnz_n,100*nnz_n/(n*n)));
    
%     diff = attAffinityC-attAffinity;
%     nnz_n = nnz(diff);
%     LogMsg(sprintf('attAffinity diff  (%d, %.3f) - nnz=%d, %7.5f%%',numAtt,threshold,nnz_n,100*nnz_n/(n*n)));
    
end %function