From 5c5bbe987dafc652c7a0c00b6f7054a1a3fb01ff Mon Sep 17 00:00:00 2001 From: h_vogt Date: Sat, 28 Aug 2010 21:06:42 +0000 Subject: [PATCH] Tausworthe not ready under MINGW --- src/maths/misc/randnumb.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/maths/misc/randnumb.c b/src/maths/misc/randnumb.c index 8343df53b..d7745a22e 100644 --- a/src/maths/misc/randnumb.c +++ b/src/maths/misc/randnumb.c @@ -36,7 +36,7 @@ Copyright 2008 Holger Vogt // [0.0 .. 1.0[ by calls to CombLCGTaus(). double randvar = CombLCGTaus(void); */ - +//#define HVDEBUG #include "ngspice.h" #include "cpdefs.h" @@ -210,9 +210,9 @@ double gauss(void) double fac,r,v1,v2; if (gliset) { do { -// v1 = drand(); v2 = drand(); - v1 = 2.0 * CombLCGTaus() - 1.0; - v2 = 2.0 * CombLCGTaus() - 1.0; + v1 = drand(); v2 = drand(); +// v1 = 2.0 * CombLCGTaus() - 1.0; +// v2 = 2.0 * CombLCGTaus() - 1.0; r = v1*v1 + v2*v2; } while (r >= 1.0); /* printf("v1 %f, v2 %f\n", v1, v2); */