luke
/
ngspice
mirror of https://git.code.sf.net/p/ngspice/ngspice
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Tausworthe not ready under MINGW

This commit is contained in:
h_vogt 2010-08-28 21:06:42 +00:00
parent ba539d9ef1
commit 5c5bbe987d
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/maths/misc/randnumb.c
View File

@ -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); */