examofrbf2.m

来自「RBF神经网络应用于IRIS数据集的例子」· M 代码 · 共 40 行

Samples=FEATURES;
SamNum=150;
InDim=4;
ClusterNum=3;
ClusterFlag=zeros(1,SamNum);
RandomNum=round(rand(1,ClusterNum)*SamNum);
Centers=Samples(:,RandomNum);

NumberInClusters=zeros(ClusterNum,1);
IndexInClusters=zeros(ClusterNum,SamNum);

while 1
    NumberInClusters=zeros(ClusterNum,1);
    IndexInClusters=zeros(ClusterNum,SamNum);
   
    OldCenters=Centers;
    for i=1:SamNum
        AllDistance=dist(Centers',Samples(:,i));
        [MinDist,Pos]=min(AllDistance);
        NumberInClusters(Pos)=NumberInClusters(Pos)+1;
        IndexInClusters(Pos,NumberInClusters(Pos))=i;
    end
    
    for i=1:ClusterNum
        Index=IndexInClusters(i,1:NumberInClusters(i));
        Centers(:,i)=mean(Samples(:,Index)')';
    end
    
   
    if Centers==OldCenters
        break
    end
end

display(Centers);
display(NumberInClusters);