聚类外部评价指标NMI AC ARI

function [acARINMI]=evaluate2（clusterAkk）
%-----------------------------------------------------------------
%     输入：
%          cluster：原始类标签
%          Ak：聚类结果
%          k：类个数
%     输出：
%          ac：精度
%          pre：纯度
%          re：召回率
%          ARI：调整兰德指数
%------------------------------------------------------------------
n=length（cluster）;
cp=crosstab（clusterAk）;
cp（k+1:）=sum（cp）;
cp（:k+1）=sum（cp2）;
%for j=1:k
%    [ab]=size（find（A1==j））;
%    p（j）=a;
%end
%for j=1:k
%    [ab]=size（find（A2==j））;
%    c（j）=a;
%end
%-----------------------------------------------------------

cpp=cp（1:k1:k）;

% a=0;
% share_num=zeros（kk）;
% for i=1:k  %计算精度
%     a=a+max（max（cpp））;
%     [max_hangmax_lie]=find（cpp==max（max（cpp）））;
%     share_num（max_hang（1）max_lie（1））=max（max（cpp））;
%     cpp（max_hang（1）:）=-1;
%     cpp（:max_lie（1））=-1;
% end
% ac=a/n;

ac=sum（max（cpp））/n;

%--------------------