?? mycluster.m
字號:
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 聚類分析主函數(shù)
function [result,m_pattern]=mycluster(filename,patternNum,d)
clc
global m_pattern;
m_pattern=pattern(filename,patternNum,d);
m_center=struct('feature','','patternNum','','index','');
gwin=figure('Menubar','none','Name','聚類分析','NumberTitle','off','position',[0,0,450,250]);
%定義一級菜單:未知聚類法
hfile=uimenu(gwin,'Label','未知類別聚類分析');
s='m_pattern=C_ZuiLinJin(m_pattern,patternNum)'
% 定義一級菜單下的二級菜單項(xiàng):最臨近距離法
hfile1=uimenu(hfile,'Label','最臨近距離法','callBack','eval(s)');
% 定義一級菜單下的二級菜單項(xiàng):最大最小距離法
hfile2=uimenu(hfile,'Label','最大最小距離法','callBack','m_pattern=C_ZuiDaZuiJuLi(m_pattern,patternNum)')
% 定義一級菜單:層次聚類法
cfile=uimenu(gwin,'Label','層次聚類法');
% 定義一級菜單下的二級菜單:最短距離法
cfile1=uimenu(cfile,'Label','最短距離法','callBack','[m_pattern]=C_ZuiDuanJuLi(m_pattern,patternNum)')
% 定義一級菜單下的二級菜單:最長距離法
cfile1=uimenu(cfile,'Label','最長距離法','callBack','[m_pattern]=C_ZuiChangJuLi(m_pattern,patternNum)')
% 定義一級菜單下的二級菜單:中間距離法
cfile1=uimenu(cfile,'Label','中間距離法','callBack','[m_pattern]=C_ZhongJianJuLi(m_pattern,patternNum)')
% 定義一級菜單下的二級菜單:重心法
cfile1=uimenu(cfile,'Label','重心法','callBack','[m_pattern]=C_ZhongXin(m_pattern,patternNum)')
% 定義一級菜單下的二級菜單:類平均距離法
cfile1=uimenu(cfile,'Label','類平均距離法','callBack','[m_pattern]=C_LeiPingJunLi(m_pattern,patternNum)')
for i=1:patternNum
result(i)=m_pattern(i).category;
end
msgbox(num2str(result), '聚類結(jié)果');
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -