I?=?imread（‘C:\MATLAB7\work\1.jpg‘）;
subplot（121）;
imshow（I）;

f=I（::1）;
ff=I（::2）;
fff=I（::3）;
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
k1=4;
k2=5;
r=161;
alf=1600;
nn=floor（（r+1）/2）;
for?i=1:r
????for?j=1:r
????????b（ij）?=exp（-（（i-nn）^2+（j-nn）^2）/（k1*alf））/（k2*pi*alf*10000）;????????%高斯函數(shù)1
???end
end

k1=8;
k2=8;
r=161;
alf=1400;
nn=floor（（r+1）/2）;
for?i=1:r
????for?j=1:r
????????bb（ij）?=exp（-（（i-nn）^2+（j-nn）^2）/（k1*alf））/（k2*pi*alf*10000）;????????%高斯函數(shù)2
???end
end

k1=0.5;
k2=0.5;
r=161;
alf=1458;
nn=floor（（r+1）/2）;
for?i=1:r
????for?j=1:r
????????bbb（ij）?=exp（-（（i-nn）^2+（j-nn）^2）/（k1*alf））/（k2*pi*alf*10000）;????????%高斯函數(shù)2
???end
end
%%%%%%%%%%%對R分量的處理%%%%%%%%%%%%%
Img?=?double（f）;
[mn]=size（f）;

K=imfilter（Imgb）;
KK=imfilter（Imgbb）;
KKK=imfilter（Imgbbb）;

for?i=1:m
????for?j=1:n??????
???????G（ij）=1/3*（log（Img（ij）+1）-log（K（ij）+1））;
????????G（ij）=1/3*（log（Img（ij）+1）-log（KK（ij）+1））+G（ij）;
?????????G（ij）=1/3*（log（Img（ij）+1）-log（KKK（ij）+1））+G（ij）;
????end
end

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

???????L=（G-mi）*255/（ma-mi）;
%%%%%%%%%%%%%%對G分量的處理%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Img?=?double（ff）;
[mn]=size（ff）;

K=imfilter（Imgb）;
KK=imfilter（Imgbb）;
KKK=imfilter（Imgbbb）;

for?i=1:m
????for?j=1:n??????
???????G（ij）=1/3*（log（Img（ij）+1）-log（K（ij）+1））;
????????G（ij）=1/3*（log（Img（ij）+1）-log（KK（ij）+1））+G（ij）;
?????????G（ij）=1/3*（log（Img（ij）+1）-log（KKK（ij）+1））+G（ij）;
????end
end

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

???????LL=（G-mi）*255/（ma-mi）;
%%%%%%%%%%%%%隨B分量的處理%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Img?=?double（fff）;
[mn]=size（fff）;

K=imfilter（Imgb）;
KK=imfilter（Imgbb）;
KKK=imfilter（Imgbbb）;


for?i=1:m
????for?j=1:n??????
???????G（ij）=1/3*（log（Img（ij）+1）-log（K（ij）+1））;
????????G（ij）=1/3*（log（Img（ij）+1）-log（KK（ij）+1））+G（ij）;
?????????G（ij）=1/3*（log（Img（ij）+1）-log（KKK（ij）+1））+G（ij）;
????end
end

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

???????LLL=（G-mi）*255/（ma-mi）;

%%%%%%%%%%%%對彩色圖像的綜合處理?%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
msr=cat（3LLLLLL）;
subplot（122）;
imshow（uint8（msr））;
imwrite（uint8（msr）‘msrretnx.bmp‘）;

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

?????文件???????2239??2008-11-28?17:04??RETINEX算法\MSR.m

?????文件???????2626??2008-11-21?23:36??RETINEX算法\MSRCR.m

?????文件???????2714??2008-11-28?16:30??RETINEX算法\retinex.m

?????文件???????1021??2008-11-28?16:45??RETINEX算法\SSR.m

?????目錄??????????0??2008-12-29?12:06??RETINEX算法

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

?????????????????8818????????????????????6