function?output_image?=?color_correct_image（input_image?light_color?light_color_G?light_color_B）
%?COLOR_CORRECT_IMAGE:?Support?function?for?gamut_mapping.m
%
%???This?function?will?color?correct?the?input?image?given?the?specified
%???color?of?the?light?source.
%

if?（（nargin?>?4）?|?（nargin?????error（‘Input?image?AND?color?of?the?light?source?should?be?specified!‘）;
????return;
end
if?（nargin?==4）
????light_color（1）?=?light_color;
????light_color（2）?=?light_color_G;
????light_color（3）?=?light_color_B;
end

light_color?=?light_color?./?norm（light_color）;

output_image（::1）?=?input_image（::1）?./?（light_color（1）*sqrt（3））;
output_image（::2）?=?input_image（::2）?./?（light_color（2）*sqrt（3））;
output_image（::3）?=?input_image（::3）?./?（light_color（3）*sqrt（3））;

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????文件???????71519??2007-03-25?20:20??example_images\building.jpg
?????文件???????48214??2007-03-25?20:21??example_images\cow.jpg
?????文件???????48346??2007-03-25?20:21??example_images\dog.jpg
?????文件???????22617??2007-12-19?14:42??example_images\car.jpg
?????目錄???????????0??2010-02-16?14:56??example_images\
?????文件?????????828??2010-02-15?17:11??color_correct_image.m
?????文件?????????390??2010-02-16?15:38??color_gauss.m
?????文件????????7727??2010-02-16?15:34??compute_ch.m
?????文件???????13748??2010-02-16?15:46??demo_gamut_cc.m
?????文件????????8171??2010-02-15?17:46??demo_gamut_learn_canonical.m
?????文件?????????426??2010-02-16?15:37??dilation33.m
?????文件???????22956??2010-02-15?17:55??example_canonical_gamuts.mat
?????文件????????1200??2010-02-16?15:37??fill_border.m
?????文件????????6516??2010-02-16?14:36??gamut_mapping.m
?????文件????????1006??2010-02-16?15:36??gDer.m
?????文件?????????950??2010-02-16?15:36??norm_derivative.m
?????文件????????1285??2010-02-15?16:25??preprocessingCG.m
?????文件?????????575??2010-02-15?16:23??tohyperplanes.m
?????文件?????????140??2010-02-16?15:32??training_images.lst