14gass.c

来自「很多算法的详细C语言编程 很方便学计算方法的参考」· C语言 代码 · 共 12 行

  #include "math.h"
  #include "14errf.c"
  double gass(a,d,x)
  double a,d,x;
  { double y;
    if (d<=0.0) d=1.0e-10;
    y=0.5+0.5*errf((x-a)/(sqrt(2.0)*d));
    return(y);
  }