%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 聚類分析主函數
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), '聚類結果');