%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%函數名稱：C_CSO（）
%參數：m_pattern:樣品特征庫；patternNum:樣品數目
%返回值：m_pattern:樣品特征庫
%函數功能：按照貓群聚類法對全體樣品進行分類
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
function[m_pattern]=C_CSO（m_patternpatternNum）
disType=DisSelDlg（）;??????????????%獲得距離計算類型
[centerNum?iterNum]=InputClassDlg（）;???????%獲得類中心數和最大迭代次數
CatNum=200;???????????????????????%初始化貓數目
SMP=5;????????????????????????????%記憶池大小
CDC=1;????????????????????????????%每個樣品特征值的變化概率
SRD=0.2;??????????????????????????%每個樣品的變化值范圍
%初始化中心和速度
global?Nwidth;
for?i=1:centerNum
????m_center（i）.feature=zeros（NwidthNwidth）;
????m_center（i）.patternNum=0;
????m_center（i）.index=i;
????m_velocity（i）.feature=zeros（NwidthNwidth）;
end
%初始化貓
for?i=1:CatNum
????cat（i）.location=m_center;??????????%貓各中心
????cat（i）.velocity=m_velocity;???????%毛各中心速度
????cat（i）.fitness=0;?????????????????%適應度
????cat（i）.flag=0;??????%個體貓所屬的行為模式標志：flag=0時為搜尋模式，flag=1時為跟蹤模式
end
C_gd.location=m_center;???????????%全局貓最優中心
C_gd.velocity=m_velocity??????????%全局貓最優速度
C_gd.fitness=0;???????????????????%貓全局最優適應度
C_gd.string=zeros（1patternNum）;???
for?i=1:CatNum????????????????????%生成隨機貓分布矩陣
???ptDiterb（i:）=ceil（rand（1patternNum）*centerNum）;
end
%生成初始貓群
for?i=1:CatNum
????for?j=1:patternNum
????????m_pattern（j）.category=ptDitrib（ij）;
????end
????for?j=1:centerNum
????????m_center（j）=CalCenter（m_center（j）m_patternpatternNum）;
????end
????Cat（i）.location=m_center;
end
%初始化參數
R=2;?????????????????%跟蹤模式位移方程系數
for?iter=1:iterNum
????for?i=1:CatNum
????????Cat（i）.flag=0;
????end
????index=randperm（CatNum）;
????for?i=1:CatNum*0.02
????????Cat（index（i））.flag=1;???%隨機從種群中選擇2%個貓執行跟蹤模式，其他為搜尋模式
????end
end
????%更新貓速度、位置
????for?i=1:CatNum
????????if?Cat（i）.flag==1;??????%跟蹤行為
????????????for?j=1:centerNum
????????????????Cat（i）.velocity（j）.feature=Cat（i）.velocity（j）.feature+R*rand（NwidthNwidth）.*（C_gd.location（j）.feature-Cat（i）.location（j）.feature）;
????????????????Cat（i）.location（j）.feature=Cat（i）.location（j）.feature+Cat（i）.velocity（j）.feature;
????????????end
????????????%最近零聚類
????????????for?j=1:patternNum
????????????????min=inf;
????????????????for?k=1:centerNum
????????????????????tempDis=GetDistance（m_pattern（j）Cat（i）.location（k）disType）;
????????????????????if（tenmDis????????????????????????min=tempDis;
????????????????????????m_pattern（j）.category=k;
????????????????????????ptDitrib（ij）=k;
????????????????????end
????????????????end
????????????????%重新計算聚類中心
????????????????for?k=1:centerNum
????????????????????Cat（i）.location（k）=CalCenter（Cat（i）.location（k）m_patternNum）;
????????????????end
????????????end
????????????%計算貓適應度
????????????temp=0;
????????????for?j=1:patternNum
????????????????temp=temp+GetDistance（m_pattern（j）Gat（i）.location（ptDituib（ij））disType）;
????????????end
????????????if（temp==0）??????%最優解，直接退出
????????????????iter=iterNum+1;
????????????????break;
????????????end
????????????Cat（i）.fitness=1

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件???????5609??2013-07-09?12:17??Cat.m

-----------?---------??----------?-----??----

?????????????????5609????????????????????1