algorithmepam.m

matlab programming for clustering pam , k-means , dbscan , optics for image segmentation

function [clusters,idmedoids] =AlgorithmePAM(image,NombreClusters,EvaluationIndiceSilouhette)


tic %Debut du timer
[lignes,colonnes]=size(image);
pixels=[];

for i=1:lignes
    for j=1:colonnes
        pixels=[pixels;image(i,j)];
    end;
end;

if (nargin>2)
  res=pam(pixels,NombreClusters,[4],0,'eucli',1);
else
  res=pam(pixels,NombreClusters,[4]);
end;

VecteurObjets=res.ncluv;

k=1;
for i=1 :lignes
for j=1 : colonnes
imageResultat(i,j)=VecteurObjets(1,k);
k=k+1;
end;
end;

clusters=imageResultat;
idmedoids=res.idmed;

DureeTraitements=toc % Donner la dur閑 du traitement

imagesc (clusters); figure(gcf)