errfunc.m

来自「Matlab语言常用算法程序集.rar 里面有很多有用的Matlab数值运」· M 代码 · 共 22 行

function erf = ErrFunc(x)
format long;
pi = 3.1415926535;
m = 1;
tol = 1;
while tol > 1.0e-6
    s1 = subERF(x,m);
    s2 = subERF(x,m+1);
    tol = abs(s1 - s2);
    m = m*2;
end
erf = (s1+s2)/sqrt(pi);

function tmpF = subERF(x,m)
syms t;
h = x/m;
tmpF = 0;

for i=1:m
    tmpF = tmpF + IntGauss('exp(-t*t)',h*i-h,h*i,5);
end