%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 聚類分析主函數(shù)
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','請選擇聚類分析所對應(yīng)的方法','SelectionMode','single');
    switch(selection)
        case 1
             [select,ok]=listdlg('ListString',{'最臨近規(guī)則的試探法','最大最小距離法'},'PromptString','請選擇聚類分析所對應(yīng)的試探方法','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','請選擇聚類分析所對應(yīng)的試探方法','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_ZhongJianJuLi(m_pattern,patternNum);
                case 4
                    [m_pattern]=C_ZhongXin(m_pattern,patternNum);
                case 5
                    [m_pattern]=C_LeiPingJunLi(m_pattern,patternNum);
            end
    end
    for i=1:patternNum
       result(i)=m_pattern(i).category;
    end
    msgbox(num2str(result), '聚類結(jié)果');