%**************************************************************************
%???????????????????圖像檢索——紋理特征
%基于共生矩陣紋理特征提取，d=1θ=0°45°90°135°共四個矩陣
%所用圖像灰度級均為256
%參考《基于顏色空間和紋理特征的圖像檢索》
%function?:?T=Texture（Image）?
%Image????:?輸入圖像數(shù)據(jù)
%T????????:?返回八維紋理特征行向量
%**************************************************************************
clc;
clear;
Image?=imread（‘D:\畢業(yè)設(shè)計\紋理圖\mosaic_02_train_03.bmp‘）;
figure（1）
subplot（221）
imshow（Image）
Gray=graycomatrix（Image）;?
[MN]=size（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）*