SRAD各向异性去噪实现图像平滑

将4个文件拷贝到同一路径下，修改ex_SRAD.m文件中的filename，filename为要平滑的图像文件名称，修改后运行ex_SRAD.m，待进度条慢后即可显示平滑后的图像。本程序采用了SRAD算法。在MATLAB环境下运行。

clear all close all
t1=clock;
% This example performs speckle reducing anisotropic diffusion on
% ultrasound phantom image of a elliptical object via the function SRAD.
% SRAD is implemented following:
%   Y. Yu and S.T. Acton “Speckle reducing anisotropic diffusion“ IEEE
%   Transactions on Image Processing vol. 11 pp. 1260-1270 2002.
%   

%WRITTEN BY:  Drew Gilliam
%
%MODIFICATION HISTORY:
%   2006.03   Drew Gilliam
%       --creation


% file name
% filename = ‘ERS2_7_1.jpg‘;
filename = ‘20131014155354.bmp‘;
% filename = ‘F:\博士论文资料\image\cearac image database\sub\ERS1_2_1.jpg‘;
[NyNxNc] = size（filename）;
if Nc>1; filename=rgb2gray（filename）; end;

% read in file make double
I = im2double（ imread（filename） ）;

% region of uniform speckle
% NOTE if rect is empty （i.e. “rect = []“） the user can choose an
% arbitrary region of uniform speckle at runtime.  The original image is
% displayed on the current axes and the user may click and drag a
% rectangle to define the uniform speckle region
rect = [10 15 40 40];   % default rectangle
% rect = [];              % choose rectangle at runtime
%rect = [10 10 20 20];   % default rectangle
% SRAD image
%[Jrect] = SRAD（I2000.5rect）;
[Jrect] = SRAD（I2000.5rect）;


t2=clock;
t=t2-t1;
% plot both images
imwrite（J‘20131014155354（SRAD）.bmp‘‘BMP‘）;
figure
subplot（121）
imshow（I[]）
subplot（122）
imshow（J[]）
%psnr（IJ）
%ENL（J）
%epi（IJ）

%**************************************************************************
% END OF FILE
%**************************************************************************

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       1643  2013-10-15 11:03  各向异性去噪matlab程序\ex_SRAD.m

     文件       5286  2011-12-16 19:47  各向异性去噪matlab程序\SRAD.m

     文件       9307  2011-08-30 15:09  各向异性去噪matlab程序\SRAD_c.c

     文件       8704  2011-08-30 15:09  各向异性去噪matlab程序\SRAD_c.dll

     目录          0  2014-05-22 08:53  各向异性去噪matlab程序

----------- ---------  ---------- -----  ----

                24940                    5