cedif 改进后的非线性各向异性扩散用于图像中的保边去噪

改进后的非线性各向异性扩散用于图像中的保边去噪，增加了二阶导数，是滤波效果更好

function y = anidifstep（x a b c）
% ANIDIFSTEP   Anisotropic diffusion step
%
%    y = ANIDIFSTEP（x a b c） calculates de anisotropic （tensor） 
%    diffusion step “y“ based on the image “x“ and on the diffusion tensor “D“.
%       D = / a  b \
%           \ b  c /
%
%    The diffused image is calculated as:
%      xd = x + T*anidifstep（xd）   T = step size
%

% Translations of a
a_apo = a + roll（a[1 0]）;
a_amo = roll（a_apo[-1 0]）;
%a_apo = a + roll（a[1  0]）;
%a_amo = roll（a_apo[-1 0]）;

% Translations of b
bop = roll（b[0 1]）;
bom = roll（b[0 -1]）;
bpo = roll（b[1 0]）;
bmo = roll（b[-1 0]）;


% Translations of c
%cop = roll（c[0  1]）;
%com = roll（c[0 -1]）;
c_cop = c + roll（c[0 1]）;
c_com = roll（c_cop[0 -1]）;

% Translations of x
xop = roll（x[ 0

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

    I.A....      1407  2001-11-27 22:33  新建文件夹 （2）\anidifstep.m

    I.A....     11313  2010-09-26 09:40  新建文件夹 （2）\cedif.m

     文件       1502  2001-12-25 22:36  新建文件夹 （2）\conv2br.m

    I.A....      2437  2002-01-22 23:44  新建文件夹 （2）\grow.m

    I.A....      3549  2010-09-27 20:20  新建文件夹 （2）\gsderiv.m

    I.A....      8593  2010-09-27 21:14  新建文件夹 （2）\imprcedif.m

    I.A....      1157  2002-04-08 08:54  新建文件夹 （2）\isodifstep.m

    I.A....      1770  2010-09-27 21:19  新建文件夹 （2）\newtest.m

    I.A....     58904  2009-09-29 14:08  新建文件夹 （2）\noise.png

    I.A....      1227  2001-12-25 23:50  新建文件夹 （2）\orideriv.m

    I.A....      2119  2002-01-23 19:58  新建文件夹 （2）\roll.m

    I.A....     43117  2009-09-29 14:08  新建文件夹 （2）\sync.png

    I..D...         0  2010-09-28 16:13  新建文件夹 （2）

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

               137095                    13