algorithmepam.m

来自「matlab programming for clustering pam , 」· M 代码 · 共 35 行

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)