In[]:=
img=Import["/home/picox/Projects/Wolfram/see.jpg"]
In[]:=
ImageDimensions[img]
Out[]=
{640,480}
In[]:=
nimg=ImageEffect[img,{"GaussianNoise",0.3}]
Out[]=
In[]:=
dws=DiscreteWaveletTransform[nimg,BiorthogonalSplineWavelet[3,3]];
In[]:=
wtdwd=WaveletThreshold[dws,{"Soft","SURELevel"},{1|2|3}];
In[]:=
{Image[InverseWaveletTransform[wtdwd],ImageSize->{128,128}],Image[nimg,ImageSize->{128,128}],Image[img,ImageSize->{128,128}]}
In[]:=
,
,
