function?SSR=Single_Scale（SHSIZESIGMA）

[mn]=size（S）;
s=m*n;
mean=sum（sum（S）2）/s;
R=zeros（mn）;
R=repmat（meanmn）;


?H?=?fspecial（‘gaussian‘HSIZESIGMA）;
?G=imfilter（S?H?‘conv‘?‘symmetric‘）;
%figureimshow（uint8（G））;

SS=zeros（mn）;
for?i=1:m
???for?j=1:n
???????if?S（ij）>0
????????SS（ij）=log（S（ij））;
????????GG（ij）=log（G（ij））;
????????V（ij）=?SS（ij）-GG（ij）;
???????end
???end
end
%figure?imshow（V）;

Min=min（min（V））;
Max=max（max（V））;
for?i=1:m
???for?j=1:n
??????VV（ij）=（V（ij）-Min）*255/（Max-Min）;
???end
end
VVV=uint8（VV）;
%figure?imshow（V）;
SSR=VVV
%figure?imshow（SSR）;

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

?????文件????????625??2011-04-12?19:34??20101022SSR\Single_Scale.asv

?????文件????????628??2011-06-03?14:18??20101022SSR\Single_Scale.m

?????文件????????487??2010-10-25?09:03??20101022SSR\SSR.asv

?????文件????????517??2011-06-17?16:03??20101022SSR\SSR.m

?????目錄??????????0??2011-07-30?09:54??20101022SSR

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

?????????????????2257????????????????????5