function?K=autoK（I）
%?自動估計梯度閾值K函數
%?用robust_statistic自動估計梯度閾值（參Sapiro?P231）
%?by?Qulei?@2005/12/12
%?I:input?gray?or?color?image

[rowcolnchannel]=size（I）;

K=0;
if?nchannel==1%gray?image
????[gradxgrady]=gradient（I）;
????gradI=（gradx.^2+grady.^2）.^0.5;
????K=1.4826*mean（mean（abs（gradI-mean（mean（gradI）））））;
else%color?image
????for?i=1:3
????????[gradxgrady]=gradient（I（::i））;
????????gradI=（gradx.^2+grady.^2）.^0.5;
????????K=K+1.4826*mean（mean（abs（gradI-mean（mean（gradI）））））;
????end
????K=K/3;
end

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

?????文件????????550??2008-05-11?22:29??PDE去噪\autoK.m

?????文件????????913??2008-05-11?22:29??PDE去噪\calc_lam.m

?????文件???????3232??2008-05-11?22:29??PDE去噪\directional_diffusion.m

?????文件???????1265??2008-05-11?22:29??PDE去噪\main.m

?????文件???????2981??2008-05-11?22:29??PDE去噪\order4_diffusion.m

?????文件???????1308??2008-05-11?22:29??PDE去噪\plot_edgestop.m

?????文件???????4013??2008-05-11?22:29??PDE去噪\smooth_diffusion.m

?????文件????????580??2008-05-11?22:29??PDE去噪\SNR.m

?????文件???????3309??2008-05-11?22:29??PDE去噪\TV_denoise.m

?????目錄??????????0??2010-11-18?20:35??PDE去噪

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

????????????????18151????????????????????10