function [y,n]=hist_rate(x,tag)

%對一列數x1,x1,...,xn從小到大進行排序，并去除多余的重復值，返回處理后向量y，
%當tag==1時，返回累積頻率向量n,對應y中每個數字出現的累積頻率
%當tag==2時，返回頻率向量n,對應y中每個數字出現的頻率
%當tag==3時，返回頻數向量n,對應y中每個數字出現的頻數

if ~isempty(x)
    x=sort(x);
    m=length(x);
    x1=x(2:end)-x(1:end-1);
    x1(end+1)=1;
    x1=find(x1~=0);
    if tag==1
        n=x1/m;
    end
    y=x(x1);
    x1(2:end+1)=x1;
    x1(1)=0;
    if tag==2
        n=(x1(2:end)-x1(1:end-1))/m;
    end
    if tag==3
        n=x1(2:end)-x1(1:end-1);
    end    
else
    warndlg('輸入數據不能為空');
end
x=[];x1=[];m=[];