clc
clear
load irisdata_train1.txt
load irisdata_test2.txt
traindata=[];
traindata=irisdata_train1(1:120,:);
cluster=[];
distance=[];
Dthr=0.8;
testdata=[];
testdist=[];
cluster(1,1:5)=traindata(1,1:5);
cluster(1,6)=0;
cluster(1,7:11)=traindata(1,1:5);
index=0;
index1=0;
mindist=0;
systemoutput=[];

for i=2:120
    ii=size(cluster,1);
    for q=1:ii
        distance(q,1)=norm(cluster(q,2:5)-traindata(i,2:5))/2;
    end
    mindist=min(distance(:,1));
    for c=1:ii
        if mindist == distance(c,1)
            break
        end
    end
    S=mindist+cluster(c,6);
    D=mindist;
    R=cluster(c,6);
    if (D>R) & (S<=2*Dthr)
        index=size(cluster(c,:),2)+1;
        cluster(c,6)=S/2;
        cluster(c,2:5)=traindata(i,2:5)*((mindist-S/2)/(mindist))+cluster(c,2:5)*((S/2)/(mindist));
       
      cluster(c,index:index+4)=traindata(i,1:5);
        
    elseif D<R
        index=size(cluster(c,:),2)+1;
        cluster(c,index:index+4)=traindata(i,1:5);
    else
        iii=ii+1;
        cluster(iii,1:5)=traindata(i,1:5);
        cluster(iii,6)=0;
        cluster(iii,7:11)=traindata(i,1:5);
    end
end 

  count=size(cluster,1);%浪琩Τ碭摸
  count1=size(cluster,2);%–