用于实现图像去雾的代码，很有效，matlab写的

用于实现图像去雾的代码，很有效，matlab写的，基于暗原色去雾，dark channel prior

function [Aoutput]=getA（imputmn）
mnsize=3;
%imput1=imput（::1）;
%imput2=imput（::2）;
%imput3=imput（::3）;
len1=zeros（1（mnsize*2+1）^2）;
len2=len1;
len3=len2;
output=zeros（mn）;
minmed=zeros（13）;
imput1=zeros（m+2*mnsizen+2*mnsize3）;
imput1（1:mnsizemnsize+1:mnsize+n:）=imput（1:mnsize::）;
imput1（m+mnsize+1:endmnsize+1:n+mnsize:）=imput（end-mnsize+1:end::）;
imput1（mnsize+1:m+mnsizemnsize+1:n+mnsize:）=imput（:::）;
imput1（:1:mnsize:）=imput1（:mnsize+1:mnsize*2:）;
imput1（:n+mnsize+1:end:）=imput1（:n+1:n+mnsize:）;
for i=1+mnsize:m+mnsize
    for j=1+mnsize:n+mnsize
        len1=imput1（i-mnsize:i+mnsizej-mnsize:j+mnsize1）;
        len2=imput1（i-mnsize:i+mnsizej-mnsize:j+mnsize2）;
        len3=imput1（i-mnsize:i+mnsizej-mnsize:j+mnsize3）;
        a1=min（len1）;
        a2=min（len2）;
        a3=min（len3）;
        minmed=[a1a2a3];
        output（i-mnsizej-mnsize）=min（minmed）;
    end
end
[hindx]=max（output）;
[sindy]=max（h）;
A=imput（indx（indy）indy:）;
%output=uint8（output）;
figureimshow（output）; 

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件      10208  2010-04-29 14:08  darkchannel去雾\1.jpg

     文件      11261  2010-04-29 21:32  darkchannel去雾\10.jpg

     文件      28906  2010-04-29 21:33  darkchannel去雾\11.jpg

     文件       8345  2010-04-29 21:33  darkchannel去雾\12.jpg

     文件      11325  2010-04-29 21:34  darkchannel去雾\13.jpg

     文件       8982  2010-04-29 17:02  darkchannel去雾\2.jpg

     文件      14820  2010-04-29 21:28  darkchannel去雾\3.jpg

     文件      17520  2010-04-29 21:29  darkchannel去雾\4.jpg

     文件      16564  2010-04-29 21:29  darkchannel去雾\5.jpg

     文件       7414  2010-04-29 21:30  darkchannel去雾\6.jpg

     文件       8712  2010-04-29 21:31  darkchannel去雾\7.jpg

     文件      17027  2010-04-29 21:31  darkchannel去雾\8.jpg

     文件      13119  2010-04-29 21:32  darkchannel去雾\9.jpg

     文件       1067  2010-04-29 20:17  darkchannel去雾\getA.asv

     文件       1067  2010-04-29 20:19  darkchannel去雾\getA.m

     文件       1346  2010-04-29 21:06  darkchannel去雾\getAA1.asv

     文件       1535  2010-04-30 10:30  darkchannel去雾\getAA1.m

     文件        175  2010-04-29 19:47  darkchannel去雾\getaccuratetx.asv

     文件        197  2010-04-30 10:28  darkchannel去雾\getaccuratetx.m

     文件       1704  2010-04-29 18:44  darkchannel去雾\getLaplacian1.asv

     文件       1802  2010-04-30 10:02  darkchannel去雾\getLaplacian1.m

     文件        898  2010-04-30 10:15  darkchannel去雾\gettx.m

     文件        405  2010-04-29 20:17  darkchannel去雾\hazeremove.asv

     文件        426  2010-04-30 10:25  darkchannel去雾\hazeremove.m

     文件        216  2010-04-30 09:57  darkchannel去雾\laststep.m

     文件         82  2011-02-19 10:04  darkchannel去雾\此程序是“Single Image Haze Removal Using Dark Channel Prior”的程序，效果较为理想.txt

     目录          0  2011-02-23 22:32  darkchannel去雾

----------- ---------  ---------- -----  ----

               185123                    27



............此处省略0个文件信息