clear?all;?
load?wbarb;?%小波變換邊緣提取程序
I?=?ind2gray（Xmap）;%檢索圖轉成灰度圖
imshow（I）;?
I1?=?imadjust（Istretchlim（I）[01]）;%調整圖像的像素值，可以改變對比度和顏色
figure;
imshow（I1）;?
[NM]?=?size（I）;?
h?=?[0.1250.3750.3750.125];?
g?=?[0.5-0.5];?
delta?=?[100];?
J?=?3;?
a（1:N1:M11:J+1）?=?0;?
dx（1:N1:M11:J+1）?=?0;?
dy（1:N1:M11:J+1）?=?0;?
d（1:N1:M11:J+1）?=?0;?
a（::11）?=?conv2（hhI‘same‘）;?%二維卷積
dx（::11）?=?conv2（deltagI‘same‘）;?
dy（::11）?=?conv2（gdeltaI‘same‘）;?
x?=?dx（::11）;?
y?=?dy（::11）;?
d（::11）?=?sqrt（x.^2+y.^2）;?
I1?=?imadjust（d（::11）