%Frost?filter?for?speckle?noise?reduction
%Author?:?Jeny?Rajan
function?[ft]=frost（I）
%?I?is?the?noisy?input?image
tic
[x?y?z]=size（I）;
I=double（I）;
K=1;
N=I;
for?i=1:x
????for?j=1:y??????????????????????????????
????????if?（i>1?&?i1?&?j????????????mat（1）=I（i-1j）;
????????????mat（2）=I（i+1j）;
????????????mat（3）=I（ij-1）;
????????????mat（4）=I（ij+1）;
????????????d（1）=sqrt（（i-（i-1））^2）;
????????????d（2）=sqrt（（i-（i+1））^2）;
????????????d（3）=sqrt（（j-（j-1））^2）;
????????????d（4）=sqrt（（j-（j+1））^2）;
????????????mn=mean（mean（mat））;
????????????c=mat-mn;
????????????c2=c.^2;
????????????c3=c/（c2+.0000001）;
????????????Cs=0.25*sum（sum（c3））;
????????????m（1）=exp（-K*Cs*d（1））;
????????????m（2）=exp（-K*Cs*d（2））;
????????????m（3）=exp（-K*Cs*d（3））;
????????????m（4）=exp（

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

?????文件?????313344??2005-04-18?14:24??image?filter\bayes門限去噪主程序及其它相關(guān)程序.doc

?????文件????????969??2006-11-14?10:34??image?filter\frost.m

?????文件????????291??2007-09-11?20:13??image?filter\ImageWienerFilter\BlurTemplate.m

?????文件???????3646??2012-06-27?10:41??image?filter\ImageWienerFilter\DIPexp6.asv

?????文件???????3651??2007-09-11?20:13??image?filter\ImageWienerFilter\DIPexp6.m

?????文件??????66614??2007-09-11?20:13??image?filter\ImageWienerFilter\lena.bmp

?????文件???????2089??2008-04-02?16:05??image?filter\kuan.m

?????文件???????2239??2008-04-02?15:52??image?filter\lee2.m

?????文件??????11872??2008-10-25?00:15??image?filter\waveletfilter.m

?????文件????????470??2004-08-09?11:28??image?filter\wave_noise\decomposition.m

?????文件????????212??2004-08-10?20:22??image?filter\wave_noise\filtercoefficience.m

?????文件?????????50??2004-07-05?07:59??image?filter\wave_noise\icross.m

?????文件????????343??2004-07-09?15:37??image?filter\wave_noise\mainfunction.m

?????文件????????378??2004-08-09?10:34??image?filter\wave_noise\reconstructed.m

?????文件??????28672??2007-04-13?11:09??image?filter\維納濾波器_程序.doc

?????目錄??????????0??2012-06-27?10:43??image?filter\ImageWienerFilter

?????目錄??????????0??2012-06-27?10:43??image?filter\wave_noise

?????目錄??????????0??2012-06-27?10:44??image?filter

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

???????????????435058????????????????????19