14gass.c

来自「常用算法程序集(c语言描述) 第三版.rar」· 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);
  }