基于Gabor的纹理特征

程序运行已经完成 可以自动的提取图像的特征

clear all;
close all;

Ls = 1024;
L = 128;
L0 = L + Ls;
sigda = zeros（1L0）;
dt = 0.001;
dm = 16;
N = 64;
delta2 = dm*N/（2*pi）;
signum = 4;

k = 0:L-1;
k1 = 0:Ls-1;
sigdata = signal（signumdtLs）;
sigda（1:Ls） = sigdata;
h = （（pi*delta2）.^-0.25）*exp（-（（k-（L-1）/2）.^2）/（2*delta2））;
[gCmn] = gabortrans（sigdahdmNL0L）;
resig = igabortrans（CmnhdmNL0L）;

figure（1）
t = k1*dt;
plot（tsigdata‘-b‘）;
grid on
title（‘signal‘）;

figure（2）
Cmn_am = abs（Cmn）.^2;
pcolor（Cmn_am（1:N/2:））
shading interp
title（‘Gabor transform‘）;

figure（3）
t = k1*dt;
b = real（resig）;
error = b-sigdata;
plot（tb）;
hold on
plot（terror‘r‘）
grid on
title（‘Reconstruction signal‘）;

figure（4）
wt = k*dt;
g = real（g）;
plot（wtg‘-b‘）;
hold on
plot（wth‘--r‘）;
grid on
title（‘windowgama‘）;

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     目录          0  2009-10-23 10:46  Gabor

     文件        197  2009-08-28 16:27  Gabor\igabortrans.m

     文件        225  2009-08-29 10:50  Gabor\producei.m

     文件        546  2009-08-29 10:43  Gabor\signal.m

     文件        820  2009-08-29 11:26  Gabor\gabor.m

     文件        594  2009-08-29 10:50  Gabor\gabortrans.m

----------- ---------  ---------- -----  ----

                 2382                    6