random.c

来自「蚁群聚类算法,用于计算数据聚类的程序,还未实验效果」· C语言 代码 · 共 17 行

#include "random.h"

/* Copyright Numerical Recipes in C */
double ran0(long *idum)
{
  long k;
  double 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;
}