%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 聚類分析主函數
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','未知類別聚類分析');
    % 定義一級菜單下的二級菜單項：最臨近距離法
    hfile1=uimenu(hfile,'Label','最臨近距離法','callBack','m_pattern=C_ZuiLinJin(m_pattern,patternNum)')
    % 定義一級菜單下的二級菜單項：最大最小距離法
    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), '聚類結果');