mainisodata.m

isodata et kmeans algorithm developped for image segmentation

clear all
close all
clc
load('\dades.mat')
ON=15;  %Umbral del n鷐ero de elementos para la eliminaci髇 de un agrupamiento. 
OC=10;  %Umbral de distancia para la uni髇 de agrupamientos.
OS=7;  %Umbral de desviaci髇 t韕ica para la divisi髇 de un agrupamiento.
k=8;   %N鷐ero (m醲imo) de agrupamientos.
L=2;   %M醲imo n鷐ero de agrupamientos que pueden mezclarse en una sola iteraci髇.
I=10;  %M醲imo n鷐ero de iteraciones permitidas.
NO=1;  %Parametro extra para responder automaticamente que no a la peticion de cambial algun parametro.
min=50; %Minima distancia que un punto debe de estar de cada centro. Si no deseas eliminar ningun punto
        % dale un valor elevado.
%%%%%%%%%%%%%%%%%%%%%
%  Funcion ISODATA  %
%%%%%%%%%%%%%%%%%%%%%
[centro, clustering]=isodata('az.gif', k, L, I, ON, OC, OS, NO, min);


 
 

  %  colr(1)=0;
   %     colr(2)=20;
    %        colr(3)=100;
    %            colr(4)=200;
     %               colr(5)=255;


%for i=1:k
  %  for j=1:m
  %      for k=1:n
  %          if cluster(j,k)== i
   %             cluster(j,k)=colr(i);
   %         end;
   %     end;
   % end;
%end;
imagesc(clustering)