%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（

?屬性????????????大小?????日期????時(shí)間???名稱(chēng)
-----------?---------??----------?-----??----

?????文件??????65890??2014-03-19?10:58??小波閾值\1.jpg

?????文件??????46842??2014-03-19?11:39??小波閾值\2.jpg

?????文件?????177851??2014-03-26?15:22??小波閾值\3.jpg

?????文件??????23272??2014-03-27?10:24??小波閾值\4.jpg

?????文件?????263222??2014-03-27?10:50??小波閾值\5.jpg

?????文件??????65890??2014-03-19?10:58??小波閾值\denosing\1.jpg

?????文件????????764??2014-03-27?16:08??小波閾值\denosing\2dimen.asv

?????文件?????177851??2014-03-27?16:50??小波閾值\denosing\3.jpg

?????文件????????751??2014-03-27?16:08??小波閾值\denosing\denosing.asv

?????文件????????751??2014-03-27?16:08??小波閾值\denosing\denosing.m

?????文件????????820??2014-03-27?16:08??小波閾值\denosing\dimen.asv

?????文件????????805??2014-03-27?16:08??小波閾值\denosing\dimen.m

?????文件????????719??2014-03-27?16:08??小波閾值\denosing\enhancement.m

?????文件???????3660??2014-03-27?16:14??小波閾值\denosing\for_paper.m

?????文件???????2036??2014-03-27?16:14??小波閾值\denosing\imageadenosing.m

?????文件???????5168??2014-03-27?16:59??小波閾值\denosing\imagedenosing.asv

?????文件???????5179??2014-03-27?17:01??小波閾值\denosing\imagedenosing.m

?????文件???????4028??2014-03-27?16:11??小波閾值\denosing\imagedenosing_hard.m

?????文件?????263222??2014-03-27?10:50??小波閾值\denosing\lena.jpg

?????文件????????266??2014-03-27?16:08??小波閾值\denosing\Untitled.asv

?????文件?????????96??2014-03-27?16:08??小波閾值\denosing\Untitled.m

?????文件???????2918??2014-03-27?16:08??小波閾值\denosing\WPSNR.M

?????文件???????1179??2014-03-27?13:42??小波閾值\frost.asv

?????文件???????1176??2014-03-27?15:42??小波閾值\frost.m

?????文件???????2284??2014-03-27?20:45??小波閾值\kuan.asv

?????文件???????2284??2014-03-27?20:45??小波閾值\kuan.m

?????文件???????2422??2014-03-27?15:44??小波閾值\lee.asv

?????文件???????2430??2014-03-27?15:44??小波閾值\lee.m

?????文件???????1828??2014-03-27?15:34??小波閾值\main.asv

?????文件???????2041??2014-03-27?16:10??小波閾值\main.m

............此處省略8個(gè)文件信息