clc
clear?all
%讀入圖片
gf=imread（‘lena.tif‘）;

%測量圖像尺寸參數
[ab]=size（gf）;

%設定窗口大小
w=41;

%計算h（mng）
for?g=0:255
????for?i=1:a
????????for?j=1:b
????????????
????????????if?gf（ij）==g
???????????????s（ij）=1;
????????????else
???????????????s（ij）=0;
????????????end
????????
????????????if?i<=（w-1）/2?&&?j<=（w-1）/2
???????????????t（ij）=w.^（-2）;
????????????else
???????????????t（ij）=0;
????????????end
????????????
????????end
????end
????
????h1=conv2（st‘same‘）;
????
????for?m=1

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件???????1067??2013-10-09?14:58??AHE.m

-----------?---------??----------?-----??----

?????????????????1067????????????????????1