function Y=fuzzycm(I,level);
% Fuzzy C-means renk kuantalayici
% I, RGB renkli bir goruntu
% level, goruntuyu ifade etmek istediginiz renk sayisi
% Y, kuantalanmis uint8 goruntu
%
% Yazan  : Seyhan AGAOGLU   
% seyhan_eng@yahoo.com
% SAKARYA UNIVERISTESI

I=double(I);

R = I(:,:,1);
G = I(:,:,2);
B = I(:,:,3);

m = size(I,1);
n = size(I,2);
num = 1;

for i=1:m
    for j=1:n
        DR(num)=R(i,j);
        DG(num)=G(i,j);
        DB(num)=B(i,j);
        num = num + 1;
    end
end

Data = [DR', DG', DB'];
[center,U,obj_fcn] = fcm(Data,level);

U = U';
indice=m*n;

x=1;
y=1;

for i=1:indice
    f = find ( U(i,:)==max(U(i,:)) );
    Y(x,y,1) = center (f,1);
    Y(x,y,2) = center (f,2);
    Y(x,y,3) = center (f,3);
   
    y = y + 1;
   
    if y == n+1
        x = x + 1;
        y = 1;
    end
end

Y=uint8(Y);

% end of function