function[PSNR,y_est]=BM3D(y,z,sigma,profile,print_to_screen,N2,N2_wiener,Ns,Ns_wiener,tau_match)%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%BM3DisanalgorithmforattenuationofadditivewhiteGaussiannoisefrom%grayscaleimages.Thisalgorithmreproducestheresultsfromthearticle:%%[1]K.Dabov,A.Foi,V.Katkovnik,andK.Egiazarian,"ImageDenoising%bySparse3DTransform-DomainCollaborativeFiltering,"%IEEETransactionsonImageProcessing,vol.16,no.8,August,2007.%preprintathttp://www.cs.tut.fi/~foi/GCF-BM3D.%%%FUNCTIONINTERFACE:%%[PSNR,y_est]=BM3D(y,z,sigma,profile,print_to_screen)%%!Thefunctioncanworkwithoutanyoftheinputarguments,%inwhichcase,theinternaldefaultonesareused!%%BASICUSAGEEXAMPLES:%%Case1)Usingthedefaultparameters(i.e.,imagename,sigma,etc.)%%[PSNR,y_est]=BM3D;%%Case2)Usinganexternalnoisyimage:
1