%=============================================================

% 函數(shù)名：hight
% 函數(shù)介紹：求直方圖的高（概率密度)。
% 輸入?yún)?shù)：x是橫軸的區(qū)間。   
%          r是要畫柱圖的數(shù)據(jù)。如基因的分類信息指數(shù)或基因的分類權重等。
%          fenshu是橫軸的區(qū)間個數(shù)。
%          number是基因表達譜數(shù)據(jù)中的基因個數(shù)。
% 輸出參數(shù)：y是分到每個區(qū)間的基因個數(shù)


%==============================
function [y] = hight (x, r, fenshu, number )
y = zeros (1, fenshu);
for i = 1 : number
    for j = 1 : fenshu
        if j ~= fenshu
            if r ( i ) >= x ( j ) & r ( i ) < x ( j + 1 )
                y ( j ) = y ( j ) + 1;
            end
        else
            if r ( i ) >= x ( j ) & r ( i ) <= x ( j + 1 )
                y ( j ) = y ( j ) + 1;
            end
        end
    end
end
%end of function y=glmd(x,r,fenshu,number,B);%直方圖的高(概率密度)