www.pudn.com > work1.rar > rgb2lab.m

%RGB彩色空间转换至Lab彩色空间 
function image_lab=rgb2lab(image_rab); 
f=im2double(image_rab); 
R=f(:,:,1); 
G=f(:,:,2); 
B=f(:,:,3); 
L1=0.3811*R+0.5783*G+0.0402*B; 
M1=0.1967*R+0.7244*G+0.0782*B; 
S1=0.0241*R+0.1288*G+0.8444*B; 
L=log10(L1+eps); 
M=log10(M1+eps); 
S=log10(S1+eps); 
T=[1/sqrt(3) 0 0;0 1/sqrt(6) 0;0 0 1/sqrt(2)]*[1 1 1;1 1 -2;1 -1 0]; 
l=T(1,1)*L+T(1,2)*M+T(1,3)*S; 
a=T(2,1)*L+T(2,2)*M+T(2,3)*S; 
b=T(3,1)*L+T(3,2)*M+T(3,3)*S; 
image_lab=cat(3,l,a,b);