function?LightCompensate（I）


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


thresholdco=0.05;????????%?比例系數(shù)
thresholdnum=100;????????%?像素個數(shù)的臨界常數(shù)
histogram=zeros（1256）;??%?灰度級?數(shù)組，?直方圖（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獲得滿足系數(shù)thresholdco的臨界灰度級
?index1=0;
?for?i=1:256
?????if?calnum/total?????????index1=256-i+1;
?????????calnum=calnum+histogram（1index1）;
?????????num=i;
?????else
?????????break;
?????end
?end
?
?averagegray=0;
?calnum=0;
?k=256-num+1;
?
?
?%?獲得滿足條件的像素總的灰度值
?for?i=256:-1:k
?????averagegray=averagegray+histogram（1i）*i;
?????calnum=calnum+histogram（1i）;
?end
?averagegray=averagegray/cal

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

?????文件???????1666??2011-09-09?12:57??新建文件夾\LightCompensate.m

?????文件????????363??2011-09-09?13:00??新建文件夾\main2.m

?????文件?????801066??2003-06-28?23:26??新建文件夾\test.jpg

?????目錄??????????0??2011-09-13?15:39??新建文件夾

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

???????????????803095????????????????????4