function?LightCompensate（I）


[m0n0l]=size（I）;
figure（1）imshow（I）;?????%?顯示原圖


thresholdco=0.05;????????%?比例系數
thresholdnum=100;????????%?像素個數的臨界常數
histogram=zeros（1256）;??%?灰度級?數組，?直方圖（1行，256列）

%if?m0*n0*thresholdco?%????disp（‘輸入圖像太小，請換一張！‘）;
%????return
%end

gray=0;
index0=0;

for?i=1:m0????????%?圖像掃描
?????for?j=1:n0
??????????gray=round（I（ij1）*.299+I（ij2）*.587+I（ij3）*.114）;
??????????index0=gray+1;
??????????histogram（1index0）=?histogram（1index0）+1;
?????end
end
?
?calnum=0;
?total=m0*n0;
?num=0;
?
?%next獲得滿足系數thresholdco的臨界灰度級
?index1=0;
?for?i=1:256
?????if?calnum/total?????????index1=256-i+1;
?????????calnum=calnum+histogram（1index1）;
?????????num=i;
?????else
?????????break;
?????end
?end
?
?ave

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

?????文件???????1666??2011-09-09?12:57??光線補償\LightCompensate.m

?????文件????????415??2011-11-16?13:36??光線補償\main2.m

?????文件?????801066??2003-06-28?23:26??光線補償\test.jpg

?????文件???????7804??2011-11-16?13:16??光線補償\wbq_1.jpg

?????文件???????8223??2011-11-16?13:17??光線補償\wbq_2.jpg

?????文件??????12940??2011-11-16?13:17??光線補償\wbq_3.jpg

?????目錄??????????0??2011-11-16?13:36??光線補償

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

???????????????832114????????????????????7