纹理特征提取Matlab程序

用统计方式对灰度图像进行纹理特征提取。构造灰度共生矩阵，通过灰度共生矩阵计算纹理特征。本方式提取四个互不相关的特征，纹理角二阶矩、纹理熵、对比度、均匀性。

function Data=wenlitezheng（Image）

     
     
[MN]=size（Image）;   
 Gray=Image;
%  Gray=rgb2gray（Gray）;
%2.为了减少计算量，对原始图像灰度级压缩，将Gray量化成16级
%--------------------------------------------------------------------------
for i = 1:M
    for j = 1:N
        for n = 1:256/16
            if （n-1）*16<=Gray（ij）&&Gray（ij）<=（n-1）*16+15
                Gray（ij） = n-1;
            end
        end
    end
end
% figure（1）imshow（Gray）;
%% 灰度共生矩阵
     P = zeros（16164）;
for m = 1:16
    for n = 1:16
        for i = 1:M
            for j = 1:N
                if j                    P（mn1） = P（mn1）+1;
                    P（nm1） = P（mn1）;
                end
                if i>1&&j