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