function [U,center,result,w,obj_fcn]= fenlei(data)
[data_n,in_n] = size(data)
m= 2 ％ Exponent for U
max_iter = 100 ％ Max. iteration
min_impro =1e-5 ％ Min. improvement
c=3
[center, U, obj_fcn] = fcm(data, c)
for i=1:max_iter
if F(U)>0.98
break
else
w_new=eye(in_n,in_n)
center1=sum(center)/c
a=center1(1)./center1
deta=center-center1(ones(c,1),:)
w=sqrt(sum(deta.^2)).*a
for j=1:in_n
w_new(j,j)=w(j)
end
data1=data*w_new
[center, U, obj_fcn] = fcm(data1, c)
center=center./w(ones(c,1),:)
obj_fcn=obj_fcn/sum(w.^2)
end
end
display(i)
result=zeros(1,data_n) U_=max(U)
for i=1:data_n
for j=1:c
if U(j,i)==U_(i)
result(i)=j continue
end
end
end
function [U,V,num_it]=fcm(U0,X)
％ MATLAB (Version 4.1) Source Code (Routine fcm was written by Richard J.
％ Hathaway on June 21, 1994.) The fuzzification constant
％ m = 2, and the stopping criterion for successive partitions is epsilon =??????.
％*******Modified 9/15/04 to have epsilon = 0.00001 and fix univariate bug********
％ Purpose:The function fcm attempts to find a useful clustering of the
％ objects represented by the object data in X using the initial partition in U0.
g a w k或GNU awk是由Alfred V. A h o，Peter J.We i n b e rg e r和Brian W. K e r n i g h a n于1 9 7 7年為U N I X創(chuàng)建的a w k編程語言的較新版本之一。a w k出自創(chuàng)建者姓的首字母。a w k語言（在其所有的版本中）是一種具有很強(qiáng)能力的模式匹配和過程語言。a w k獲取一個文件（或多個文件）來查找匹配特定模式的記錄。當(dāng)查到匹配后，即執(zhí)行所指定的動作。作為一個程序員，你不必操心通過文件打開、循環(huán)讀每個記錄，控制文件的結(jié)束，或執(zhí)行完后關(guān)閉文件。
The matlab code implements the ensemble of decision tree classifiers proposed in: "L. Nanni and A. Lumini, Input Decimated Ensemble based on Neighborhood Preserving Embedding for spectrogram classification, Expert Systems With Applications doi:10.1016/j.eswa.2009.02.072 "
