www.pudn.com > Texture.rar > Texture.m

%************************************************************************** 
%                   图像检索——纹理特征 
%基于共生矩阵纹理特征提取，d=1,θ=0°,45°,90°,135°共四个矩阵 
%所用图像灰度级均为256 
%参考《基于颜色空间和纹理特征的图像检索》 
%function : T=Texture(Image)  
%Image    : 输入图像数据 
%T        : 返回八维纹理特征行向量 
%************************************************************************** 
function T = Texture(Image) 
% Image = imread('E:\1\3.tiff'); 
% [M,N,O] = size(Image); 
M = 256;  
N = 256; 
 
%-------------------------------------------------------------------------- 
%1.将各颜色分量转化为灰度 
%-------------------------------------------------------------------------- 
Gray = double(0.3*Image(:,:,1)+0.59*Image(:,:,2)+0.11*Image(:,:,3)); 
 
%-------------------------------------------------------------------------- 
%2.为了减少计算量，对原始图像灰度级压缩，将Gray量化成16级 
%-------------------------------------------------------------------------- 
for i = 1:M 
    for j = 1:N 
        for n = 1:256/16 
            if (n-1)*16<=Gray(i,j)&Gray(i,j)<=(n-1)*16+15 
                Gray(i,j) = n-1; 
            end 
        end 
    end 
end 
 
%-------------------------------------------------------------------------- 
%3.计算四个共生矩阵P,取距离为1，角度分别为0,45,90,135 
%-------------------------------------------------------------------------- 
P = zeros(16,16,4); 
for m = 1:16 
    for n = 1:16 
        for i = 1:M 
            for j = 1:N 
                if j1&j