3rnd1.c

c语言的常用函数集,比较全的.有些BUG我已经做过修改,可以在turbo c,borland c,Visual c++6.0(当然可能麻烦一点)上使用

  double rnd1(r)
  double *r;
  { int m;
    double s,u,v,p;
    s=65536.0; u=2053.0; v=13849.0;
    m=(int)(*r/s); *r=*r-m*s;
    *r=u*(*r)+v; m=(int)(*r/s);
    *r=*r-m*s; p=*r/s;
    return(p);
  }