clear allclose allclcload('\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)