gasdev.c

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

#include <math.h>
#include "gasdev.h"

float gasdev(long *idum)
{
	float ran0(long *idum);
	static int iset=0;
	static float gset;
	float fac,rsq,v1,v2;

	if  (iset == 0) {
		do {
			v1=2.0*ran0(idum)-1.0;
			v2=2.0*ran0(idum)-1.0;
			rsq=v1*v1+v2*v2;
		} while (rsq >= 1.0 || rsq == 0.0);
		fac=sqrt(-2.0*log(rsq)/rsq);
		gset=v1*fac;
		iset=1;
		return v2*fac;
	} else {
		iset=0;
		return gset;
	}
}
/* (C) Copr. 1986-92 Numerical Recipes Software 5.){2p491&#<'>9. */