最新的聚类算法.txt

层次模糊聚类的算法实现

int i; 
int j; 
int k; 
int n; 
int m; 
int p; 
double tt[101]; 
int clas[101]; 


for(i=1;i<=t-1;i++) 
{ 
clas[i]=i; 

for (j=1;j<=100;j++) 
{ 
a[i][j]=999.00; 

} 


} 





for(i=1;i<=t-1;i++) 
{ 

tt[1]=0; 

for (j=1;j<=t-1;j++) 
{ 
if(i!=j) 
{ 
for(k=1;k<=6;k++) 
{ 


tt[j]=tt[j]+(sav[k][i]-sav[k][j])*(sav[k][i]-sav[k][j]);//求出当前对象和其它对像属性的差方的总和 

} 

} 


for (n=1;n<=t-1;n++) 
{ 
if (a[i][n]>=sqrt(tt[n])) 
{ 
a[i][n]=sqrt(tt[n]);//求出当前对像和其它对像差总和中最小的一个，并返回对该对像的下坐标，－＞FL. 



} 
} 
} 
} 



for(m=1;m<=t-1;m++) 
{ 
for (p=1;p<=t-1;p++) 
{ 
if(m!=p)//利用FL，加上随机制来进行对各个对像进行类划分. 
{ 
          double pp; 
           srand((UINT)GetCurrentTime()); 
           pp=rand()/(RAND_MAX+0.00); 
           if (pp<=1/(a[m][p]+1)) 
   { 
          clas[m]=clas[p]; 
   } 
           
} 
} 
         

     
} 

for(m=1;m<=t-1;m++) 
{ 

char sss[221]; 

    sprintf(sss,"%d",clas[m]);//显示分类结果 
         
    CAdssaDlg::MessageBox(sss,NULL,MB_OK); 


   
}