tmpf_findresuberroriris1.m

来自「模糊C均值聚类的一个参考材料,做模糊聚类是用的一个程序」· M 代码 · 共 47 行

function ResubE = Tmpf_FindResubErrorIris1 (U)
%ResubE = Tmpf_FindResubErrorIris1 (U)
% 
%   Finds resubstitution erros on the IRIS data
%
%   Mahdi Amiri, June 21, 2003
%   http://yashil.20m.com/

maxU = max(U);

% Iris-setosa : Xin (1:50, :)
% Iris-versicolor : Xin (51:100, :)
% Iris-virginica : Xin (101:150, :)

ResubE = 0;

for c = 1:3
    cIndexes = Yf_FindEqIndexes1 (U(c, :), maxU, 1e-15);

    if size(cIndexes,2) == 0
        ResubE = ResubE + 50;
        continue;
    end
        
    m = mean(cIndexes);
    
    if m <= 50
        a = find ( cIndexes > 50);
        ResubE = ResubE + size (a, 2);
    end
    
    if (m > 50 & m <=100)
        a = find ( cIndexes < 51);
        ResubE = ResubE + size (a, 2);

        a = find ( cIndexes > 100);
        ResubE = ResubE + size (a, 2);
    end
    
    if m > 100
        a = find ( cIndexes < 101);
        ResubE = ResubE + size (a, 2);
    end
    
end