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;

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