SSR SSR单尺度matlab代码

SSR单尺度matlab代码，直接运行即可

I = imread（‘F:\1234\红外热成像图片\新建文件夹\红44.jpg‘）;
subplot（121）;
imshow（I）;

f=I（::1）;
ff=I（::2）;
fff=I（::3）;
%%%%%%%%%%%%%构造高斯核%%%%%%%%%%%%%%%%%%%%%%%
k1=8;
k2=8;
r=161;
alf=1600;
nn=floor（（r+1）/2）;  % nn=81为尺度C，取80最合适
for i=1:r   %从1循环到81
    for j=1:r
        b（ij） =exp（-（（i-nn）^2+（j-nn）^2）/（k1*alf））/（k2*pi*alf*10000）;        %高斯函数
   end
end
%%%%%%%%%%%对R分量的处理%%%%%%%%%%%%%
Img = double（f）;
K=imfilter（Imgb）;  % 中值滤波后的图像
G=log（Img+1）-log（K+1）;  %在对数域中用原始图像减高斯平滑后的图像 得到反射图像

mi=min（min（G））;
ma=max（max（G

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

     文件       1174  2011-11-08 21:09  SSR.m

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

                 1174                    1