print.asv

用matlab实现聚类算法

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 聚类分析主函数
function [result,m_pattern]=print(filename,patternNum,d)
    clc
    m_pattern=pattern(filename,patternNum,d);
    m_center=struct('feature','','patternNum','','index','');
    [selection,ok]=listdlg('ListString',{'基于试探的未知类别聚类算法','层次距离算法'},'PromptString','请选择聚类分析所对应的方法','SelectionMode','single');
    switch(selection)
        case 1
             [select,ok]=listdlg('ListString',{'最临近规则的试探法','最大最小距离法'},'PromptString','请选择聚类分析所对应的试探方法','SelectionMode','single');
             switch(select)
                 case 1
                     [m_pattern]=C_ZuiLinJin(m_pattern,patternNum);
                 case 2
                     [m_pattern]=C_ZuiDaZuiJuLi(m_pattern,patternNum);
             end
        case 2
            str={'最短距离法','最长距离法','中间距离法','重心法','类平均距离法'}
            [select,ok]=listdlg('ListString',str,'PromptString','请选择聚类分析所对应的试探方法','SelectionMode','single');
            switch(select)
                case 1
                    [m_pattern]=C_ZuiDuanJuLi(m_pattern,patternNum);
                case 2
                    [m_pattern]=C_ZuiChangJuLi(m_pattern,patternNum);
                case 3
                    
                    
                    
            
                     
%[m_pattern]=C_ZuiDaZuiJuLi(m_pattern,patternNum);



%[m_pattern]=C_ZhongJianJuLi(m_pattern,patternNum);
%[m_pattern]=C_ZhongXin(m_pattern,patternNum);
[m_pattern]=C_LeiPingJunLi(m_pattern,patternNum);
for i=1:patternNum
  result(i)=m_pattern(i).category;
end
msgbox(num2str(result), '聚类结果');