文件名称:ran0123
介绍说明--下载内容均来自于网络,请自行研究使用
0123四个随机函数,书本里面的,奉献给大家-
#define IA 16807
#define IM 2147483647
#define AM (1.0/IM)
#define IQ 127773
#define IR 2836
#define MASK 123459876
float ran0(long*idum)
{
long k
float ans
*idum ^= MASK
k=(*idum)/IQ
*idum=IA*(*idum-k*IQ)-IR*k
if (*idum < 0)*idum+= IM
ans=AM*(*idum)
*idum ^= MASK
return ans
}
#undef IA
#undef IM
#undef AM
#undef IQ
#undef IR
#undef MASK
#define IA 16807
#define IM 2147483647
#define AM (1.0/IM)
#define IQ 127773
#define IR 2836
#define MASK 123459876
float ran0(long*idum)
{
long k
float ans
*idum ^= MASK
k=(*idum)/IQ
*idum=IA*(*idum-k*IQ)-IR*k
if (*idum < 0)*idum+= IM
ans=AM*(*idum)
*idum ^= MASK
return ans
}
#undef IA
#undef IM
#undef AM
#undef IQ
#undef IR
#undef MASK
(系统自动生成,下载前可以参看下载内容)
下载文件列表
ran1.c
ran0.c
ran2.c
ran3.c